DMUG-Archiv 2008

Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

Re: ImplicitPlot

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/


Verweise:
Frühere   Chronologischer Index   Spätere
Vorherige   Thematischer Index   Nächste

DMUG DMUG-Archiv, http://www.mathematica.ch/archiv.html