RE: Undo and Plot3D

• To: mathgroup at smc.vnet.net
• Subject: [mg47693] RE: [mg47683] Undo and Plot3D
• From: "Wolf, Hartmut" <Hartmut.Wolf at t-systems.com>
• Date: Thu, 22 Apr 2004 02:38:39 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com
• Thread-topic: [mg47683] Undo and Plot3D

```>-----Original Message-----
>From: Feleki Zsolt [mailto:feleki at hbt.arch.ethz.ch]
To: mathgroup at smc.vnet.net
>Sent: Wednesday, April 21, 2004 11:24 AM
>To: mathgroup at smc.vnet.net
>Subject: [mg47693] [mg47683] Undo and Plot3D
>
>
>Hallo Mathgroup!
>
>Here are two questions:
>
>1. Is it possible to set somewhere the number of steps that
>can be undone
>(Edit/Undo) with Mathematica?
>
>2. I have the following problem (see the inserted notebooks below):
>
>I define a function h is derived from another function
>calcuated by NDSolve.
>Then this function h can very well be plotted with Plot using either
>Compiled->False, or
>Evaluate or definined h as a function of the variable a by h[a_]:=....
>The example in the notebook is for Compiled False.
>
>
>However when I want to include another variable x, and plot
>h/Sqrt[x] with Plot3D
>nothing seems to work. I have tried several combinations with Compiled
>->False or
>h[a_,x_]:=... and Evaluate[] or Including Sqrt[x] in the integral but I
>didn't get the result.
>Does anyone no the answer? I use Mathematica version 4.2.
>
>
>Notebook 1 with Plot
>
>Notebook[{
>Cell[BoxData[
>\(\(\( (*\
>Example\ with\ Plot\ *) \)\(\[IndentingNewLine]\)\(\
>\[IndentingNewLine]\)\(\(Clear[f, z, a, h];\)\[IndentingNewLine]
>res =
>NDSolve[{\(f'''\)[z] + f[z]*\(f''\)[z] \[Equal] 0,
>f[0] == 0, \(f'\)[0] ==
>1, \(f''\)[0] \[Equal] \(-0.627554883\)}, {f}, {z, 0,
>10^6}]\[IndentingNewLine]
>\(h =
>1/\(\[Integral]\_0\%20\((Exp[\(-a\)*\(\[Integral]\_0\%t\((f[
>z] /.
>res)\) \[DifferentialD]z\)])\) \
>\[DifferentialD]t\);\)\[IndentingNewLine]
>Plot[h, {a, 0, 100}, PlotStyle \[Rule] {RGBColor[1, 0, 0]},
>PlotRange \[Rule] All, Frame \[Rule] Automatic,
>Compiled \[Rule] False]\[IndentingNewLine]\[IndentingNewLine]
>\)\)\)], "Input"]
>},
>FrontEndVersion->"4.2 for Microsoft Windows",
>ScreenRectangle->{{0, 1280}, {0, 951}},
>WindowSize->{922, 740},
>WindowMargins->{{Automatic, 158}, {-108, Automatic}}
>]
>
>Notebook 2 with Plot3D
>
>Notebook[{
>Cell[BoxData[{
>\(\(Clear[f, z, a, h];\)\), "\[IndentingNewLine]",
>\(res =
>NDSolve[{\(f'''\)[z] + f[z]*\(f''\)[z] \[Equal] 0,
>f[0] == 0, \(f'\)[0] ==
>1, \(f''\)[0] \[Equal] \(-0.627554883\)}, {f}, {z, 0,
>10^6}]\), "\[IndentingNewLine]",
>\(\(h =
>1/\(\[Integral]\_0\%20\((Exp[\(-a\)*\(\[Integral]\_0\%t\((f[
>z] /.
>res)\) \[DifferentialD]z\)])\) \
>\[DifferentialD]t\);\)\), "\[IndentingNewLine]",
>\(Plot3D[h/Sqrt[x], {a, 0, 100}, {x, 0.1, 1},
>Compiled \[Rule] False]\)}], "Input"]
>},
>FrontEndVersion->"4.2 for Microsoft Windows",
>ScreenRectangle->{{0, 1280}, {0, 951}},
>WindowSize->{922, 740},
>WindowMargins->{{Automatic, 65}, {Automatic, 47}}
>]
>
>
>
>Best regards,
>Zsolt Feleki
>Doktorand
>Prof. Dr. Bruno Keller
>Hochbautechnik/ Professur f=FCr Bauphysik
>ETH H=F6nggerberg HIF C23.2, 8093 Z=FCrich
>Tel: 01-633 26 70
>Fax: 01-633 10 41
>http://www.bph.hbt.arch.ethz.ch
>
>

Simply debug: If you define h as a certain (the first and only one in your case) solution (not as a list of)...

h = 1/Integrate[Exp[(-a)*Integrate[f[z] /. First[res], {z, 0, t}]], {t, 0, 20}]

...then...

Plot3D[h/Sqrt[x], {a, 0, 100}, {x, 0.1, 1}, Compiled -> False]

...works.

--
Hartmut Wolf

```

• Prev by Date: MathJFrame, MathGraphicsJPanel question
• Next by Date: RE: Re: Subscript Variable
• Previous by thread: Undo and Plot3D
• Next by thread: Re: Subscript Variable