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

Re: Making multiple plots

• To: mathgroup@smc.vnet.net
• Subject: [mg10287] Re: [mg10260] Making multiple plots
• From: seanross@worldnet.att.net
• Date: Sat, 3 Jan 1998 23:24:17 -0500
• References: <199801031007.FAA22878@smc.vnet.net.>

L. Sartre wrote:
> 
> I would like to show two plots on a same graphics output but separatly.
> For this, I do as follows:
> 
> curve1 := Plot[Sin[t x], {x, -Pi, Pi}, PlotRange -> {-Pi,Pi}, {-1, 1}}];
>  curve2 := Plot[Cos[t x], {x, -Pi, Pi}, PlotRange -> {-Pi,Pi}, {-1,
> 1}}];
> curve:=Graphics[{Rectangle[Scaled[{0,0}],Scaled[{0.5,1}],courbe1],Rectangle[
> Scaled[{0.5,0}],Scaled[{1,1}],courbe2]}]; Show[Graphics[courbe]]
> 
> Then I get three plots. I am interested in getting only the third one.
> Does anyone has any suggestion ?
> 
> Thank you in advance.


In the graphics you don't want displayed, add an option 
DisplayFunction->Identity

In the graphics you do want displayed, such as the combined graphic, add
the option
DisplayFunction->$DisplayFunction
-- 
Remove the _nospam_ in the return address to respond.

• References:
  • Making multiple plots
    • From: "L. Sartre" <smerlin@ibm.net>