Технологический процесс производства биметалла
Дипломная работа - Разное
Другие дипломы по предмету Разное
SI - PSIM) * (BC * DB2dE + DBCDE * B2)= V2 * (1 + B2 * BC)
'V1 = VB1 * (1 + B2 * BC) + (PSIB - PSIM) * (BC * DB2dE + DBCDE * B2)
'V2 = VB2 * (1 + B2 * BC)IF
DE2 = DT * V2: VT = SQR (V1 ^ 2 + V2 ^ 2)= DT * V1: DL = SQR (DE1 ^ 2 + DE2 ^ 2)= JMC + 2 * MUMC * TTM * VT * DL= E2 + DE2= E1 + DE1E2 <= EP GOTO 21
U = JEXT + JINT + JMC"U="; U; "UM="; UMFF
PRINT #1, " Картины кинематических параметров"
PRINT TIME$; (W)#1, TIME$; (W)49TIME$; (W)#1, TIME$; (W)USING "### ### "; M1; M2#1, USING "### ### "; M1; M2 " Будете строить изолинии PSI=const? Нет-N1=0, Да-N1>0) N1= ";: INPUT N1
IF N1 < 1 GOTO 20"PMAX="; PMAX; "PMIN="; PMIN;
PRINT #1, "PMAX="; PMAX; "PMIN="; PMIN;"X1PMAX="; X1PMAX; "X1PMIN="; X1PMIN; "X2PMAX="; X2PMAX; "X2PMIN="; X2PMIN;#1, "X1PMAX="; X1PMAX; "X1PMIN="; X1PMIN; "X2PMAX="; X2PMAX; "X2PMIN="; X2PMIN;= 11: DV = (PMAX - PMIN) / CI: LMIN = PMIN: LN = 8999"DV="; DV: PRINT #1, "DV="; DV: PRINT #1, " "
FOR M = 1 TO M2L = 1 TO M1(L, M) = P (L, M)LM164M = 1 TO M2L = 1 TO M1(L, M) = P (L, M2 + 1 - M)LM164
20 PRINT " Будете строить изотахи V1,V2=const? Нет-N1=0, Да-N1>0) N1= ";: INPUT N1
IF N1 < 1 GOTO 11"V1MAX="; V1MAX; "V1MIN="; V1MIN;#1, "V1MAX="; V1MAX; "V1MIN="; V1MIN;"X1V1MAX="; X1V1MAX; "X1V1MIN="; X1V1MIN; "X2V1MAX="; X2V1MAX; "X2V1MIN="; X2V1MIN;#1, "X1V1MAX="; X1V1MAX; "X1V1MIN="; X1V1MIN; "X2V1MAX="; X2V1MAX; "X2V1MIN="; X2V1MIN;= 15: DV = ABS (V1MAX - V1MIN) / CI: LMIN = V1MIN: LN = 8999"DV1="; DV: PRINT #1, "DV1="; DV: PRINT #1, " ""V2MAX="; V2MAX; "V2MIN="; V2MIN;#1, "V2MAX="; V2MAX; "V2MIN="; V2MIN;"X1V2MAX="; X1V2MAX; "X1V2MIN="; X1V2MIN; "X2V2MAX="; X2V2MAX; "X2V2MIN="; X2V2MIN#1, "X1V2MAX="; X1V2MAX; "X1V2MIN="; X1V2MIN; "X2V2MAX="; X2V2MAX; "X2V2MIN="; X2V2MIN
FOR M = 1 TO M2L = 1 TO M1(L, M) = W1 (L, M)L
NEXT M164= 15: DV = ABS (V2MAX - V2MIN) / CI: LMIN = V2MIN: LN = 8999
FOR M = 1 TO M2L = 1 TO M1(L, M) = W2 (L, M2 + 1 - M)LM164
PRINT "DV2="; DV: PRINT #1, "DV2="; DV: PRINT #1, " "
GOTO 200
'" Подпрограмма построения картин в плоскости Е1, Е2"
DE2 = (EP - EM) / P1: DE1 = (.5 * H0) / P2= - 10: PMIN = 1000000: V1MAX = - 10: V1MIN = 1000000: V2MAX = 0
V2MIN = 1000000= - .5 * H0
E2 = EH"E1="; E1
IF E2 >= EM AND E2 <= EH THEN
PSI = - V0 * ET1: V1 = 0: V2 = V0: H = H0
KSI11 = 0: KSI12 = 0IFE2 > EH AND E2 <= EH1 THEN= EH1=.0625= 2 * (EH1 - EH) / PI= (2 * E2 - EH - EH1) / G1=.5 * (E2 + A) - B * G1 * (9 * COS (ESTR) + (1/3) * COS (3 * ESTR))=.5 + B * (9 * SIN (ESTR) + SIN (3 * ESTR))
FS = B * (9 * COS (ESTR) + 3 * SIN (3 * ESTR)) / G1
H = H1 + 2 * R - 2 * SQR (R ^ 2 - X2 ^ 2)= - V0 * H0 * E1/H= 2 * X2/ (SQR (R ^ 2 - X2 ^ 2))= 2 * R ^ 2/SQR ( (R ^ 2 - X2 ^ 2) ^ 3)= V0 * H0 * E1 * HS * F / H ^ 2= V0 * H0 / H= V0 * H0 * HS * F / H ^ 2= V0 * H0 * E1 * (HSS * F + HS * FS - 2 * HS ^ 2 * FS ^ 2/H) / H ^ 2IFE2 > EH1 AND E2 EF1 AND E2 <= EF THEN= EF1= - .0625= 2 * (EF1 - EF) / PI= (2 * E2 - EF - EF1) / G1=.5 * (E2 + A) - B * G1 * (9 * COS (ESTR) + (1/3) * COS (3 * ESTR))=.5 + B * (9 * SIN (ESTR) + SIN (3 * ESTR))
FS = B * (9 * COS (ESTR) + 3 * SIN (3 * ESTR)) / G1
H = H1 + 2 * R - 2 * SQR (R ^ 2 - X2 ^ 2)= - V0 * H0 * E1/H= 2 * X2/ (SQR (R ^ 2 - X2))= 2 * R ^ 2/SQR ( (R ^ 2 - E2 ^ 2) ^ 3)= V0 * H0 * E1 * F * HS / H ^ 2= V0 * H0 / H= V0 * H0 * HS * F / H ^ 2= V0 * H0 * E1 * (HSS * F + HS * FS - 2 * HS ^ 2 * FS ^ 2/H) / H ^ 2IFE2 > EF AND E2 PSIP GOTO 7840
'PRINT "V1 = "; V1; "V2 = "; V2= 0: DFIDE2 = 0: DFIDP = 0: DFIDP2 = 0: D2FIDE22 = 0: D2FIDPDE2 = 0= (1 - E2/EP) * (E2/EP - EM / EP)= (1 - PSI / PSIP) * (PSI - PSIM)= (1/EP) * (EM / EP + 1 - 2 * E2/EP)= PSIM / PSIP + 1 - 2 * PSI / PSIPFIEDE2 = - 2/EPFIPDP2 = - 2/PSIPI = 3 TO N - 2K = 3 TO N - 2= FI + Z (I) * FIP ^ I * FIE ^ K= DFIDE2 + K * Z (I) * FIP ^ I * DFIEDE * FIE ^ (K - 1)= DFIDP + I * Z (I) * DFIPDP * FIP ^ (I - 1) * FIE ^ K
'PRINT FIE, FIP, PSI, PSIP
'INPUT FF= DFIDP2 + I * Z (I) * (D2FIPDP2 * FIP ^ (I - 1) + (I - 1) * DFIPDP ^ 2 * FIP ^ (I - 2)) * FIE ^ KFIDE22 = D2FIDE22 + K * Z (I) * (D2FIEDE2 * FIE ^ (K - 1) + (K - 1) * DFIEDE ^ 2 * FIE ^ (K - 2)) * FIP ^ IFIDPSIDE2 = D2FIDPSIDE2 + I * K * Z (I) * FIP ^ (I - 1) * DFIPDP * FIE ^ (K - 1) * DFIEDE
'PRINT "DFIDP="; DFIDP; "DFIDE2="; DFIDE2; "FIP="; FIP
'PRINT "FIE="; FIE; "DFIPDP="; DFIPDP; '"PSI="; PSI
'PRINT "EP="; EP; "EM="; EM; "E2="; E2
'INPUT FFKI= PSI + FI= V1 * (1 + DFIDP) + DFIDE2: VB2 = V2 * (1 + DFIDP)= KSI11 * (1 + DFIDP) - V1 * V2 * DFIDP2 - V2 * D2FIDPSIDE2= KSI12 * (1 + DFIDP) +.5 * ( (V1 ^ 2 + V2 ^ 2) * DFIDP2 + V1 * D2FIDPSIDE2 + D2FIDE2)
H11 = Z (N) * H1: M2 = 2 * LD / (H0 - H01 + H1 - H11)= (H0 - H01 - H1 + H11) / (H0 - H01)= 2 * EPS2/ (2 - EPS2) / M2= - Z (N - 1) * LD= V0 * H0 * (H1/2 - H11) / H1
'PSIM = - PSIP= PI * (E2 - EC) / (2 * (EM - EC))= (PSIF - PSIS) / (PSIS - PSIP)=.5 +.0625 * (9 * SIN (ET) + SIN (3 * ET))
PSICT = (PSIF + PSIP * B1 * BC) / (1 + B1 * BC)= (PSIF - PSIP) * B1/ (PSIF - PSIM + (PSIP - PSIM) * B1 * BC)
DBCDE =.0625 * (9 * COS (ET) + 3 * COS (3 * ET)) * PI / (EH - EC)BCDE2 = - .5625 * (SIN (ET) + SIN (3 * ET)) * (PI / (EH - EC)) ^ 2DBC = - B2/BCdE = - DBCDE * B2/BCB2DBCDE = - (DB2dE * BC - B2 * DBCDE) / BC ^ 2B2DE2 = D2BCDE2 * DB2DBC + DBCDE2 * D2B2DBCDE= PSI + B1 * (PSIP - PSI) * BC= PSI + B2 * (PSI - PSIM) * BC
IF E2 >= EC THEN
'PRINT "E2="; E2; "EC="; EC
'INPUT FF32IFET1 <= - .5 * H0 + H01 THEN= V1 * (1 + B1 * BC) + B1 * (PSI - PSIP) * DBCDE= V2 * (1 + B1 * BC)= KSI11 * (1 + B1 * BC) - V2 * B1 * DBCDE= KSI12 * (1 + B1 * BC) + B1 * (V1 * DBCDE +.5 * (PSI - PSIP) * D2BCDE2)= V11: VT2 = V21= V1 * (1 + B2 * BC) + (PSI - PSIM) * (BC * DB2dE + DBCDE * B2)= V2 * (1 + B2 * BC)= KSI11 * (1 + B2 * BC) - V2 * (BC * DB2dE + DBCDE * B2)= KSI12 * (1 + B2 * BC) + V1 * (BC * DB2dE + DBCDE * B2) +.5 * (PSBI - PSIP) * (D2B2DE2 * BC + 2 * DB2dE * DBCDE + B2 * D2BCDE2)= V12: VT2 = V22IF33= VB1 * (1 + B1 * BC) + B1 * (PSBI - PSIP) * DBCDE= VB2 * (1 + B1 * BC)= VB1 * (1 + B2 * BC) + (PSBI - PSIM) * (BC * DB2dE + DBCDE * B2)= VB2 * (1 + B2 * BC)= KSIB11 * (1 + B1 * BC) - VB2 * B1 * DBCDE= KSIB12 * (1 + B1 * BC) + B1 * (VB1 * DBCDE +.5 * (PSBI - PSIP) * D2BCDE2)= KSIB11 * (1 + B2 * BC) - VB2 * (BC * DB2dE + DBCDE * B2)= KSIB12 * (1 + B2 * BC) + VB1 * (BC * DB2dE + DBCDE * B2) +.5 * (PSBI - PSIP) * (D2B2DE2 * BC + 2 * DB2dE * DBCDE + B2 * D2BCDE2)
GOTO 13
VT1 = V1: VT2 = V2
DE2 = DT * VT2= DT * VT1= E2 + DE2
E1 = E1 + DE1E2 <= EF GOTO 31
ET1 = ET1 + DETPSUO <= PMAX GOTO 61= PSUO: X1PMAX = E1: X2PMAX = E2
GOTO 62
IF PSUO >= PMIN GOTO 62
PMIN = PSUO: X1PMIN = E1: X2PMIN = E2
62 W1 (I, K) = V1V1 <= V1MAX GOTO 63
V1MAX = V1: X1V1MAX = E1: X2V1MAX = E2
GOTO 64
IF V1 >= V1MIN GOTO 64
V1MIN = V1: X1V1MIN = E1: X2V1MIN = E2
64 W2 (I, K) = V2V2 <= V2MAX GOTO 65
V2MAX = V2: X1V2MAX = E1: X2V2MAX = E2
GOTO 66
IF V2 >= V2MIN GOTO 66
V2MIN = V2: X1V2MIN = E1: X2V2MIN = E2
66 IF K11 <= K1MAX GOTO 67MAX = K11: X1K1MAX = E1: X2K1MAX = E268
IF K11 >= K1MIN GOTO 68MIN = K11: X1K1MIN = E1: X2K1MIN = E2
IF K12 <= K2MAX GOTO 69MAX = K12: X1K2MAX = E1: X2K2MAX = E270
IF K12 >= K2MIN GOTO 70MIN = K12: X1K2MIN = E1: X2K2MIN = E2
K1 (I, K) = K11: K2 (I, K) = K12: H (I, K) = ETA: GAM (I, K) = GAMMAETA <= HMAX GOTO 71= ETA: X1HMAX = E1: X2HMAX = E272
IF ETA >= HMIN GOTO 72
HMIN = ETA: X1HMIN = E1: X2HMIN = E2
IF GAMMA <= GMAX GOTO 73= GAMMA: X1GMAX = E1: X2GMAX = E2
GOTO 79
IF GAMMA >= GMIN GOTO 79
GMIN = GAMMA: X1GMIN = E1: X2GMIN = E279
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: E1 = E1 - DE1: E2 = E2 - DE2
IF E2 >= EM GOTO 52(I, K) = TETTET <= TMAX GOTO 75= TET: X1TMAX = E1: X2TMAX = E276
IF TET >= TMIN GOTO 76
TMIN = TET: X1TMIN = E1: X2TMIN = E2
LAMB (I, K) = LALA <= LMAX GOTO 77= LA: X1LMAX = E1: X2LMAX = E2
GOTO 79
IF LA >= LMIN GOTO 79
LMIN = LA: X1LMIN = E1: X2LMIN = E2
GOTO 79
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)= E2 + DE2: I = I + 1I > P2 GOTO 80
IF ET2 <= EP GOTO 31
E1