Hallo Udo,
ich habe vergessen meine Version
zu nennen. Ich hätte erwartet, durch eine geschickte Verwendung der
Optionen von ParametricPlot,
den Farbverlauf auf der Kugeloberfläche näherungsweise
unabhängig vom Abstand des ViewPoint machen zu können.
Aus Deiner Information schließe ich, dass das nicht möglich ist.
Schade.
Schöne Grüße
Reinhard
Udo und Susanne Krause schrieb:
Hallo Reinhard,
Wie kann ich das verhindern?
Ich hätte gerne den Farbverlauf auf der Kugeloberfläche näherungsweise
unabhängig vom Abstand des ViewPoint.
You can get it if you really want ... mit einem Update auf eine neuere
Version. Zum Shading -> True sagt Mma 7: "As of Version 6, Shading has
been superseded by ColorFunction", also rechnen Sie gegebenenfalls
noch unter Version 5.2.
Die Farbgestaltung bleibt in Mma 7.0.1 in einem weiten Bereich
unabhängig vom Abstand
SetOptions[ParametricPlot3D, AxesEdge -> {{1, -1}, {1, -1}, {1, -1}},
AxesLabel -> {"x", "y", "z"}, BoxRatios -> {1, 1, 1},
PlotPoints -> {17, 33}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}];
X = {Sin[t] Cos[p], Sin[t] Sin[p], Cos[t]};
With[{d = 10^5 (* 2, 5, 10^2, 10^6 *)},
ParametricPlot3D[X, {t, 0, \[Pi]}, {p, -\[Pi], \[Pi]},
ViewPoint -> {d, d, d}]
],
jedoch hat Mma 7.0.1 unter Windows XP SP3 einen Bug: bei d = 10^5
kommt das beigelegte Bildchen, d = 10^6 zeigt keine sinnvolle Ausgabe
mehr und der Versuch, am Bilderrahmen mit der Maus zu zupfen lässt den
Mma-Kernel crashen.
Mit den besten Grüssen
Udo.
------------------------------------------------------------------------