Re: plots with variation of arbitrary constant

*To*: mathgroup at smc.vnet.net*Subject*: [mg60345] Re: [mg60316] plots with variation of arbitrary constant*From*: "David Annetts" <davidannetts at aapt.net.au>*Date*: Wed, 14 Sep 2005 03:27:13 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Hi Narasimham , > How to show 2D plots for chosen range of a constant? > Show[Plot[Sin[x]+ c,{x,0,Pi}],{c,1,10,1}] does not work. No, but Plot[Sin[x] + #, {x, 0, Pi}, PlotRange -> {1, 12}, PlotLabel -> ToString[#]] & /@ Range[10]; SelectionMove[EvaluationNotebook[], All, GeneratedCell]; FrontEndTokenExecute["OpenCloseGroup"] FrontEndTokenExecute["SelectionAnimate"] Does. There are many other solutions. Regards, Dave.