Mathematica 9 is now available
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: [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