help with "no more memory" at mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg91012] help with "no more memory" at mathematica
- From: lopmart <lopmart at gmail.com>
- Date: Sun, 3 Aug 2008 05:33:29 -0400 (EDT)
we have the next code in mathematica 6, when we use n = 200 we get the next error h = Import["h.dat"]; v = Import["v.dat"]; n = 200 MSE2 = Sum[(a[i - 1, j] - v[[i, j]] a[i, j])^2 + (a[i, j - 1] - h[[i, j]] a[i, j])^2, {i, 2, n}, {j, 2, n}] + Sum[(a[1, j - 1] - h[[1, j]] a[1, j])^2, {j, 2, n}] + Sum[(a[i - 1, 1] - v[[i, 1]] a[i, 1])^2, {i, 2, n}]; s1 = Table[Simplify[D[MSE2, a[Floor[i/n] + 1, Mod[i, n] + 1]]], {i, 1, (n*n) - 1}]; s3 = SparseArray[ Table[Simplify[D[s1, a[Floor[i/n] + 1, Mod[i, n] + 1]]], {i, 1, (n*n) - 1}]]; ar = ArrayRules[s3]; Export["matrix1.txt", ar]; b = SparseArray[Table[Simplify[-1*D[s1, a[1, 1]]]]]; b2 = ArrayRules[b];["B.txt", b2]; No more memory available. Mathematica kernel has shut down. Try quitting other applications and then retry. How to solve? thanks