RE: put together all graphs
- To: mathgroup at smc.vnet.net
- Subject: [mg40986] RE: [mg40980] put together all graphs
- From: "David Park" <djmp at earthlink.net>
- Date: Sun, 27 Apr 2003 03:18:54 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Jong,
The standard method..
Block[{$DisplayFunction = Identity},
plots =
Table[ContourPlot[
Cos[theta1] + Cos[theta1 + theta2] - i 0.2, {theta1, -Pi,
Pi}, {theta2, -Pi, Pi}, Contours -> {0}, ContourShading ->
False,
PlotPoints -> 64],
{i, -10, 10}]];
Show @@ plots;
With DrawGraphics...
Needs["DrawGraphics`DrawingMaster`"]
Draw2D[
{Table[
ContourDraw[
Cos[theta1] + Cos[theta1 + theta2] - i 0.2, {theta1, -Pi,
Pi}, {theta2, -Pi, Pi}, Contours -> {0}, ContourShading ->
False,
PlotPoints -> 64],
{i, -10, 10}]},
AspectRatio -> Automatic,
Frame -> True];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Jong Choi [mailto:jxc91 at po.cwru.edu]
To: mathgroup at smc.vnet.net
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++]