Re: Storing Data into Excel - Pls Help ...

• To: mathgroup at smc.vnet.net
• Subject: [mg31549] Re: [mg31440] Storing Data into Excel - Pls Help ...
• From: Omega Consulting <omega_consulting at yahoo.com>
• Date: Sat, 10 Nov 2001 01:19:38 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```At 02:48 AM 11/5/2001, Steve wrote:
>Hi there,
>
>I am looking for a way to automate Mathematica to extract & store all
>the Real numbers (Imaginary nos. can be ignored) solved from a simple
>simultaneous equations such as the one below.
>
>Where I can use Excel & easily plot all the data later. There will be
>an iteration using the For loop where step will be increase by 1 on
>each iteration.
>
>So the Excel data should contain the step & the real answers assigned
>to it & repeated for each new step no.
>
>-------------
>step=3;
>Solve[{x==3*x^3 + 6*x + step, y==8*y^2 + 3*x}, {x,y}]
>
>-------------
>Mathematica Format:
>
>step=3;
>
>\!\(Solve[{x == 3  x\^3 + 6  x + step, \ y == 8  y\^2 + 3  x}, {x,
>y}]\)
>
>---------------
>
>Does anyone knows how to do it?
>
>Cheers ....
>Steve

minstep=(starting value for step)
maxstep=(ending value foir step)

sol[step_] := Cases[{step, x, y} /.
NSolve[{x==3*x^3+6*x+step, y==8*y^2+3*x}, {x, y}],
{_, _Real, _Real}]

lst=Flatten[Table[sol[step],  {step, minstep, maxstep}],1]

Export["myfile.csv", lst]

--------------------------------------------------------------
Omega Consulting