Re: loop for with plot
- To: mathgroup at smc.vnet.net
- Subject: [mg110060] Re: loop for with plot
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 30 May 2010 23:48:03 -0400 (EDT)
>From the documentation: "Unless an explicit Return is used, the value returned by For is Null." You must explicitly display (Print) the plots. R3 = 6; For[e3 = 0, e3 < 4, e3++, Print[Plot[ 2*R3*Sin[ArcCos[x/R3]]*e3, {x, -2 R3, 2 R3}, PlotRange -> {0, 36}]]] However, Table is generally more useful Plot[ Evaluate[ Table[ Tooltip[ 2*R3*Sin[ArcCos[x/R3]]*e3, e3], {e3, 0, 3}]], {x, -2 R3, 2 R3}] Plot[ Evaluate[ Tooltip[ Table[ 2*R3*Sin[ArcCos[x/R3]]*e3, {e3, 0, 3}]]], {x, -2 R3, 2 R3}] Bob Hanlon ---- maria giovanna dainotti <mariagiovannadainotti at yahoo.it> wrote: ============= 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