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

\—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

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

Od

rowi := m

8t

₂x(/)

- = 0

> G:=m*g;

G:=mg