*To*: mathgroup@smc.vnet.net*Subject*: [mg10491] Re: Making multiple plots*From*: bla@bla.nl*Date*: Tue, 20 Jan 1998 02:22:42 -0500*Organization*: Eindhoven University of Technology, The Netherlands*References*: <68l2fk$ma9@smc.vnet.net>

On 3 Jan 1998 05:04:36 -0500, "L. Sartre" <smerlin@ibm.net> 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. > > > You should use the Show command. You could try something like this: curve1........; curve2.........; Show[{curve1,curve2}]