       multiple plots from a list of parameters?

• To: mathgroup at smc.vnet.net
• Subject: [mg64480] multiple plots from a list of parameters?
• From: "1.156" <rob at piovere.com>
• Date: Sat, 18 Feb 2006 02:50:22 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```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

```

• Prev by Date: Re: SetOptions with Column
• Next by Date: Beginner--Using subscripts in vectors
• Previous by thread: Re: How to do a family of plots?
• Next by thread: Re: multiple plots from a list of parameters?