Undo and Plot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg47683] Undo and Plot3D
- From: Feleki Zsolt <feleki at hbt.arch.ethz.ch>
- Date: Wed, 21 Apr 2004 05:23:37 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
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