Strona0294

294

> omega[0]:=(k/m)^A(1/2);

““"fi

> row:=alpha*a^A 2 /(2*(m*l^A2))>(k/m)^A(1/2);

[k~    1 aa²

rowJ— <---

Im 2 ml²

>rowl:=solve(alpha*a^A2/(2*(ra*l^A2))>(k/m)^A(1/2)_t {alpha});

k

rowl

f fcmA
Icc<2 ’^m	► 4 i

\—ml² n T m

a¹

<a

>rowl[23;

'—mf

^2JJŁ1—^<ct

a

Przykład 2.7

> restart;

>dane:=(G-15000,g=9.81,1-8881,1=1000,E=200GQ000, m=15000/9.81,oniega[l]=2) ;

dane :~G = \5000, g = 9.81, / - 8881, / = 1000, E = 20000000

m-1529.051988, o, =2

>równanie: =m*di££ (x (t) równanie := m		(t,;		2)) +k* (delta [st] +x(t) ) -G-0; + *(8„+x(/))-G = 0
>k:=G/delta[ st ] ;
>równanie; m	^rd^2 1 V^5/ j		G(6„+x(/))_g = 0 ®st

>rowl:=m*dif£ (x(t) , '$' (t,2) )+G/delta[st] *x(t)

Od

rowi := m

8t

₂x(/)

- = 0

> G:=m*g;

G:=mg