Needs["Graphics`PlotField`"]
PlotVectorField[{-y,2 x},{x,-1,1},{y,-1,1}]
PlotGradientField[x^2 y,{x,-1,1},{y,-1,1}]

Needs["Graphics`PlotField3D`"]
PlotVectorField3D[{-y,2 x,z},{x,-1,1},{y,-1,1},{z,-1,1}]
PlotGradientField3D[x^2 y z,{x,-1,1},{y,-1,1},{z,-1,1}]
