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