Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: Plotting and getting data points
  • Next by Date: Digital Image Processing 2 Now Available
  • Previous by thread: Re: Plotting and getting data points
  • Next by thread: Re: Is this possible? Residue computation leads to complexInfinity?