|
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. Attachment:
sphereFarFromHere.jpeg |
