Основы автоматизированного проектирования химических производств. Миронов В.М - 61 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

61
IF T > 1 THEN
PRINT "Ширина диска по внутреннему радиусу, мм "
PRINT "Ширина диска по наружному радиусу, мм "
r = 11
ELSE
PRINT "Ширина диска, мм "
r = 10
END IF
PRINT "Напряжение на внутренней поверхности, МПа "
PRINT "Напряжение на наружной поверхности, МПа "
PRINT "Угловая скорость вращения диска, 1/с "
PRINT "Требуемая точность вычислений (эпсилон) "
FOR i = 1 TO r
a(i) = inmark(9 + i, 60)
NEXT
'Преобразование исходных данных
e = a(1) * 1000000!
ro = a(2)
mi = a(3): x0 = a(4) / 1000: xn = a(5) / 1000!
IF T > 1 THEN
S1 = a(6) / 1000!
S2 = a(7) / 1000!
ELSE
S1 = a(6) / 1000!
S2 = S1
END IF
G1 = a(r - 3) * 1000000!: G2 = a(r - 2) * 1000000!
w = a(r - 1): eps = a(r)
' Вычисление коэффициентов уравнения (4.2)
CLS :
100 a0 = e * mi / x0 / (1 - mi ^ 2): a1 = e / (1 - mi ^ 2)
b0 = a1 * mi / xn: b1 = a1
'Определение числа разбиений и массивов переменных
PRINT "Введите число разбиений радиуса диска"
INPUT "кратное 10 и не более 500........... ", n
REDIM x(2 * n + 2, 4), y(2 * n + 2, 4), YS(2 * n + 2), gr(2 * n + 2)
REDIM c(2 * n + 2, 4), d(2 * n + 2, 4), gra(2 * n + 2), gta(2 * n + 2
REDIM z(2 * n + 2, 4), zs(2 * n + 2, 4), p(2 * n + 2, 4) , gt(2 * n + 2)
REDIM f(2 * n + 2, 4), m(2 * n + 2, 4), k(2 * n + 2, 4), q(2 * n + 2, 4)

Страницы