Re: mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg12671] Re: mathematica*From*: "Allan Hayes" <hay at haystack.demon.cc.uk>*Date*: Mon, 1 Jun 1998 23:16:44 -0400*References*: <6kpu3l$scn@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Antoine Durand wrote in message <6kpu3l$scn at smc.vnet.net>... >I want to plot the result of an equation calculated with a loop. I've >tried to do "append[list,solve[eq]]" in order to plot the list but the >result of "solve" is a string of characters and not a number. In[1]:= lst={}; Do[AppendTo[lst, Solve[x^2==n,x]],{n,0,3}]; lst Out[1]= {{{x -> 0}, {x -> 0}}, {{x -> -1}, {x -> 1}}, {{x -> -Sqrt[2]}, {x -> Sqrt[2]}}, {{x -> -Sqrt[3]}, {x -> Sqrt[3]}}} In[2]:= x/.% Out[2]= {{0, 0}, {-1, 1}, {-Sqrt[2], Sqrt[2]}, {-Sqrt[3], Sqrt[3]}} ------------------------------------------------------------- Allan Hayes Training and Consulting Leicester UK http://www.haystack.demon.co.uk hay at haystack.demon.co.uk voice: +44 (0)116 271 4198 fax: +44(0)116 271 8642