Solution of diff. equation i the form of list?

*To*: mathgroup at smc.vnet.net*Subject*: [mg5538] [mg5517] Solution of diff. equation i the form of list?*From*: Allan Hayes <hay at haystack.demon.co.uk>*Date*: Thu, 19 Dec 1996 01:02:34 -0500*Sender*: owner-wri-mathgroup at wolfram.com

ufwlazlo at cyf-kr.edu.pl (Wojciech Wlazlo) [mg5517] Solution of diff. equation i the form of list? writes >I tried ..... > >DSolve[{z'[x]==-z[x],z[0]==1},z[x],x] >data=Table[{x,z[x] /. %},{x,0.0,1.5,0.1}] > > and I got: > >{{z[x]->Exp[-x]}} >{{{0.0,{1.0}},{0.1,{0.8}}, etc > ^ ^ ^ ^ >How to get rid of above extra {}'s? Wojciech: sol = DSolve[{z'[x]==-z[x],z[0]==1},z[x],x] -x {{z[x] -> E }} data=Table[{x,z[x] /. %[[1]]},{x,0.0,1.5,0.1}] ^^^^^ {{0., 1.}, {0.1, 0.904837}, {0.2, 0.818731}, {0.3, 0.740818}, {0.4, 0.67032}, {0.5, 0.606531}, {0.6, 0.548812}, {0.7, 0.496585}, {0.8, 0.449329}, {0.9, 0.40657}, {1., 0.367879}, {1.1, 0.332871}, {1.2, 0.301194}, {1.3, 0.272532}, {1.4, 0.246597}, {1.5, 0.22313} } Allan Hayes hay at haystack.demon.co.uk http:www.haystack.demon.co.uk