Re: Funktionswerte in 3D durch Farben auf einer Kugel darstellen

[Martin Haas <Martin_Haas@XXXXXXX.net>]

Hallo Gunter,

das kann man mit ParametricPlot3D erreichen, siehe ein Beispiel:

 << Graphics`Graphics3D`

 fDemo[theta_, phi_] := SphericalHarmonicY[1, 0, theta, phi];

 r = 1;
 scale = 1/2 Sqrt[3/Pi];

 ParametricPlot3D[{r Sin[th]Cos[ph], r Sin[th]Sin[ph], r Cos[th], 
                   GrayLevel[1/scale Abs[fDemo[th, ph]]]}, 
      {th, 0, Pi}, {ph, 0, 2 Pi}, PlotPoints -> 35, Lighting -> False];

"scale" skaliert einfach den Funktionsumfang der Beispielfunktion Y_10 auf 
[0,1] hoch. Anstelle von GrayLevel[grauwert] kann man auch RGBcolor[r,g,b] 
einsetzen, dann wird es farbig! Wenn Lighting->True ist, funken die bunten 
Default-Lichtquellen dazwischen und man kann die funktionsabhängigen Farben 
nicht so recht erkennen. 

Viele Grüße, 
 
Martin Haas


On Monday 02 August 2004 19:38, you wrote:
> Stuttgart, den 2. August 2004
>
> An alle Mathematica-Kundigen !
>
> Nehmen Sie an, es existiere eine Funktion
>
>   fDemo[ theta, phi ] mit dem Wertebereich [ 0 .. 1 ]
>
> fuer ein sphaerisches Koordinatensystem mit den Variablen  { r, theta, phi
> }.
>
> Wie kann man die Funktionswerte auf einer Kugeloeberflaeche ( z.B. mit r=1
> ) durch eine Farb- oder Graukodierung des Funktionswertes darstellen ?
>
> Man soll also auf der Kugeloberflaeche an den unterschiedlichen Farben oder
> Grauwerten die Struktur der Winkelabhaengigkeit der Funktion erkennen
> koennen ..
>
> Vielen Dank fuer jeden Hinweis !
>
> Mit freundlichen Gruessen,
>
> Gunter Woysch