Re: how to generate many plots without so many input lines?
- To: mathgroup at smc.vnet.net
- Subject: [mg9692] Re: how to generate many plots without so many input lines?
- From: jost at no-junk-mail.fr (Christian Jost)
- Date: Fri, 21 Nov 1997 01:31:28 -0500
- Organization: Universite Paris-Sud XI
- Sender: owner-wri-mathgroup at wolfram.com
In article <64qr1s$jg9 at smc.vnet.net>, robpeterson at iname.com wrote:
> The following code nicely plots a bunch of curves on one plot.
>
> ***************************************
.....
>
> {a,b,c,d,e,f}=
> ParametricPlot[{x[u,v],y[u,v]},{u,-Pi,Pi},AspectRatio->Automatic,
> DisplayFunction->Identity]
> /. v->{Pi/1.2,Pi/1.5,Pi/2,Pi/4,Pi/8,Pi/16}
>
> This doesn't work at all. I get all kinds of error messages I don't
> understand. Can someone tell me whether each plot must be generated on
> a separate line?
Quick and dirty: make a for loop
vVector = {Pi/1.2,Pi/1.5,Pi/2,Pi/4,Pi/8,Pi/16}; plots =
Table[i,{i,Length[vVector]}];
For[i=1,i<=Length[vVector],i++,
v=vVector[[i]];
plots[[i]]=ParametricPlot[{x[u,v],y[u,v]},
{u,-2Pi,Pi},
AspectRatio->Automatic,
DisplayFunction->Identity];
]
Show[plots,DisplayFunction->$DisplayFunction];
Hth, Christian.
*********************************************************************
Christian Jost, Université Paris-Sud XI, Orsay, France
Please don't send any junk mail or advertisements. For personal mail
please send to: Christian.Jost at epc.u-psud.fr