Re: Plotting and getting data points

*To*: mathgroup at smc.vnet.net*Subject*: [mg60740] Re: [mg60734] Plotting and getting data points*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Tue, 27 Sep 2005 03:45:13 -0400 (EDT)*Reply-to*: hanlonr at cox.net*Sender*: owner-wri-mathgroup at wolfram.com

r[t_,x_] := Sin[x*t/2]/t; With[{t=4 }, p=Plot[r[t,x],{x,0,2Pi}]]; p[[1,1,1,1]]//TableForm Needs["Graphics`"]; DisplayTogether[Table[ Plot[r[t,x],{x,0,2Pi}, PlotStyle->Hue[t/4]], {t,4}]]; DisplayTogether[ With[{t={0.8,2.7,4}}, Plot[r[#,x],{x,0,2Pi}, PlotStyle->Hue[#/Max[t]]]&/@ t]]; Bob Hanlon > > From: ksmath <kdsimon at uiuc.edu> To: mathgroup at smc.vnet.net > Date: 2005/09/26 Mon AM 01:36:11 EDT > Subject: [mg60740] [mg60734] Plotting and getting data points > > I have a pde for r[t,x]. Once I obtain the solution, I have only been able to plot it in 3D. Does anyone know how to plot r vs x at a specific instance in time, i.e. obtaining a 2D plot? > > Also, is there away to extract the data points for each time step in the solution so that I can view them in a list? > > Thank you for any assistance you can give me. > > Kristie > >