Программа 35. Задача 49. Кручение
> | restart; |
> | n:=3:#Число участков |
> | d:=0.09,0.14,0.08,0.07: # Диаметры, м |
> | G:=8*10^10: # Модуль сдвига |
> | M0:=30,-10,20: # Моменты, кНм |
> | l:=1.1,1.2,0.8: # Длины, м |
> | for i to 2 do # Моменты инерции, м4 |
> | J[i]:=evalf(Pi*d[i]^4/32); |
> | od; |
> | J[3]:=evalf(Pi*(d[3]^4-d[4]^4)/32); |
> | for i to n do # Моменты в сечениях |
> | M[i]:=add(M0[k],k=i..n); |
> | od; |
> | for i to n do # Углы относительные |
> | ft[i]:=M[i]*1000*l[i]/G/J[i]; |
> | od; |
> | for i to n do # Углы абсолютные |
> | f[i]:=add(ft[k],k=1..i); |
> | od; |
> | for i to n do |
> | W[i]:=J[i]/(d[i]/2); #Моменты сопротивления м3 |
> | tau[i]:=M[i]*1e3*d[i]/J[i]/2/1e6;#Кас.напр.,MPa |
> | od; |
> |