RE: To plot solutions, FindRoot as a function

*To*: mathgroup at smc.vnet.net*Subject*: [mg37355] RE: [mg37341] To plot solutions, FindRoot as a function*From*: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>*Date*: Fri, 25 Oct 2002 02:46:38 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

>-----Original Message----- >From: Veniamin Abalmassov [mailto:V.Abalmassov at unibas.ch] To: mathgroup at smc.vnet.net >Sent: Thursday, October 24, 2002 8:56 AM >To: mathgroup at smc.vnet.net >Subject: [mg37355] [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 > > > > ¿perhaps something like << Graphics`Graphics3D` gtab = Table[ Plot[x /. FindRoot[a*Tanh[b*x] == x, {x, {0.001, 0.1}}], {a, 1, 1.01}, DisplayFunction -> Identity, PlotRange -> All, AxesOrigin -> {1, 0}], {b, 1, 1.01, .001}] Show[StackGraphics[gtab]] ? -- Harmut Wolf