Datei:Vector Field on a Sphere.png
Größe dieser Vorschau: 600 × 600 Pixel. Weitere Auflösungen: 240 × 240 Pixel | 480 × 480 Pixel | 768 × 768 Pixel | 1.200 × 1.200 Pixel.
Originaldatei (1.200 × 1.200 Pixel, Dateigröße: 439 KB, MIME-Typ: image/png)
|
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
| Beschreibung |
English: The vector field represented by 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 | |||
| Quelle | Eigenes Werk | ||
| Urheber | Glosser.ca | ||
| Andere Versionen |
|
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}]
Dateiversionen
Klicke auf einen Zeitpunkt, um diese Version zu laden.
| Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
|---|---|---|---|---|---|
| aktuell | 00:53, 5. Nov. 2011 | | 1.200 × 1.200 (439 KB) | wikimediacommons>Rayhem |
Dateiverwendung
Die folgende Seite verwendet diese Datei:
