MathGroup Archive 2002

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

Search the Archive

RE: To plot solutions, FindRoot as a function


sol[a_, b_] := Module[{x}, x /. FindRoot[a*Tanh[b*x] == x, {x, 0.01},
AccuracyGoal -> 10]]
Plot3D[sol[a, b], {a, 1, 2}, {b, 1, 2}]

DrBob

-----Original Message-----
From: Veniamin Abalmassov [mailto:V.Abalmassov at unibas.ch] 
To: mathgroup at smc.vnet.net
Subject: [mg37369] [mg37341] To plot solutions, FindRoot as a function


Hello,

I'd like to plot the solution of an equation which depends on two 
parameters, e.g.

a*Tanh[b*x] == x

So, I'd like to see it in 3D, one axis is "a", other is "b", and the
last 
is "solution".

I've tried naively to do it as follows:

sol[a_,b_]:=FindRoot[a*Tanh[b*x] == x, {x, {0.01, 0.1}}]
Plot[sol[a,b], {a, 1, 2}, {b, 1, 2}]

And it doesn't work. Help me, please. What can I do?

Thanks a lot,

Veniamin








  • Prev by Date: Different EPS exported file from frontend and kernel
  • Next by Date: Re: To plot solutions, FindRoot as a function
  • Previous by thread: Re: To plot solutions, FindRoot as a function
  • Next by thread: Re: To plot solutions, FindRoot as a function