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

A = a1 / DX ^ 2

B1 = 2 * A

RL = R0 * LS * DX

NF = 1

B2 = l1 / DX

KV1 = 1

AL = a2 / DX ^ 2

BL1 = 2 * AL

BL2 = l2 / DX

T(1) = TS

T1(1) = TS

FOR i = 2 TO N

T(i) = TI

T1(i) = TI

NEXT i

TA = TA0

K = 1

dta = .01

GOTO 103

101 K = K + 1

NF = NF + 1

B3 = SQR(Pi * TA)

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

dta = RL / (AF + q)

B5 = BM * TM / B3

B3 = BM / B3

B4 = B2 + B3

AP(1) = B2 / B4

BP(1) = B5 / B4