Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1999
*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 1999

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

Search the Archive

Re: Preventing plotting on output

  • To: mathgroup at smc.vnet.net
  • Subject: [mg20126] Re: [mg20090] Preventing plotting on output
  • From: "Andrzej Kozlowski" <andrzej at tuins.ac.jp>
  • Date: Sat, 2 Oct 1999 03:04:54 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

The correct way to do this is this:
In[1]:=
nodisp = DisplayFunction -> Identity;
disp = DisplayFunction -> $DisplayFunction;

In[2]:=
Plot[x^2, {x, -1, 1}, Evaluate[nodisp]]
Out[2]=
-Graphics-

In[2]:=
Show[%, Evaluate[disp]]

(here comes the graph).
--
Andrzej Kozlowski
Toyama International University
JAPAN
http://sigma.tuins.ac.jp
http://eri2.tuins.ac.jp


----------
>From: adam.smith at hillsdale.edu
>To: mathgroup at smc.vnet.net
>Subject: [mg20126] [mg20090] Preventing plotting on output
>Date: Thu, 30 Sep 1999 02:43:06 -0400
>

> I know I could find the answer to this if I looked hard enough through
> the Help and/or Manual, but I am certain one of the experts out there
> will have the solution immediately.
>
> I want to construct some plots and then display them combined on one
> graph.  The Plot[] for each individual plot is fairly lengthy and I was
> hoping to save some space by replacing the "DisplayFunction->Identity"
> with a single word like "nodisp".  In the final Show[] I would then
> turn the display back on with the
> usual "DisplayFunction>$DisplayFunction" (maybe even equate it with a
> single term like "disp").
>
> Here is a simplified example of what I quickly tried without success
>
> nodisp = DisplayFunction -> Identity
>
> graph1 = Plot[Sin[2 Pi x],{x,0,2},nodisp]     Error messages show up
> graph2 = Plot[Sin[4 Pi x],{x,0,2},nodisp]
>
> Show[{plot1,plot2},DisplayFunction -> $DisplayFunction]
>
> I realize I could use SetOptions[] to temporarily turn off and turn on
> display, but defining nodisp seems more natural and intuitive to me.
>
> Adam Smith
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.
> 


  • Prev by Date: RE: Preventing plotting on output
  • Next by Date: Re: Hypergeometric
  • Previous by thread: RE: Preventing plotting on output
  • Next by thread: Re: Preventing plotting on output