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