Re: Graphing with Mmm2.0
- To: mathgroup at smc.vnet.net
- Subject: [mg6148] Re: [mg6138] Graphing with Mmm2.0
- From: "w.meeussen" <w.meeussen at solair4b.eunet.be>
- Date: Mon, 24 Feb 1997 00:08:52 -0500
- Sender: owner-wri-mathgroup at wolfram.com
At 00:10 23-02-97 -0500, you wrote:
>I want to make a plot of a function. (1/(a-x) ) where a is a constant. I
>want to do it from 0 to a .And i want a to vary..how can i do that?
>I tried Plot[1/(a-x),{x,0,a}] but it didn't work.
>
>
>Thanks
>John Papadakis
>
>
>
John,
I would first make a table of all functions to be plotted, and keep the
parameter value as the first item of a list,
Table[{a, 1/(a - x)}, {a, 0.4, 1.7, 0.2}]
and then apply the plotfunction (as a pure function) to the second part
('#2'), while passing the parameter a from the first part ('#1')
In[12]:=
Apply[Plot[#2, {x, 0, #1},
DisplayFunction -> Identity] & ,
Table[{a, 1/(a - x)}, {a, 0.4, 1.7, 0.2}], 1]
In[13]:=
Show[%, DisplayFunction->$DisplayFunction]
yes, I love 'pure functions' ...
Dr. Wouter L. J. MEEUSSEN
w.meeussen at solair4b.eunet.be