How to draw several curves in different boxes ?
- To: mathgroup@smc.vnet.net
- Subject: [mg10276] How to draw several curves in different boxes ?
- From: "L. Sartre" <smerlin@ibm.net>
- Date: Sat, 3 Jan 1998 05:07:25 -0500
- Organization: IBM.NET
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.