Технологический процесс производства биметалла
Дипломная работа - Разное
Другие дипломы по предмету Разное
N - 1) = 1: UM = 10000000I = 1 TO N - 2(I) = - 1: A2 (I) = 1ITIME$; (W)#1, TIME$; (W)I = 1 TO N(I) = A1 (I): S (I) =.5 * (A2 (I) - A1 (I)): LT (I) = Z (I)I= 1
M = 0: G = 0I = 1 TO N(I) =.5 * S (I): G = G + ABS (S (I))I= G / N:"KL= "; KL, "G= "; GK8 = 1 TO N
Z (K8) = Z (K8) + S (K8)Z (K8) = UM GOTO 6USING "#######. ## ########. ## "; UM; U;= U: M = 0L8 = 1 TO NUSING " ###. #### "; Z (L8);L8" "5
S (K8) = - S (K8): Z (K8) = Z (K8) + S (K8): M = M + 1M < 2 GOTO 5
NEXT K8= KL + 1G >= E GOTO 4USING "#######. ## "; UM;#1, USING "#######. ## "; UM;I = 1 TO NUSING "###. ###### "; Z (I);#1, USING "#####. ###### "; Z (I)I= Z (1) * H1: EC = Z (2) * LD"H11 = ";USING "###. ###### "; H11;#1, USING "#####. ###### "; H11;"EC = ";USING "###. ###### "; EC#1, USING "#####. ###### "; EC100
CLOSE #1
' Функционал Ж. Лагранжа
PRINT "______________________________________________________"" SS E1 TT E2 V1 V2 V11 V21 V12 V22""______________________________________________________"
'Основное поле= 0: JINT = 0: JMC = 0: ET1 = - .5 * H0
E2 = EM: E1 = ET1= TT + 1
PRINT "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 <= EP THEN= - V0 * H0 * E1/H1: V1 = 0: V2 = V0 * H0 / H1: H = H1= 0: KSI12 = 0= H1IF70
'Скорректированное поле= 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= 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) * DFIEDEKI= 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)
'Поле биметалла= 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
ET = PI * (2 * E2 - EM - 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 THEN12IFET1 <= - .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 = V22IF13= 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 + DE1: KT = - 1: TTT = TT1
ETA = 2 * SQR (KSI111 ^ 2 + KSI121 ^ 2)ET1 > - .5 * H0 + H01 THEN= TT2: ETA = 2 * SQR (KSI112 ^ 2 + KSI122 ^ 2)IF= JINT + TTT * ETA * DE1 * DE2ET1 > - .5 * H0 +.0001 GOTO 14E2 >= - LH THEN KT = 1
VT = SQR (V11 ^ 2 + V21 ^ 2): DL = SQR (DE1 ^ 2 + DE2 ^ 2)
JEXT = JEXT + 2 * KT * MU * TT1 * VT * DL
14 IF E2 <= EP GOTO 11= ET1 + DET
SS = 0
'INPUT FFET1 <= 0 GOTO 10
' Мощность межслойных сил
E1 = - .5 * H0 + H01: E2 = EM
21 IF E2 >= EM AND E2 <= EH THEN
PRINT "‡ I"= - V0 * ET1: V1 = 0: V2 = V0: H = H1
END IFE2 > EH AND E2 <= EH1 THEN
PRINT "E1="; E1"‡ II"
A = 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)= 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 / HIFE2 > EH1 AND E2 EF1 AND E2 < EF THEN"‡ IV"= EF1= - .0625= 2 * (EF1 - EF) / PI= (2 * E2 - EF - EF1) / G1=.5 * (E2 + A) - B * G1 * (9 * COS (ESTR) + (1/3) * COS (3 * ESTR))
F =.5 + B * (9 * SIN (ESTR) + SIN (3 * ESTR))= B * (9 * COS (ESTR) + 3 * SIN (3 * ESTR)) / G1
H = H1 + 2 * R - 2 * SQR (R ^ 2 - X2 ^ 2)= 2 * X2/ (SQR (R ^ 2 - X2))= 2 * R ^ 2/SQR ( (R ^ 2 - E2 ^ 2) ^ 3)= V0 * H0 * E1 * F * HS / H ^ 2= V0 * H0 / HIFE2 >= EF AND E2 <= EP THEN
PRINT "‡ V"= - V0 * H0 * ET1/H1: V1 = 0: V2 = V0 * H0 / H1
H = H1IF"V1="; V1; "V2="; V2= - V0 * H0 * E1/H= V0 * H0 * HS * F / H ^ 2= - KSI11= V0 * H0 * E1 * (HSS * F + HS * FS - 2 * HS ^ 2 * FS ^ 2/H) / H ^ 2= KSI12
'Скорректированное поле= 0: DFIDE2 = 0: DFIDP = 0: DFIDP2 = 0: D2FIDE22 = 0: D2FIDPDE2 = 0I = 3 TO NK = 1 TO N - 2= (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/PSIP= FI + Z (I) * FIP ^ (I - 2) * FIE ^ K= DFIDE2 + K * Z (I) * FIP ^ (I - 2) * DFIEDE * FIE ^ (K - 1)= DFIDP + (I - 2) * Z (I) * DFIPDP * FIP ^ (I - 3) * FIE ^ K= DFIDP2 + (I - 2) * Z (I) * (D2FIPDP2 * FIP ^ (I - 3) + (I - 3) * DFIPDP ^ 2 * FIP ^ (I - 4)) * FIE ^ KFIDE2 = D2FIDE2 + K * Z (I) * (D2FIEDE2 * FIE ^ (K - 1) + (K - 1) * DFIEDE ^ 2 * FIE ^ (K - 2)) * FIP ^ (I - 2)FIDPSIDE2 = D2FIDPSIDE2 + (I - 2) * K * Z (I) * FIP ^ (I - 3) * DFIPDP * FIE ^ (K - 1) * DFIEDEKI= 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)
'Поле биметалла= Z (1) * H1: M2 = 2 * LD / (H0 - H01 + H1 - H11)= (H0 - H01 - H1 + H11) / (H0 - H01)= 2 * EPS2/ (2 - EPS2) / M2= - Z (2) * LD= V0 * H0 * (H1/2 - H11) / H1
ET = PI * (E2 - EM - 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 TT2 > TT1 THEN= VB1 * (1 + B1 * BC) + B1 * (PSIP - PSIB) * DBCDE= VB2 * (1 + B1 * BC)= V1 * (1 + B2 * BC) + (P