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

FOR i = 1 TO N

Vox(i) = (T1(i) - T(i)) / dta

T1(i) = T(i)

NEXT i

VS = DX / dta

Xf = (K - 1) * DX

IF K <> KV1 + 1 THEN GOTO 33

KV1 = KV1 + KV

GOSUB 777

33 GOTO 105

103 PRINT "РЕЗУЛЬТАТЫРАСЧЕТА": CLS : GOSUB 777

105 IF K < N THEN GOTO 101

GOSUB 777

Vz = 1000 * L / TA

Voxl = (TI - TS) / TA

PRINT "Полное время затв. отл. TA="; TA; "с."

PRINT "Ср. скорость охл. на оси отл. Voxl="; Voxl; " K/с"

PRINT "Ср. скорость затв. отл. Vz="; Vz; " мм/с"

END

777 PRINT "К="; K; " DTA="; dta; "VS="; VS * 1000; " мм/с XF="; Xf; " мм"

PRINT "T="; T(1); : FOR i = 1 TO 10: PRINT T(i * 10); : NEXT i: PRINT "K"

PRINT "Vox="; Vox(1); : FOR i = 1 TO 10: PRINT Vox(i * 10); : NEXT i: PRINT "K/c"

RETURN

222 CLS

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

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

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

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

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