Re: How to draw several curves in different boxes ?
- To: mathgroup@smc.vnet.net
- Subject: [mg10296] Re: How to draw several curves in different boxes ?
- From: Bill Bertram <wkb@ansto.gov.au>
- Date: Mon, 5 Jan 1998 03:47:17 -0500
- Organization: ANSTO
- References: <68l3td$mg4@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.
Yes there is a way.
For the first two plots that you don't want to show use the option
DisplayFunction -> Identity
To show the next combined plot you must use
DisplayFunction -> $DisplayFunction
Cheers,
Bill