je mogoče poustvariti z uporabo vektorske grafike kot SVG-datoteko. To ima več prednosti; več informacij je na razpolago na strani Commons:Media for cleanup. Če je SVG-oblika te datoteke že na razpolago, jo, prosimo, naložite. Potem, ko boste SVG naložili, to predlogo zamenjajte z izrazom {{vector version available|ime nove slike.svg}}.

OpisVector 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
Vir	lastno delo
Avtor	Glosser.ca
Druge različice	To sliko je mogoče poustvariti z uporabo vektorske grafike kot SVG-datoteko. To ima več prednosti; več informacij je na razpolago na strani Commons:Media for cleanup. Če je SVG-oblika te datoteke že na razpolago, jo, prosimo, naložite. Potem, ko boste SVG naložili, to predlogo zamenjajte z izrazom {{vector version available|ime nove slike.svg}}.

Jaz, imetnik avtorskih pravic na tem delu, izročam to delo v javno domeno. To velja po vsem svetu. V nekaterih državah to pravno morda ni mogoče. Če je tako, Vsakomur dajem (v okviru zakonskih omejitev) brezpogojno pravico, da gradivo uporablja v kateri koli namen.

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}]