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

```

• Prev by Date: Different EPS exported file from frontend and kernel
• Next by Date: Re: To plot solutions, FindRoot as a function
• Previous by thread: Re: To plot solutions, FindRoot as a function
• Next by thread: Re: To plot solutions, FindRoot as a function