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