Plot in function
- To: mathgroup at smc.vnet.net
- Subject: [mg128405] Plot in function
- From: Meike <meike at blub.net>
- Date: Tue, 16 Oct 2012 20:11:10 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
I would like to make a function that plots a variable over a parameter range. I tried:
test[f_, sol_] :=
Table[Plot[
f /. DeleteCases[sol, i], {i[[1]], 0.9 i[[2]], 1.1 i[[2]]}], {i,
sol}]
But this gives the error:
test[x^2 + y^2, {x -> 0, y -> 0}]
During evaluation of In[108]:= Plot::write: Tag Part in i[[1]] is Protected. >>
I see that i cannot define a part in the variable of a plotfunction, but also if I first assign i[[1]] to a variable, I get a problem with the bounds.
test[f_, sol_] :=
Table[a = i[[1]];
Plot[f /. DeleteCases[sol, i], {a, 0.9 i[[2]], 1.1 i[[2]]}], {i,
sol}]
I don't know of a good solution. Thanks in advance.