299
>Io:=(Pi*dA4)/32j
Io:~—7£ d* 32
8
1
>k: = (G*Io)/l;
a: :=— 32
/
>p:=sqrt (k/I);
i
Gnd4
P'-=2\
ImD2
>T: = (2*Pi)/p;
T-~ 4-
71
CrJtrf4
> równanie:=v=l/T;
równanie := v - —-
> G:=solve(równanie,G);
v2 nlmD2
>Io:=evalf(subs(dane,lo));
>I:=evalf(subs(dane,I))?
> G:=evalf (subs (dane,G));
>rowl:=tau»phi*r*G/l;
> r:=subs(dane,d/2);
>phisubs (dane, solve(rowl,phi));