Re: To plot solutions, FindRoot as a function

*To*: mathgroup at smc.vnet.net*Subject*: [mg37352] Re: To plot solutions, FindRoot as a function*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Fri, 25 Oct 2002 02:46:31 -0400 (EDT)*Organization*: Universitaet Leipzig*References*: <ap861r$53e$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, *What* can youe do ? Read the manual carefull ? sol[a_?NumericQ, b_?NumericQ] := x /. FindRoot[a*Tanh[b*x] == x, {x, {0.01, 0.1}}] Plot3D[sol[a, b], {a, 1, 2}, {b, 1, 2}] Regards Jens Veniamin Abalmassov wrote: > > 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