CV1 - Vektorová pole soustavy diferenciálních rovnic

Ukázka  vektorového pole lineárních diferenciálních rovnic

p1=VectorPlot[{-y,x},{x,-5,5},{y,-5,5},VectorScale->0.1];

p2=VectorPlot[{-y,x},{x,-5,5},{y,-5,5},VectorScale->{Automatic,Automatic,None}];

Show[GraphicsRow[{p1,p2}]]

p1=VectorPlot[{x+2 y,-2 x+y},{x,-5,5},{y,-5,5},VectorScale->0.1];

p2=VectorPlot[{x+2 y,-2 x+y},{x,-5,5},{y,-5,5},VectorScale->{Automatic,Automatic,None}]);

Show[GraphicsRow[{p1,p2}]]

p1=VectorPlot[{-3 x+y,-x-y},{x,-5,5},{y,-5,5},,VectorScale->0.1];

p2=VectorPlot[{-3 x+y,-x-y},{x,-5,5},{y,-5,5},VectorScale->{Automatic,Automatic,None}];

Show[GraphicsRow[{p1,p2}]]

p1=VectorPlot[{-4 x+y,-5 x+2 y},{x,-5,5},{y,-5,5},VectorScale->0.1];

p2=VectorPlot[{-4 x+y,-5 x+2 y},{x,-5,5},{y,-5,5},VectorScale->{Automatic,Automatic,None}];

Show[GraphicsRow[{p1,p2}]]

p1=VectorPlot[{-x-y,2 x-4 y},{x,-5,5},{y,-5,5},VectorScale->0.1];

p2=VectorPlot[{-x-y,2 x-4 y},{x,-5,5},{y,-5,5},VectorScale->{Automatic,Automatic,None}];

Show[GraphicsRow[{p1,p2}]]

Ukázka  vektorového pole nelineárních diferenciálních rovnic

p1=(Needs["VectorPlots`"];VectorPlot[{-2 x-y-x y,-x-2 y-x y},{x,-5,5},{y,-5,5},Frame->True,DisplayFunction->Identity]);

p2=VectorPlot[{-2 x-y-x y,-x-2 y-x y},{x,-5,5},{y,-5,5},VectorScale->{Automatic,Automatic,None}];

Show[GraphicsRow[{p1,p2}]]

p1=VectorPlot[{y (x-3),y y-x x+4},{x,-5,5},{y,-5,5}];

p2=VectorPlot[{y (x-3),y y-x x+4},{x,-5,5},{y,-5,5},VectorScale->{Automatic,Automatic,None}];

Show[GraphicsRow[{p1,p2}]]

Ukázka  vektorového pole lineárních diferenciálních rovnic pro n=3

p1=VectorPlot3D[{4 x-y,3 x+y-z,x+z},{x,-5,5},{y,-5,5},{z,-5,5}];

p2=VectorPlot3D[{4 x-y,3 x+y-z,x+z},{x,-5,5},{y,-5,5},{z,-5,5},VectorScale->{Automatic,Automatic,None}];

Show[GraphicsRow[{p1,p2}]]