MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

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