Re: put together all graphs
- To: mathgroup at smc.vnet.net
- Subject: [mg40988] Re: put together all graphs
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Sun, 27 Apr 2003 03:19:16 -0400 (EDT)
- References: <b8dctl$f$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`Graphics`"];
DisplayTogether[ Table[ ContourPlot[
Cos[theta1]+Cos[theta1+theta2]-i*0.2,
{theta1,-Pi,Pi},{theta2,-Pi,Pi},
PlotPoints->64, FrameTicks -> {PiScale, PiScale},
Contours->{0},ContourShading->False,
ContourStyle->Hue[(i+10)/20]],
{i,-10,10}]];
Bob Hanlon
In article <b8dctl$f$1 at smc.vnet.net>, "Jong Choi" <jxc91 at po.cwru.edu> wrote:
<<
Subject: put together all graphs
From: "Jong Choi" <jxc91 at po.cwru.edu>
To: mathgroup at smc.vnet.net
Date: Sat, 26 Apr 2003 07:36:21 +0000 (UTC)
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?
I will appreciate any help.
Thanks,
Jong
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++]
>><BR><BR>