Dieses Bild sollte als Vektorgrafik im SVG-Format neu erstellt werden. Vektorformate haben zahlreiche Vorteile; weitere Information unter Commons:Media for cleanup. Wenn dir eine SVG-Version dieses Bildes vorliegt, so lade diese bitte hoch. Nach dem Hochladen der Datei ist diese Vorlage auf der aktuellen Bildbeschreibungsseite durch die Vorlage {{Vector version available}}, oder kürzer {{Vva}}, zu ersetzen. Es ist empfohlen die neue SVG-Datei „Vector Field on a Sphere.svg“ zu nennen – dann benötigt die Vorlage vector version available (bzw. vva) keinen Parameter.

Beschreibung

BeschreibungVector Field on a Sphere.png	English: The vector field represented by ${\displaystyle \mathbf {f} =2x{\hat {\mathbf {x} }}+y^{2}{\hat {\mathbf {y} }}+z^{2}{\hat {\mathbf {z} }}}$ plotted over the unit sphere. Vectors have been uniformly scaled down to 0.2 times their original length for aesthetics. Originally created as an image for the example problem on the divergence theorem page to replace the less relevant image here.
Datum	5. November 2011
Quelle	Eigenes Werk
Urheber	Glosser.ca
Andere Versionen	Dieses Bild des Typs Math sollte als Vektorgrafik im SVG-Format neu erstellt werden. Vektorformate haben zahlreiche Vorteile; weitere Information unter Commons:Media for cleanup. Wenn dir eine SVG-Version dieses Bildes vorliegt, so lade diese bitte hoch. Nach dem Hochladen der Datei ist diese Vorlage auf der aktuellen Bildbeschreibungsseite durch die Vorlage {{Vector version available}}, oder kürzer {{Vva}}, zu ersetzen. Es ist empfohlen die neue SVG-Datei „Vector Field on a Sphere.svg“ zu nennen – dann benötigt die Vorlage vector version available (bzw. vva) keinen Parameter.

Lizenz

Ich, der Urheberrechtsinhaber dieses Werkes, veröffentliche es als gemeinfrei. Dies gilt weltweit. In manchen Staaten könnte dies rechtlich nicht möglich sein. Sofern dies der Fall ist: Ich gewähre jedem das bedingungslose Recht, dieses Werk für jedweden Zweck zu nutzen, es sei denn, Bedingungen sind gesetzlich erforderlich.

Mathematica 7.0 Source

scaling = 0.2;
stepSize = 1/10;

makeVectors[data_, f_] := Map[{Arrowheads[0.01], Arrow[{#, # + scaling*f @@ #}]} &, data]
upperHemi[x_, y_] := Sqrt[1 - x^2 - y^2]
lowerHemi[x_, y_] := -Sqrt[1 - x^2 - y^2]
f[x_, y_, z_] := {2 x, y^2, z^2}

upperPoints = 
  Flatten[Table[{x, y, upperHemi[x, y]}, {x, -1, 1, 
     stepSize}, {y, -Sqrt[1 - x^2], Sqrt[1 - x^2], stepSize}], 1] ;
lowerPoints = 
  Flatten[Table[{x, y, lowerHemi[x, y]}, {x, -1, 1, 
     stepSize}, {y, -Sqrt[1 - x^2], Sqrt[1 - x^2], stepSize}], 1];

upperVectors = makeVectors[upperPoints, f];
lowerVectors = makeVectors[lowerPoints, f];

Graphics3D[{{Opacity[0.8], Sphere[]}, {Opacity[0.7], 
   upperVectors~Join~lowerVectors}}, ViewPoint -> {Back, Top}, 
 Axes -> True, AxesLabel -> {x, y, z}, LabelStyle -> Directive[Large],
  ImageSize -> {1200, 1200}]