MathGroup Archive 2004

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

Search the Archive

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



  • Prev by Date: Re: How to convert a flat scan of a 3D object, into a 3D picture in cylindrical coordinates?
  • Next by Date: Re: another bug...
  • Previous by thread: UnitStep Integration Rules
  • Next by thread: RE: Undo and Plot3D