Re: Preventing plotting on output
- To: mathgroup at smc.vnet.net
- Subject: [mg20127] Re: Preventing plotting on output
- From: "Atul Sharma" <atulksharma at yahoo.com>
- Date: Sat, 2 Oct 1999 03:04:55 -0400
- References: <7suv5r$21s@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
One of the more elegant solutions, from Ted Ersek's very handy collection of Mathematica Tricks available from his website at http://www.dot.net.au/~elisha/ersek/Tricks.html, uses the Block structure to assign a local value to $DisplayFunction and then Show outside of the Block, where DisplayFunction has it's default value: i.e. Block[{$DisplayFunction = Identity}, graph1 = Plot[Sin[2 Pi x],{x,0,2}] ; graph2 = Plot[Sin[4 Pi x],{x,0,2}] ] Show[graph1, graph2] A. Sharma (with thanks to Ted for this and other useful pointers) Show[graph1, graph2] adam.smith at hillsdale.edu wrote in message <7suv5r$21s at smc.vnet.net>... >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. >