Re: how to generate many plots without so many input lines?
- To: mathgroup at smc.vnet.net
- Subject: [mg9659] Re: [mg9651] how to generate many plots without so many input lines?
- From: Lou Talman <me at talmanl.mscd.edu>
- Date: Fri, 21 Nov 1997 01:30:57 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Rob Peterson wrote:
> Surely there is a way to generate the list {a,b,c,d,e,f,g,h} more
> easily/elegantly. Here's what I tried:
>
> {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?
Your command is equivalent to
{a,b,c,d,e,f}=
ParametricPlot[{x[u,{Pi/1.2,Pi/1.5,Pi/2,Pi/4,Pi/8,Pi/16}],
y[u,{Pi/1.2,Pi/1.5,Pi/2,Pi/4,Pi/8,Pi/16}]},
{u,-Pi,Pi},AspectRatio->Automatic,
DisplayFunction->Identity]
so it's little surprise that Mathematica choked. Try
Show[Map[ParametricPlot[{x[u, #], y[u, #]}, {u, -Pi, Pi},
AspectRatio -> Automatic, DisplayFunction -> Identity]&,
{Pi/1.2, Pi/1.5, Pi/2, Pi/4, Pi/8, Pi/16}],
DisplayFunction -> $DisplayFunction]
--Lou Talman