Реферат: Расчет затвердевания плоской отливки

Программа

CLEAR , , 2000

DIM T(1000), T1(1000), AP(1000), BP(1000), Vox(1000), N$(50)

2 CLS

N = 100: KV = 50: N9 = 5: L = .015

TM = 293: TI = 1345: TS = 1312.5

BM = 1300: a1 = .000036: a2 = .000021

TA0 = .01: ETA = .01: E = .01

l1 = 195: l2 = 101

R0 = 8600: LS = 221000

AF = 0: Pi = 3.14159265359#

3 PRINT "Числошагов N, штук"; N

PRINT "Длина отливки L, м"; L

PRINT "Температура формы Tf, К"; TM

PRINT "Начальная температура сплава Tн, К"; TI

PRINT "Температура затвердевания Tz, К"; TS

PRINT "Bф "; BM

PRINT "Первый шаг по времени, Tk0 "; TA0

PRINT "Точность по времени, Еt "; ETA

PRINT "Точность по температуре, ЕТ "; E

PRINT "Температуропроводность Ме твердого, а1 "; a1

PRINT "Температуропроводность Ме жидкого, а2 "; a2

PRINT "LS= "; LS

PRINT "Коэф. теплопроводности, l1 "; l1

PRINT "Коэф. теплопроводности, l2"; l2

PRINT "Плотность Ме твердого, р1 "; R0

INPUT "Изменить данные <y/n>"; QV$

IF QV$ = "Y" THEN GOSUB 222

48 N1 = N - 1