Re: Ploting a changing constant

*To*: mathgroup at smc.vnet.net*Subject*: [mg64782] Re: Ploting a changing constant*From*: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>*Date*: Thu, 2 Mar 2006 19:27:57 -0500 (EST)*Organization*: The Open University, Milton Keynes, UK*References*: <200406180612.CAA10684@smc.vnet.net> <200406190831.EAA27575@smc.vnet.net> <du6mb6$5am$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Mary Beth Mulcahy wrote: > OK, so this has to be an easy one. I am trying to plot a function several times > for a variety of values of a constant. For example: > > y[x_, a_]:=a*x > > I want to plot a=10, a=20 overlaying one another. Currently I simply rewrite > the equation however many times I need to change the variable. For example: > > DisplayTogether[Plot[y[x, 10], {x, 0, 33}],Plot[y[x,20], {x, 0, > 33}],Plot[y[x,30], {x, 0, 33}],Plot[y[x,40], {x, 0, 33}],Plot[y[50], {x, 0, > 33}]] > > I'm plotting this equation 15 times with a increasing in steps of ten. Seems to > me there should be a single command to do this rather than cut and paste 10 > times (and then go back in to change the variable by hand). Something like in > Sum[] where you can state the beginingvalue, end value and step size. > Hi Mary Beth, You could use the *Table* built-in function to generate a list of plots as in In[1]:= Needs["Graphics`Graphics`"] f[n_Integer][x_] := n*x DisplayTogether[Table[Plot[f[n][x], {x, 0, 33}], {n, 10, 150, 10}]]; Best regards, /J.M.