Michael Booth
16.1
Calculus 3
Long
#20

VectorPlot[{(x^2-2*Abs[x])*x,(x^2-2*Abs[x])*y},{x,-5,5},{y,-5,5},VectorStyle->{Tiny,Automatic,None},VectorPoints->Fine]

#26

VectorPlot[{x/((Sqrt[x^2+y^2])),y/((Sqrt[x^2+y^2]))},{x,-5,5},{y,-5,5},VectorStyle->{Tiny,Automatic,None},VectorPoints->Fine]

StreamPlot[{x/((Sqrt[x^2+y^2])),y/((Sqrt[x^2+y^2]))},{x,-5,5},{y,-5,5},VectorStyle->{Tiny,Automatic,None},VectorPoints->Fine,StreamStyle->Red]

#36 a

VectorPlot[{1,x},{x,-2,2},{y,-2,2}]

These flow lines seem to be parabolic.


b

Eigensystem[{{0,0},{1,0}}]