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

```

• Prev by Date: Re: Recognize vector expression
• Next by Date: Re: Exported PDFs are too big in file size.
• Previous by thread: Re: Demonstration Project Trouble
• Next by thread: Re: help with "no more memory" at mathematica