Tag: ua

I’ve always been intrigued by differential equations. Here’s an example of use of the VisualDSolve package for plotting the phase of a differential equation.

In[]:=

Needs["VisualDSolve`VisualDSolve`"]

PhasePlot[{Derivative[1][x][t]==y[t],​​Derivative[1][y][t]==–x[t]–y[t]/20},{x[t],y[t]},{t,0,​​5π},{x,–1,1},{y,–1,1},InitialValues{1/2,1/2},​​ShowInitialValuesTrue,FrameLabel{x,y},RotateLabelFalse]

Out[]=