Re: Storing Data into Excel - Pls Help ...
- To: mathgroup at smc.vnet.net
- Subject: [mg31448] Re: [mg31440] Storing Data into Excel - Pls Help ...
- From: BobHanlon at aol.com
- Date: Wed, 7 Nov 2001 05:29:08 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2001/11/5 4:16:08 AM, fannews at email.com writes:
>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}]
>
N[Select[Flatten[
Table[{step, x, y} /.
Solve[{x==3*x^3+6*x+step, y==8*y^2+3*x},
{x, y}],
{step, 1, 10}], 1],
Element[#, Reals]&]]
Bob Hanlon
Chantilly, VA USA