Re: put together all graphs
- To: mathgroup at smc.vnet.net
- Subject: [mg40997] Re: put together all graphs
- From: bobhanlon at aol.com (Bob Hanlon)
- Date: Mon, 28 Apr 2003 02:29:49 -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>