Virtual Memory Problem

• To: mathgroup at smc.vnet.net
• Subject: [mg116497] Virtual Memory Problem
• From: "Fitzpatrick, Shannon" <Shannon.Fitzpatrick at drdc-rddc.gc.ca>
• Date: Thu, 17 Feb 2011 05:18:20 -0500 (EST)

```Hi,

I have this notebook that attempts to obtain symbolic solution to a
complex quadratic equation. When I run it for a long time I get a
message that windows virtual memory is low from Windows and a
MemoryAllocationError from Mathematica. What can I do solve this
equation.

ClearAll["Global`*"]

A = -150;

B= 150;

r=.03;

tol = 0.1;

incr = .1;

textFile = "isoDoppler";

numPlots = 6;

a= Table[StringJoin[textFile,ToString[k],".txt"],{k,1,numPlots}];

GenerateIsoDoppler[A_,B_,r_,tol_,incr_,fileName_] :=Module[{},eq =r ==
y/  +(x-A)/ + y /  + y/  + (x-B)/ - y/;

roots = Solve[eq,y];myroots y/.roots;fname=FileNameJoin[{\$TemporaryDirectory,fileName}];s=OpenWrite[
fname];For[x= (A+ tol),x <= (B-tol),x=x+ incr,   For[i=1,i<=
4,i=i+1,Write[s,{N[myroots[[i]]],x}]]];

Close[s];];

For[n=1,n<=numPlots,n=n+1,

GenerateIsoDoppler[A,B,r 5 n,tol,incr,a[[n]]];Clear[y,x];Print[N[r 5
n]]]

Thanks,

Shannon

```

• Prev by Date: Re: Texture with transparency not working
• Next by Date: How to get last input line in MathLink mode?
• Previous by thread: Problem with free form input
• Next by thread: How to get last input line in MathLink mode?