RE: To plot solutions, FindRoot as a function
- To: mathgroup at smc.vnet.net
- Subject: [mg37369] RE: [mg37341] To plot solutions, FindRoot as a function
- From: "DrBob" <drbob at bigfoot.com>
- Date: Fri, 25 Oct 2002 02:47:32 -0400 (EDT)
- Reply-to: <drbob at bigfoot.com>
- Sender: owner-wri-mathgroup at wolfram.com
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