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

NF1 = NF - 1

NF2 = NF + 1

K1 = 0

102 K1 = K1 + 1

Et = 0

B3 = SQR(Pi * (TA + dta))

q = BM * (T(1) - TM) / B3

B5 = BM * TM / B3

B3 = BM / B3

B4 = B2 + B3

AP(1) = B2 / B4

BP(1) = B5 / B4

DTA1 = 1 / dta

IF NF1 = 1 THEN GOTO 23

FOR i = 2 TO NF1

B = B1 + DTA1

f = DTA1 * T1(i)

B4 = B - A * AP(i - 1)

AP(i) = A / B4

BP(i) = (A * BP(i - 1) + f) / B4

NEXT i

23 FOR i = NF1 TO 1 STEP -1

TC = AP(i) * T(i + 1) + BP(i)

B = ABS(TC - T(i)) / TC

IF B > Et THEN Et = B

T(i) = TC

NEXT i

AP(NF) = 0

BP(NF) = TS