Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.



  • Prev by Date: Re: Resources on using stylesheets for publishing
  • Next by Date: Re: Infinite expression, NDSolve
  • Previous by thread: Re: with machine-precision input
  • Next by thread: Re: Plot in function