export differential equation solution obtained through Mathematica to

*To*: mathgroup at smc.vnet.net*Subject*: [mg106326] export differential equation solution obtained through Mathematica to*From*: Yun Zhao <yun.m.zhao at gmail.com>*Date*: Fri, 8 Jan 2010 04:17:17 -0500 (EST)

Hi everyone, I would like to know if there is a way to export differential equation solution obtained through Mathematica to microsoft excel. There are several data processing things that I want to know, that simply plotting the solution in Mathematica won't suffice. I have a system of differential equations like so: sol3=NDSolve[{p'[t]=-0.0491*p[t]-0.0089*p[t],n'[t]=0.0491*p[t]+(0.0491-0.0089)*n[t],p[0]=25000,n[0]=0},{p,n},{t,0,100}] When I plotted it in Mathematica using this code: Plot[Evaluate[{n[t]+p[t]}/.First[sol3]],{t,0,100}] I get a exponential increasing function plotting number vs. time. What I want is the values of both the time vector and number vector, and I want to copy and paste them into two columns in microsoft excel. I tried using: Export["newdata.dat", Evaluate[{n[t]+p[t]}/.First[sol3]] But this gives me a .dat file with the time and number vectors all scrambled up. My question is: (1) is there a better way to tell Mathematica what I want to export, because I don't think Evaluate[{n[t]+p[t]}/.First[sol3] is the correct term to convey what I want (2) How do I properly export differential equation solutions that I can graph but not display in Mathematica, to spreadsheets software like Microsoft Excel? Thank you all very much.