Strona0288

12. ZESTAW PRZYKŁADÓW ROZWIĄZANYCH W PROGRAMIE MAPLE V®

Numeracja przykładów odpowiada numeracji przykładów zawartych w skrypcie.

Ze względu na obliczenia przyjęto pochodne cząstkowe po czasie odpowiadające pochodnym zwyczajnym.

Przykład 2.1

>restart;

>with(difforms) :

>de££orm(x=scalar,M=const,m=const,k=const,dx^scalar) ; > norml: = {d(x)=dx>;

norml{d(x) - dx}

>norm2:={dx=d(x) ,d(dx)=d(d(x)) > ;

norml := {dx = d{x\ d(dx) - 0}

>IE0]:=l/2*M*r^A2;

> omega:=dif£(x(t),t)/r;

x(/)

>E:=l/2*m*diff(x(t),t)^A2+1/2*X[0]*omega^A2;

^x(r)

> V[l] :=-m*g*x(t) ;

_V\    _

>V[2]:=l/2*(k*{delta[st]+x(fc))^A2)-(1/2)*k*delta[st]^A2;

Vz--=\k(S_u+x(t))² ĄkSl