Re: Probleme mit NDSolve

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo Alexander,

könnten Sie nicht freundlicherweise das Notebook anhängen (Dateianhang  
auswählen und die entsprechende Notebookdatei auswählen), dann müsste man  
nicht alles abtippen am Sonnabend ...

Gruss
Udo.

On Sat, 15 Jan 2011 15:11:25 +0100, Alexander Knöttner  
<alex.knoettner@XXXXXXX.at> wrote:

> Werte={m1®2,m2®2,g®9.81,l0®40,d®10000,a®30.21}
> m=f=d*-2*d*
> Fsx1=D[f,x21[t]]/.Werte
> Fsx2=D[f,x22[t]]/.Werte
> Fsy1=D[f,y21[t]]/.Werte
> Fsy2=D[f,y22[t]]/.Werte
> s=NDSolve[{x21''[t]==Fsx1/m1,x21[0]==0,x21'[0]¦30,m2*x22''[t]==Fsx2,x22[0]==50/,x22'[0]==0,m1*y21''[t]==-m1*g+Fsy1,y21[0]==0,y21'[0]¦70,m2*y22''[t]==-m2*g+Fsy2,y22[0]¦50/,y22'[0]==0},{x21[t],x22[t],y21[t],y22[t]},{t,0,10}]/.Werte
> ParametricPlot[Evaluate[{{x21[t],y21[t]}/.s,{x22[t],y22[t]}/.s}],{t,0,0.5}]