300

Przykład 8.3

>    restart?

>dane:=(I [1]~60,I[2] =60,6=83 000 0000 00 _# Io=s0.00000720, M[13-150,omega-300,l*0.3);

dane:=I_x = 60, I₂ - 60, G -83000000000,lo = .72010^-5,M_l =150,

= 300, / = .3

>    rowl: = {(k[13+k[2 3)-I[l]*omega^A2)*B[13-k[2]*B[2]=M[1];

row\ := (k_{ + k₂—I₁ co²) B₁ ~k₂ B₂ -M_x

>    row2:=-k[2]*B[1] + (k[2]-I[2]*amaga^A2)*B[2]=0;

row2 := -k₂ B_{ + (k₂ -1₂ co²) B₂ = 0

>    row3:=solve({rowl, row2> , {B[1],B[2]});

_k₂M_}_

k\ k₂ — k_x I₂ co² - k₂1₂ co² -/j co² k₂ +I_X co⁴ /₂ ’

_(~k₂ + /₂ oy)M_l_

¹ kj_ k₂ - k_x I₂ co²-k₂1₂ co²    oo² k₂ +/, co⁴1₂

>k[l]:=subs(dane,G*Io/l);

k_x :=, 1992000000 10⁷

>    k[2]:=subs(dane,G*Io/l);

k₂ :=. 1992000000 10⁷

>    subs(dane,row3[1]);

B₂ = .0003483881799

>    subs(dane,row3[2]);

Ą =-.0005960376092

Przykład 9.1

>    restart;

>    dane: = (Q=981,h=0.025,1=1,E=200000000000,g=9.81);

dane =Q = 981, h = .025, 1 = \,E = 200000000000, g = 9.81 >f [1] :s=Q*l^A3 / (3*E*I) ;

^Jl' 3 El

>f[2]:=Q*1^A3/(48*E*I);

^h ' 48 El