RE: ContourPlot3D und ContourLines

["Wolf, Hartmut" <Hartmut.Wolf@XXXXXXX.com>]

>-----Original Message-----
>From: Milosz Walter [mailto:Milosz.Walter@XXXXXXX.de]
>Sent: Friday, September 12, 2003 3:00 PM
>To: demug@XXXXXXX.ch
>Subject: ContourPlot3D und ContourLines
>
>
>Hallo, 
>
>ich versuche bei einem ContourPlot3D die Konturlinien weg zu bekommen.
>Ein Mesh->False, SurfaceMesh->False oder ContourLines->False
>funktioniert jeweils nicht (zumindest nicht mit ContourPlot3D) und die
>Konturlinien werden immer mitgezeichnet. Bei hocher Rekursionstiefe
>sieht die Ausgabe dann echt mies aus.
>
>Hat jemand von Euch eine Ahnung wie ich ein ContourPlot3D ohne
>Konturlinien bekommen koennte?
>
>Vielen Dank im Voraus.
>Milosz
>
>
>
>
Für 2D gibt es eine Option:

ContourPlot[Sin[x y], {x, -5, 5}, {y, -5, 5}, ContourLines -> False, 
  PlotPoints -> 200, ColorFunction -> (Hue[#/2 + .15] &)]


...die funktioniert aber nicht bei 3D. Dort kann man einfach in das erzeugte
graphische Objekt die Direktive EdgeForm[] (heißt: keine Kanten zeichen für
die Polygone) an der passenden Stelle einsetzen:

<< Graphics`ContourPlot3D`

Eine Möglichkeit ist so:

Block[{Show}, 
  Insert[ContourPlot3D[
      Cos[Sqrt[x^2 + y^2 + z^2]], {x, -2, 2}, {y, 0, 2}, {z, -2, 2}], 
    EdgeForm[], {1, 1, 1}]]


...oder etwas konventioneller:

cp3d = ContourPlot3D[
      Cos[Sqrt[x^2 + y^2 + z^2]], {x, -2, 2}, {y, 0, 2}, {z, -2, 2}, 
      DisplayFunction -> Identity];

Show[Insert[cp3d, EdgeForm[], {1, 1}], DisplayFunction -> $DisplayFunction]


--
Hartmut Wolf