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