MathGroup Archive 2001

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

Search the Archive

Re: Supressing the output of Plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg30614] Re: [mg30596] Supressing the output of Plot
  • From: BobHanlon at aol.com
  • Date: Fri, 31 Aug 2001 04:09:39 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 2001/8/30 4:18:21 AM, fblack2 at mail.com writes:

>I'm making a Table full of Plots using Table[Plot[...]],  and would
>like to suppress the display of the resulting plots until later, when
>I will use GraphicsArray.
>
>Setting DisplayFunction -> Identity in the Plot command works until I
>include a legend with PlotLegend, then every single plot will be
>displayed.
>
>Example of no plot output:
>  Plot[{Sin[t], Cos[t]}, {t, 0, 5}, DisplayFunction -> Identity, 
>       PlotRange -> {{0, 5}, {-2, 2}}];
>
>Example of undesired plot outputs:
>  Plot[{Sin[t], Cos[t]}, {t, 0, 5}, DisplayFunction -> Identity, 
>      PlotLegend -> {"Uno", "Dos"}, LegendPosition -> {.3, -.6}, 
>      PlotRange -> {{0, 5}, {-2, 2}}];
>
>Any suggestions?
>

Needs["Graphics`Graphics`"];

Needs["Graphics`Colors`"];

DisplayTogetherArray[
    Plot[{Sin[t],Cos[t]},{t,0,2Pi},
      PlotStyle -> 
        {Red, {AbsoluteDashing[{5, 5}], Blue}}, 
      Ticks -> {PiScale, Automatic}, 
      PlotLegend->{"Uno","Dos"},
      LegendPosition->{.3,.3},
      PlotRange->{{0,2Pi},{-2,2}}], 
    Plot[{Sin[t],Cos[t]},{t,0,2Pi},
      PlotStyle -> 
        {Red, {AbsoluteDashing[{5, 5}], Blue}}, 
      Ticks -> {PiScale, Automatic}, 
      PlotLegend->{"One","Two"},
      LegendPosition->{.3,.3},
      PlotRange->{{0,2Pi},{-2,2}}], 
    ImageSize -> 400];


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: RE: Supressing the output of Plot
  • Next by Date: Re: Plot Joined Intelligently
  • Previous by thread: RE: Supressing the output of Plot
  • Next by thread: Re: Supressing the output of Plot