       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, {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:=
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.

```

• Prev by Date: Plot[] of smooth function results in wildly fluctuating graph?
• Next by Date: Re: Ploting a changing constant
• Previous by thread: Re: Ploting a changing constant
• Next by thread: Re: Ploting a changing constant