Re: put together all graphs
- To: mathgroup at smc.vnet.net
- Subject: [mg40989] Re: put together all graphs
- From: Bill Rowe <listuser at earthlink.net>
- Date: Sun, 27 Apr 2003 03:19:35 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
On 4/26/03 at 3:27 AM, jxc91 at po.cwru.edu (Jong Choi) wrote:
>Dear all, The following paragraph makes a lot of graphs. But I want to
>put all graphs together in one graph. Is there some option looks like,
>keep or hold?
>For[i = -10, i < 10,
>{ContourPlot[Cos[theta1] + Cos[theta1 + theta2] - i*0.2, {theta1, -Pi,
> Pi}, {theta2, -Pi, Pi}, Contours -> {0}, ContourShading -> False,
>PlotPoints -> 64]},
>i++]
Show will do what you want if you capture the plots as a List
For example
a =
ContourPlot[Cos[theta1] + Cos[theta1 + theta2] - 0.2 #,
{theta1, -Pi, Pi}, {theta2, -Pi, Pi},
Contours->{0}, CountourShading->False, PlotPoints->64]&/@
Range[-10,10];
Show[a];
will do what you want
An alternative would be to add DisplayFunction->Identity as one of the options
for ContourPlot and use
Show[a, DisplayFunction->$DisplayFunction];
This will supress display of each individual plot