Vector Field

Author

Eric W. Weisstein
December 6, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Algebra/VectorField.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/VectorField.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Initialization

Examples

V5

Off[Power::"infy",∞::"indet"]

<<Graphics`PlotField`

Show[GraphicsArray[{{
PlotVectorField[{x,y},{x,-2,2},{y,-2,2},PlotLabel->TraditionalForm[{x,y}],DisplayFunction->Identity],
PlotVectorField[{x/Sqrt[x^2+y^2],y/Sqrt[x^2+y^2]},{x,-2,2},{y,-2,2},PlotLabel->{x/Sqrt[x^2+y^2],y/Sqrt[x^2+y^2]},DisplayFunction->Identity]
},{
PlotVectorField[{y,x},{x,-2,2},{y,-2,2},PlotLabel->TraditionalForm[{y,x}],DisplayFunction->Identity],
PlotVectorField[{-y,x}/Sqrt[x^2+y^2],{x,-2,2},{y,-2,2},
PlotLabel->TraditionalForm[{-y,x}],DisplayFunction->Identity]
}
}]]

V7

GraphicsGrid[Partition[VectorPlot[#,{x,-2,2},{y,-2,2},PlotLabel->#]&/@{{x,y},{y,x},(({x,y})/(Sqrt[(x^2)+(y^2)])),(({-y,x})/(Sqrt[(x^2)+(y^2)]))},2],ImageSize->400]