Guten Abend Peter und Christian,
vorausgesetzt mit z^(1/3) ist die auch für negative Argumente
reellwertige dritte Wurzel gemeint, kann
realr[t_][temp_] :=
Evaluate[Rationalize[r[t][temp], 0] /. z_^(1/3) :> Root[#^3 - z &, 1]]
gegebenenfalls helfen.
und man kann mit
Plot3D[Evaluate[
Rationalize[r[x, y], 0] /. z_^(1/3) :> Root[#^3 - z &, 1]], {y,
0.0005, 0.0025}, {x, -10, 30},
RegionFunction -> Function[{y, x, z}, 34 < 40000 y - x < 46],
PlotPoints -> 50]
die Front anschauen, in oder an der der direkte ContourPlot von gestern
endete.
Gruss
Udo.
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
|