Додаток 3

Програма розрахунку динамічних характеристик аксіального КШМ

Програма розрахунку динамічних характеристик дезаксіального КШМ

pi=3.14159265359

kp=pi/180: коефіцієнт переводу градусів в радіани

r=0.04 : l=0.25

n=3000

data 8328,26445,17881,13472,10288,8083,6614,5389,4654,3919,3307,2694,2205,

1837,1592,1225,1102,857,735,-490,-441,-367,-294,-245,0,122,245,490,857,1225, 1715,2205,2939,3429,4287,5389,8328

w=pi*n/30

open "ZAD_2.TXT" for output as #1

e=0.001

gosub 100

e=0.002

gosub 100

e=0.003

gosub 100

e=0.004

gosub 100

end

100 k=25*e

print #1, "e="; using "#.###";e

print #1,

print #1, " j"," p1"," p2"," N"

restore

for fiGrad=0 to 360 step 10

fi=kp*fiGrad

read p1

A=l^(-2)-(sin(fi)-k)^2

S=r*(((1+1/l)^2-k^2)^0.5-A^0.5-cos(fi))

V=r*w*((sin(fi)-k)*cos(fi)/A^0.5+sin(fi))

j=r*w^2*((((cos(fi))^2-sin(fi)*(sin(fi)-k))*A+((cos(fi))^2)*(sin(fi)-k)^2)*A^(-1.5)+cos(fi))

p2=-0.663*j

z=(r*sin(fi)-e)/l

t=z/sqr(1-z^2)

p=p1+p2

N=p*t

print #1, fiGrad,

print #1, using "-####.##";j,:print #1, ,

print #1, using "-#####.##";p1,:print #1, ,

print #1, using "-####.##";p2,:print #1, ,

print #1, using "-####.##";N

next

print #1,

return

Додаток 4

Аксіальний КШМ (е=0)

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13