MathGroup Archive 2000

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

Search the Archive

Re: newby plotting question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg22741] Re: newby plotting question
  • From: "Mariusz Jankowski" <mjkcc at usm.maine.edu>
  • Date: Fri, 24 Mar 2000 03:27:31 -0500 (EST)
  • Organization: University of Southern Maine
  • References: <8b9orp$9dj@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Your first attempt was close. The following will work. Use a new input cell
for each input.

p1 = ListPlot[ mean, PlotRange->All, DisplayFunction->Identity];

p2 = ListPlot[ mean + Sqrt[var],
             PlotStyle -> RGBColor[0,1,0], PlotRange->All,
DisplayFunction->Identity];

p3 = ListPlot[ mean - Sqrt[var],
            PlotStyle -> RGBColor[1,0,0], PlotRange->All,
DisplayFunction->Identity];


Show[p1,p2,p3,DisplayFunction->$DisplayFunction];


Mariusz


======================================================
Mariusz Jankowski
University of Southern Maine
mjkcc at usm.maine.edu



"F. Schwieterman" <fschwiet at u.washington.edu> wrote in message
news:8b9orp$9dj at smc.vnet.net...
> I have three lists I want to plot on the same graph, in different colors.
> My code went as follows:
> (mean and var are lists of numbers, of the same length)
>
> p1 = ListPlot[ mean, PlotRange->All];
> p2 = ListPlot[ mean + Sqrt[var],
>             DefaultColor -> RGBColor[0,1,0], PlotRange->All];
> p3 = ListPlot[ mean - Sqrt[var],
>             DefaultColor -> RGBColor[1,0,0], PlotRange->All]];
> Show[p1,p2,p3];
>
>





  • Prev by Date: Re: Q: pattern in list of derivatives
  • Next by Date: Re: Re: Constrained optimization.
  • Previous by thread: Re: newby plotting question
  • Next by thread: Re: newby plotting question