MathGroup Archive 1997

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: News Release: Mathematica® Will Remain Macintosh-Compatible
  • Next by Date: Question about MathLink connection to MsQffice 97
  • Previous by thread: Re: how to generate many plots without so many input lines?
  • Next by thread: Mathematica 3.01 is slower than Mathematica 3.0 on PowerMacs!