Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

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