Технологический процесс производства биметалла
Дипломная работа - Разное
Другие дипломы по предмету Разное
= E1 + DE1: K = K + 1
IF K > P1 GOTO 81ET1 <= 0 GOTO 50
M2 = K - 1: M1 = I - 1(I, K) = PSIPSUU <= PMAX GOTO 94= PSUU: X2PMAX = E2: X3PMAX = E395
IF PSUO >= PMIN GOTO 95
PMIN = PSUU: X2PMIN = E2: X3PMIN = E3
95 W3 (I, K) = V3V3 <= V3MAX GOTO 96
V3MAX = V3: X3V3MAX = E3: X2V3MAX = E2
GOTO 97
IF V3 >= V3MIN GOTO 97
V3MIN = V3: X3V3MIN = E3: X2V3MIN = E2
97 W2 (I, K) = V2V2 <= V2MAX GOTO 98
V2MAX = V2: X3V2MAX = E3: X2V2MAX = E2
GOTO 99
IF V2 >= V2MIN GOTO 99
V2MIN = V2: X3V2MIN = E3: X2V2MIN = E2
99 IF K33 <= K3MAX GOTO 100MAX = K33: X3K3MAX = E3: X2K3MAX = E2101
IF K33 >= K3MIN GOTO 101MIN = K33: X3K3MIN = E3: X2K3MIN = E2
IF K23 <= K2MAX GOTO 102MAX = K23: X3K2MAX = E3: X2K2MAX = E2103
IF K23 >= K2MIN GOTO 103MIN = K23: X3K2MIN = E3: X2K2MIN = E2
K1 (I, K) = K33: K2 (I, K) = K23: H (I, K) = ETA: GAM (I, K) = GAMMAETA <= HMAX GOTO 104= ETA: X3HMAX = E3: X2HMAX = E2105
IF ETA >= HMIN GOTO 105
HMIN = ETA: X3HMIN = E3: X2HMIN = E2
IF GAMMA <= GMAX GOTO 106= GAMMA: X1GMAX = E1: X2GMAX = E2
GOTO 112
IF GAMMA >= GMIN GOTO 112
GMIN = GAMMA: X1GMIN = E1: X2GMIN = E2112
KU = BKU + AKU * KSI: KT = BKT + AKT * TET: KE = BKE + AKE * EPS= KT * KU * KE * TOD: DTET = TAU * ETA * DT / C0 / RO /.427= TET + DTET: LA = LA + ETA * DT: E3 = E3 - DE3: E2 = E2 - DE2
IF E2 >= EM GOTO 85(I, K) = TETTET <= TMAX GOTO 108= TET: X1TMAX = E1: X2TMAX = E2109
IF TET >= TMIN GOTO 109
TMIN = TET: X1TMIN = E1: X2TMIN = E2
LAMB (I, K) = LALA <= LMAX GOTO 110= LA: X1LMAX = E1: X2LMAX = E2
GOTO 112
IF LA >= LMIN GOTO 112
LMIN = LA: X1LMIN = E1: X2LMIN = E2
GOTO 112
P (I, K) = 9000: W1 (I, K) = 9000: W2 (I, K) = 9000: GAM (I, K) = 9000(I, K) = 9000: K2 (I, K) = 9000: H (I, K) = 9000: T (I, K) = 9000: LAMB (I, K) = 9000
PRINT K, I, LAMB (I, K)= ET2 - DX2: I = I + 1I > P2 GOTO 113
IF ET2 >= EM GOTO 84
ET3 = ET3 + DX3: K = K + 1
IF K > P1 GOTO 114ET3 <= 0 GOTO 83
M2 = K - 1: M1 = I - 1
'" Пoдпрoгpaммa пoстрoения изoлиний "$ = " ": Y$ = "X"M = 1 TO M2
PRINT Y$;#1, Y$;= 0
FOR L = 1 TO M1LAMB (L, M) > LN AND KR = 0 GOTO 185LAMB (L, M) > LN AND KR > 0 GOTO 184
RA = (LAMB (L, M) - LMIN) / DV
IF RA > 1 GOTO 165$ = "A"183
IF RA > 2 GOTO 166184
IF RA > 3 GOTO 167$ = "B"183
IF RA > 4 GOTO 168184
IF RA > 5 GOTO 169$ = "C"183
IF RA > 6 GOTO 170184
IF RA > 7 GOTO 171$ = "D"183
IF RA > 8 GOTO 172184
IF RA > 9 GOTO 173$ = "E"183
IF RA > 10 GOTO 174184
IF RA > 11 GOTO 175$ = "F"183
IF RA > 12 GOTO 176184
IF RA > 13 GOTO 177$ = "H"183
IF RA > 14 GOTO 178184
IF RA > 15 GOTO 179$ = "R"183
IF RA > 16 GOTO 180184
IF RA > 17 GOTO 181$ = "Q"183
IF RA > 18 GOTO 182184
IF RA > 19 GOTO 184$ = "U"
PRINT S$;#1, S$;186
PRINT O$;#1, O$;186
185 KR = 2Y$;#1, Y$;
186 NEXT LKR > 0 GOTO 187
PRINT Y$#1, Y$189
187 PRINT O$#1, O$
NEXT M