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++]