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

```

• Prev by Date: Re: help on bootstrap sample
• Next by Date: HelpBrowser Mathematica Book 1.8.3 on Linux
• Previous by thread: Re: To plot solutions, FindRoot as a function
• Next by thread: Re: To plot solutions, FindRoot as a function