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

FOR i = NF2 TO N

f = DTA1 * T1(i)

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

AP(i) = AL / B4

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

NEXT i

IF NF = N THEN GOTO 34

TC = BP(N) / (1 - AP(N))

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

T(N) = TC

IF B > Et THEN Et = B

IF NF >= N1 THEN GOTO 34

FOR i = N1 TO NF2 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

34 P = AF + q

P1 = 1 / P

TM2 = BL2 * (T(NF2) - TS)

IF NF = N THEN GOTO 80

TM1 = B2 * (TS - T(NF1))

DTF = P1 * (RL + dta * (TM2 - TM1 + P))

P3 = ABS(DTF - dta) / DTF

dta = DTF

IF (P3 > ETA) OR (Et > E) THEN GOTO 102

80 TA = TA + dta

IF NF = 1 THEN dta = TA0