Memory issue in Mathematica 5.1 (Windows XP)
- To: mathgroup at smc.vnet.net
- Subject: [mg75019] Memory issue in Mathematica 5.1 (Windows XP)
- From: "nbm" <neeleshbmehta at yahoo.com>
- Date: Sat, 14 Apr 2007 01:10:02 -0400 (EDT)
Hi,
A memory leak problem.
I am running the following code on Mathematica 5.1 on a Windows XP
machine.
I find that the memory in use increases everytime the following
function is run. I don't understand why. Can anyone kindly explain?
This function is part of a larger program. I am basically running into
a memory used up problem after I run several iterations in the large
program. I suspect the above memory leak to be the cause of the
problem. Hence, this request.
Sorry for the uncommented code. (Expon is an array that is fed to
PdfSum.)
PdfSumExp[Expon_,x_]:=
Module[ {f,N,i,L,temp,temp1,j,k,Exponents},
(* Print["PdfSumExp"]; *)
(* Print[MemoryInUse[]]; *)
Exponents = Sort[Expon];
N = Length[Exponents];
L = Range[N];
For[i=1, i<N, i++, (
If[Exponents[[i]]==Exponents[[i+1]], Print["equal exponents"]];
)];
temp = 1;
For[i=1, i<=N, i++, (
L[[i]] = 1/Exponents[[i]];
temp = temp*L[[i]];
) ];
f = 0;
For[j=1, j<=N, j++, (
temp1 = 1;
For[k=1, k<=N, k++, (
If[k ==j, Continue[]];
temp1 = temp1*(L[[k]]-L[[j]]) ;
)];
f = f + Exp[-L[[j]]*x]/temp1;
)];
f = temp * f;
Clear[Exponents,N]; (* nbm *)
(* Print[MemoryInUse[]]; *)
Return[f];
];
Regards,
Neelesh.