Re: multiple plots from a list of parameters?
- To: mathgroup at smc.vnet.net
- Subject: [mg64501] Re: [mg64480] multiple plots from a list of parameters?
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 19 Feb 2006 05:36:14 -0500 (EST)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
p[f_,L_]:=(1-f) ArcCos[Exp[-2/L]];
Plot[Evaluate[f/.
Solve[p[f,L]==#,f]&/@Range[400,1600,400]],
{L,0.2,10},PlotStyle->{Red,Purple,Blue,Green}];
Bob Hanlon
>
> From: "1.156" <rob at piovere.com>
To: mathgroup at smc.vnet.net
> Subject: [mg64501] [mg64480] multiple plots from a list of parameters?
>
> Apparently I finally stumbled into a way to invert a function p[f,L] on
> which I recently posted. But after a lot of trying I can't seem to
> stumble my way into the next step. The code below works:
>
> p[f_,L_] =: (defined)
>
> result16 := FindRoot[p[f, L] == 1600, {f, 0.5}];
> result12 := FindRoot[p[f, L] == 1200, {f, 0.5}];
> result08 := FindRoot[p[f, L] == 800, {f, 0.5}];
> result04 := FindRoot[p[f, L] == 400, {f, 0.5}];
>
> pL16 = Plot[f /. result16 // Evaluate, {L, 0.2, 10}]
> pL12 = Plot[f /. result12 // Evaluate, {L, 0.2, 10}]
> pL08 = Plot[f /. result08 // Evaluate, {L, 0.2, 10}]
> pL04 = Plot[f /. result04 // Evaluate, {L, 0.2, 10}]
>
> Show[pL16,pL12,pL08,pL04]
>
> I end up with 4 plots. Even I can tell this is crude and no way to do
> business. I need to be able to use a list={1600,1200,800,400} and get
> these 4 (or n plots) plots done in less than n sets of statements. All
> my attempts to use the list fail. Can someone give me some syntax that
> will do this? Many thanks, Rob
>
>