|
|
|
|
|
|
|
|
Remove["Global`*"]
lstd= (* Liste der Differentialgleichungen *)
tabf= (* Liste der zu berechnenden Funktionen *)
par:= (* Variable *)
DSolve[lstd,tabf,par]
lsg=%[[1]] ;
fx[t_]=x[t] /. lsg;
fy[t_]=y[t] /. lsg;
fx[t_]=ComplexExpand[fx[t]] //Simplify
fy[t_]=ComplexExpand[fy[t]] //Simplify
ParametricPlot[{fx[t],fy[t]},{t,0,2 Pi},AspectRatio->1]
Beispiel
Randbedingungen
Remove["Global`*"]
lstd={x'[t]==2 y[t],y'[t]==-0.5 x[t],x[0]==1,y'[1]==2};
tabf={x[t],y[t]};
par:= t
DSolve[lstd,tabf,par]
lsg=%[[1]];
fx[t_]=x[t] /. lsg;
fy[t_]=y[t] /. lsg;
fx[t_]=ComplexExpand[fx[t]] //Simplify
fy[t_]=ComplexExpand[fy[t]] //Simplify
ParametricPlot[{fx[t],fy[t]},{t,0,2*Pi},AspectRatio->Automatic]
