Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: loop for with plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg110050] Re: loop for with plot
  • From: Peter Pein <petsie at dordos.net>
  • Date: Sun, 30 May 2010 23:46:12 -0400 (EDT)
  • References: <httfog$sds$1@smc.vnet.net>

Hi Maria,

either use
For[e3=0,e3<4,e3++,Print@Plot[2*R3*Sin[ArcCos[x/R3]]*e3,{x,-2R3,2 R3}]]
to get five plots displyed, or
Table[Plot[2*R3*Sin[ArcCos[x/R3]]*e3, {x, -2*R3, 2*R3}], {e3, 0, 4}]
to get a list of these plots, or to display them in one plot:
Plot[Evaluate[Table[2*R3*Sin[ArcCos[x/R3]]*e3, {e3, 0, 4}]], {x, -2*R3,
2*R3}]


Peter

Am Sun, 30 May 2010 10:47:44 +0000 (UTC)
schrieb maria giovanna dainotti <mariagiovannadainotti at yahoo.it>:

> Dear Mathgroup,
> 
> when I am using the loop for with plot is not working.
> 
> here is the example
> R1=1.029
> R2=3
> R3=6
> e1=27
> e2=0
> e3=2.5
> For[e3=0,e3<4,e3++,Plot[{2*R3*Sin[ArcCos[x/R3]]*e3}, {x, -2R3,2 R3}]]
> How can I sort out the problem?
> Best regards
> Maria
>   
> 




  • Prev by Date: Big memory needed
  • Next by Date: Re: Styling single bar in BarChart
  • Previous by thread: Re: loop for with plot
  • Next by thread: Re: loop for with plot