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

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