Re: Supressing the output of Plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg30610] Re: Supressing the output of Plot*From*: "Allan Hayes" <hay at haystack.demon.co.uk>*Date*: Fri, 31 Aug 2001 04:09:35 -0400 (EDT)*References*: <9mkt0v$1un$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Frank, Use Block: gr= Block[{$DisplayFunction=Identity},Plot[{Sin[t], Cos[t]}, {t, 0, 5}, PlotLegend -> {"Uno", "Dos"}, LegendPosition -> {.3, -.6}, PlotRange -> {{0, 5}, {-2, 2}}]]; Show[gr]; For your table use tb= Block[{$DisplayFunction=Identity},Table[Plot[...]]] -- Allan --------------------- Allan Hayes Mathematica Training and Consulting Leicester UK www.haystack.demon.co.uk hay at haystack.demon.co.uk Voice: +44 (0)116 271 4198 Fax: +44 (0)870 164 0565 "Frank Black" <fblack2 at mail.com> wrote in message news:9mkt0v$1un$1 at smc.vnet.net... > 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? > > Thanks, > Frank >