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
>
>