4.2. Программа расчета температуры подогрева лома при заданном составе шихты и технологических показателей плавки

4.2.1. Исходные данные для расчета

Таблица 4.2. – Исходные данные для расчета

Химический состав чугуна и лома и готовой стали, мас. %

Материалы

Элементы

C

Si

Mn

P

S

Чугун

Лом

Марка выплав. стали

Исходные данные для расчета

Температура чугуна, С

Расход лома, %

Основность шлака

Расход миксерного шлака, %

Расход плавикового шпата, %

Расход футеровки, %

Расход железной руды, %

Коэффициент распределения серы

Коэффициент распределения фосфора

Температура готовой стали, С

Остаточное содержание углерода в готовой стали, %

Количество аргона, кг/100 кг металлошихты, при комбинированной продувке

Емкость конвертера, т

Химический состав футеровки, мас. %

SiO2

CaO

Al2O3

MgO

Fe2O3

Удельная теплоемкость газов в интервале температур 1500-1600 С, кДж/(м3град)

CO

CO2

H2O

H2

N2

O2

Ar

1.469

2.349

1.863

1.373

1.448

1.532

0.929

Химический состав извести, мас. %

CO2

SiO2

S

Al2O3

CaO

MgO

H2O

(m)изв

Масса извести, % ; (m)изв = 100 – (%СО2 + %Н2О)

4.2.2 Программа расчета

1 DIM K(9),C(9),V(4)

2 INPUT "Введите группу ";A$

3 INPUT "Введите фамилию имя ";B$

4 PRINT "Введите исходные данные "

5 PRINT "Введите состав чугуна "

6 INPUT "Введите [C]ч ";K(0)

7 INPUT "Введите [Si]ч";K(1)

8 INPUT "Введите [Mn]ч";K(2)

9 INPUT "Введите [P]ч";K(3)

10 INPUT "Введите [S]ч";K(4)

11 INPUT "Температура чугуна ";K(5)

12 INPUT "Основность шлака Вк ";K(6):INPUT "Введите расход миксерного шлака ";K(7):INPUT "Введите расход футеровки " ;M2:INPUT "Введите расход плавикового шпата ";M1:INPUT "Введите расход железной руды ";M3

13 PRINT "Введите состав лома "

14 INPUT "Введите [C]л ";C(0)

15 INPUT "Введите [Si]л ";C(1)

16 INPUT "Введите [Mn]л ";C(2)

17 INPUT "Введите [P]л";C(3)

18 INPUT "Введите [S]л ";C(4)

19 INPUT "Введите расход лома ";C(5)

20 INPUT "Введите коэффициент распределения серы Ls";C(6)

21 INPUT "Введите коэффициент распределения фосфора Lp";C(7)

22 INPUT "Введите температуру готовой стали tk ";C(8)

23 INPUT "[C]остаточное содержание углерода в стали (нижний предел готовой стали)";C(9)

24 PRINT "Состав футеровки "

25 INPUT "SiO2ф";V(0)

26 INPUT "CaOф";V(1)

27 INPUT "AL2O3ф ";V(2)

28 INPUT "MgOф ";V(3)

29 INPUT "Fe2O3ф ";V(4)

30 PRINT "Теплоемкость газов "

31 INPUT "C(CO) ";J(0)

32 INPUT "C(C02)";J(1)

33 INPUT "C(H2O)";J(2)

34 INPUT "C(H2) ";J(3)

35 INPUT "C(N2) ";J(4)

36 INPUT "C(O2) ";J(5)

37 INPUT "C(Ar)";J(6)

42 K(8)=1.2 :K(9)=.8

43 INPUT "Количество Ar ";KL

44 INPUT "Емкость конвертера ";GN

45 PRINT "Введите состав извести "

46 INPUT "Введите CO2изв.";U(0):INPUT "Введите SiO2изв.";U(1):INPUT "Введите Sизв.";U(2):INPUT "Введите AL2O3изв.";U(3):INPUT "Введите CaOизв.";U(4):INPUT "Введите MgOизв.";U(5):INPUT "Введите H2Oизв.";U(6):INPUT "Введите (m)изв.";U(7)

47 DATA 4.2,0.8,.2,.15,.02,1320,3,.5,1.2,.8,.2,.50,1.,.04,.04,33.933000, 8,77,1660,.08,2,58,1.5,36.5,2,3.2,2.8,.08,1.5,91.2,.7,.5,96.3,1.4665,2.333,1.843,1.3665,1.4365,1.5265,1

48 FOR I=0 TO 9:READ K(I):NEXT I:FOR I=0 TO 9:READ C(I):NEXT I:FOR I=0 TO 4:READ V(I):NEXT I:FOR I=0 TO 7:READ U(I):NEXT I :FOR I=0 TO 6:READ J(I) :NEXT I

50 KL1=39.94

55 GN=300

59 DATA .8,8.7,.9,.5,1.6,1,.2,1.1,78,7.2,12.9,54.5,9.4,.2,.2,8.6,7.5,3.3,0, 83.7,0,16.3,6,4.5,.9,7.6,81,94,68,24,3,2,3,97

60 FOR I=0 TO 10:READ P(I):NEXT I

70 FOR I=0 TO 10:READ W(I):NEXT I

85 FOR I=0 TO 5:READ B(I):NEXT I

90 FOR I=0 TO 5 :READ F(I):NEXT I

95 X=C(5)

100 M1=.4:M2=.28:M3=.5

111 O0=69:O1=31:M7=90

120 D1=2.14*K(1)+.01*(B(1)*M1+V(0)*M2+W(0)*K(7)+P(1)*M3)

130 D2=.0001*(214*C(1)-214*K(1)+.65*F(0)-W(0)*K(7))

140 D3=.01*(M1*B(3)+V(1)*M2+P(5)*M3+W(5)*K(7))

150 D4=.0001*(F(2)-W(5)*K(7))

160 D5=(K(6)*D1-D3)/((U(4)-U(1)*K(6))*.01):D6=(K(6)*D2-D4)/((U(4)-U(1)*K(6))*.01)

170 D7=1.25+4*K(6)+(.3/C(9))+10^(-6)*(C(8))^2

180 D8=(2/3)*D7:D9=D7-D8

190 D10=K(0)-C(9)+K(1)+.8*K(2)+.9*K(3)+4

200 D11=.01*(C(0)+C(1)+.8*C(2)+.9*C(3)-K(0)-.8*K(2)-K(1)-.9*K(3))

210 X1=ABS((100-D10-M7)/D11)

220 FOR I=1 TO 2

230 D12=(214*K(1)+103.2*K(2)+206.1*K(3)+M3*P(10)+M1*B(5)+W(8)*K(7)+U(7)*D5) /(100-D8)

240 D13= (2.14*C(1)-2.14*K(1)+1.032*C(2)-1.032*K(2)+2.061*C(3)-2.061* K(3)-.01*K(7)*W(8)+U(7)*D6+F(5)*.0065)/(100-D8)

245 M8=D12+D13*X1

250 D14=100*K(2)+.775*M3*P(2)+.775*W(1)*K(7)

260 D15=C(2)-K(2)-.00775*W(1)*K(7)

270 D16=10^((6230/ ( C(8)+237))-3.06)

280 D17=M7+D7*M8*.775*D16

290 D18=D14/D17:D19=D15/D17

300 D20=100*K(3)+.437*M3*P(3)+.437*W(2)*K(7)

310 D21=C(3)-K(3)-.00437*W(2)*K(7)

320 D22=M7+C(7)*M8*.437

330 D23=D20/D22:D24=D21/D22

340 D25=(100*K(4)+K(7)*W(3)+U(2)*D5)/(M7+C(6)*M8)

350 D26=(C(4)-K(4)-.01*K(7)*W(3)+U(2)*D6)/(M7+C(6)*M8)

360 D27=K(0)-.01*M7*C(9)

370 D28=.01*C(0)-.01*K(0)

380 D29=K(2)-.01*M7*D18

390 D30=.01*C(2)-.01*K(2)-.01*M7*D19

400 D31=K(3)-.01*M7*D23

410 D32=.01*C(3)-.01*K(3)-.01*M7*D24

420 D33=K(4)-.01*M7*D25

430 D34=.01*C(4)-.01*K(4)-.01*M7*D26

440 D35=D27+D29+D31+K(1)+D33

450 D36=D28+D30+D32+D34+.01*(C(1)-K(1))

460 D37=2.14*K(1)+.01*(U(1)*D5+M1*B(1)+W(0)*K(7)+M2*V(0)+P(1)*M3)

470 D38=.01*(2.14*C(1)-2.14*K(1)+U(1)*D6-.01*K(7)*W(0)+.0065*F(0))

480 D39=.01*(U(3)*D5+M1*B(2)+W(4)*K(7)+M2*V(2)+M3*P(4))

490 D40=.01*(U(3)*D6-.01*W(4)*K(7)+.0065*F(1))

500 D41=1.29*D29+.01*(W(1)*K(7)+P(2)*M3)

510 D42=1.29*D30-.0001*W(1)*K(7)

520 D43=.01*(U(4)*D5+M1*B(3)+W(5)*K(7)+M2*V(1)+M3*P(5))

530 D44=.01*(U(4)*D6-.01*W(5)*K(7)+.0065*F(2))

540 D45=.01*(U(5)*D5+W(6)*K(7)+M2*V(3)+M3*P(6))

550 D46=.01*(U(5)*D6-.01*W(6)*K(7)+.0065*F(3))

560 D47=2.29*D31+.01*(W(2)*K(7)+P(3)*M3)

570 D48=2.29*D32-.0001*W(2)*K(7)

580 D49=.01*B(4)*M1

590 D50=D33+.01*(U(2)*D5+W(3)*K(7))

600 D51=D34+.01*(D6*U(2)-.01*W(3)*K(7))

610 D52=D37+D41+D43+D45+D47+D49+D50+D39

620 D53=D38+D40+D42+D44+D46+D48+D51

630 D56=.007*(M3*P(8)+M2*V(4)+W(9)*K(7))+.0078*(M3*P(9)+W(10)*K(7))

640 D57=.007*(.0065*F(4)+.012*O0-.01*W(9)*K(7))+.0078*(.012*O1-.01*W(10)*K(7))

650 D60=100+D56-D35-K(8)-K(9) :Z=.007*D9+.0078*D8

655 Z=(.007*D9+.0078*D8)

660 D61=-D57+D36 :Z1=Z+.08

670 D62=1.47*D27+1.14*K(1)+.29*D29+1.29*D31+.429*K(8)

680 D63=1.47*D28+.0114*(C(1)-K(1))+.29*D30+1.29*D32

690 Z2=.001*(4.29*D9+2.9*D8)

700 D64=.0043*(M3*P(8)+M2*V(4)+W(9)*K(7))+.0092*(M3*P(9)+W(10)*K(7))+.0027* (M3*P(7)+U(6)*D5)

710 D65=.0043*(.0065*F(4)+O0*.012-.01*W(9)*K(7))+.0029*(.012*O1-.01*W(10)* K(7))+.0027*(U(6)*D6)

720 H=10000/(97*99.5)

730 D66=(D62-D64)*H:D67=(D63-D65)*H

740 Z3=Z2*H

750 D68=.37*D27+.01*(B(0)*M1+M3*P(0))

760 D69=.37*D28

770 D70=.007*(P(7)*M3+U(6)*D5+W(7)*K(7))

780 D71=.007*(U(6)*D6-.01*W(7)*K(7))

790 D72=.006*(P(7)*M3+W(7)*K(7)+U(6)*D5)/18

800 D73=.006*(U(6)*D6-.01*W(7)*K(7))/18

810 D74=8.000001E-03*D66+D72+D70+D68+2.1*D27

820 D75=8.000001E-03*D67+D73+D71+D69+D28*2.1

830 Z4=8.000001E-03*Z3

840 D79= .0065-.01*K(7)+.012+D6+D67

850 D78=100+K(7)+M1+M2+M3+D5+D66+KL

860 Z6=Z3

870 D80=D60+D74+K(9)+1.43*K(8)+KL

880 D81=D75-D61

890 Z7=Z4+1.08-Z1

900 D82=(D80-D78)/(Z6-Z7)

910 D83=(D81-D79)/(Z6-Z7)

920 R1=100*(.755*1150+218+(K(5)-1150)*.92)

930 R2=-R1/100

940 R3=(.9*11096+.1*34710!)*D27+26922 *K(1)+7034*D29+19763*D31

950 R4=(.9*11096+.1*34710! )*D28+269.22*(C(1)-K(1))+7034*D30+19763*D32

960 R5=2300*D37+4860*D47

970 R6=2300*D38+4860*D48

980 R7=.007*7320*D9+.0078*4820*D8

990 R8=7370*K(8)

1000 K21=.73+.00025*(K(5)-18+273)

1010 R9=.6*(K21*(K(5)-18)+210)

1020 R10=-.006*(K21*(K(5)-18)+210)

1040 R12=R1+R3+R5+R8+R9

1050 R14=.7*(1540-85*M7*.01*C(9))+285+(C(8)-(1540-85*M7*.01*C(9)))*.84

1060 R15=R14*D60:R16=-R14*D61:R17=-R14*Z1

1065 K26=.73+.00025*(C(8)+273):R18=K26*C(8)+210

1070 R19=(C(8)+K(5))/2

1075 Z8=2.1*22.4*J(0)/28:Z9=22.4*J(1)/44:Z10=22.4*J(2)/18:Z11=11.2*J(3):Z12 =.005*22.4*J(4)/28:Z13=.003*22.4*J(5)/28:Z14=22.4*KL*J(6)/KL1

1080 R20=(Z8*D27+Z9*D68+Z10*D70+Z11*D72+Z12*D66+Z13*D66+Z14)*R19

1090 R21=(Z8*D28+Z9*D69+Z10*D71+Z11*D73+Z12*D67+Z13*D67)*R19

1100 R22=R19*(Z12*Z3+Z13*Z3)

1110 R23=121000!*D72:R24=121000!*D73

1111 R25=4025*22.4*D68/44

1120 R26=4025*22.4*D69/44

1130 R27=.01*(M3*P(8)+M2*V(4)+W(9)*K(7))

1140 R28=.01*(.0065*F(4)+.012*O0-.01*W(9)*K(7))

1150 R29=.01*(M3*P(9)+W(10)*K(7))

1155 R30= (.012*O1-.01*W(10)*K(7))*.01

1160 R31=5160*R27+3750*R29

1165 R32=5160*R28+3750*R30

1170 R33=1.43*.88*K(8)*R19:R34=.84*K(9)*R19:R35=.08*.84*C(8)

1180 R36=.026*R12:R38=.026*R7

1190 R39=R15+R20+R23+R25+R31+R33+R34+R36

1210 R41=R17+R18+R22+R35+R38

1250 Y=D82+D83*X

1255 T=((R39/X)+(R41*Y/X)-(R7*Y/X)-(R12/X)-R2-R4-R6-R10+R16+R21+R24+R26+R32+.026*(R6+R10+R2+R4))/(.974*.84)

1265 R11=.84*T

1266 R13=R2+R4+R6+R10+R11

1267 R37=.026*R13

1268 R40=R16+R21+R24+R26+R32+R37

1269 Q19=R39+R40*X+R41*Y

1270 Q8=R12+R13*X+R7*Y

1280 M18=D78+D79*X+Z6*Y

1290 M19=D80+D81*X+Z7*Y

1300 M11=D60-D61*X-Z1*Y

1305 M7=M11

1310 R42=R12-R39+R7*D82-R41*D82

1311 R43=R40-R13+R41*D83-R7*D83

1313 IF X<>X1 THEN X1=X :GOTO 230

1314 NEXT I: PRINT T;"m8="M8;"m7="M7

1350 PRINT "t="T

1400 MP(4)=.012*X:MP(5)=.0065*X:MP(0)=K(7)-.01*K(7)*X:MP(1)=M1:MP(2)=M2:MP(3)=M3:MP(6)=D5+D6*X

1450 M11=D60-D61*X-Z1*Y

1500 M7=M11

1505 A0=.01*M7*C(9)

1510 A2=(D18+D19*X)*.01*M7

1520 A3=(D23+D24*X)*.01*M7

1530 A4=(D25+D26*X)*.01*M7

1540 A1=0

1560 S(1)=(D39+D40*X)*100/Y:S(2)=(D41+D42*X)*100/Y:S(3)=(D43+D44*X)*100/Y:S(4) =(D45+D46*X)*100/Y:S(5)=(D47+D48*X)*100/Y:S(6)=(D49*100)/Y:S(7)=(D50+D51*X)*100/Y:S(8)=D8:S(9)=D9

1565 SW=0

1570 FOR I=1 TO 9:SW=SW+S(I):NEXT I

1575 S(0)=100-SW

1578 SW=SW+S(0)

1700 ML(1)=M7:ML(2)=Y:ML(3)=1.43*K(8):ML(4)=K(9):ML(5)=.08*Y:MP(7)=D66+D67* X+Z3*Y+KL:ML(6)=D74+D75*X+Z4*Y+KL

1800 MP(8)=X:MP(9)=100-X:MP(10)=M18:ML(7)=M19

2010 QP(0)=R1+R2*X:QP(1)=R3+R4*X:QP(2)=R5+R6*X:QP(3)=R7*Y:QP(4)=R8:QP(5)= R9+R10*X:QP(6)=R11*X

2020 QL(0)=R36+R37*X+R38*Y:QL(1)=R15+R16*X+R17*Y:QL(2)=R18*Y:QL(3)=R20+ R21*X+R22*Y:QL(4)=R23+R24*X:QL(5)=R25+R26*X:QL(6)=R31+R32*X:QL(7)=R33:QL(8)=R34:QL(9)=R35*Y

2029 QPS=0:QLS=0 :CH1=0:SH1=0

2030 FOR I=0 TO 6:SS(I)=QP(I)*100/Q8:CH1=CH1+SS(I):NEXT I

2033 FOR I=0 TO 9:CC(I)=QL(I)*100/Q19:SH1=SH1+CC(I):NEXT I

2040 MT(0)=MP(9)/M7 :MT(1)=MP(8)/M11:MT(2)=MP(3)/M11:MT(3)=MP(1)/M11:MT(4) =MP(6)/M11:MT(5)=MP(7)/M11

2045 FOR I=0 TO 5 :MR(I)=MT(I)*GN:NEXT I

2050 FF1=CH1:FF2=SH1

2060 G(0)=D68+D69*X:E(0)=G(0)*22.4/44:G(1)=2.1*(D27+D28*X):E(1)=G(1)* 22.4/28:G(2)=D70+D71*X:E(2)=G(2)*22.4/18:G(3)=D72+D73*X:E(3)=G(3)*22.4/2:G(4)=.005*(D66+D67*X+Z3*Y):E(4)=G(4)*22.4/28:G(5)=.003*(D66+D67*X+Z3*Y):E(5)=G(5)*22.4/32

2064 G(6)=KL:E(6)=G(6)*22.4/KL1

2065 MG=0:ME=0:SC=0

2070 FOR I=0 TO 6:MG=MG+G(I) :ME=ME+E(I):NEXT I:FOR I=0 TO 6:GC(I)=100*G(I)/MG:SC=SC+GC(I):NEXT I:LPRINT A$ :LPRINT :LPRINT B$ :LPRINT

2071 LPRINT " ИСХОДHЫЕ ДАHHЫЕ :"

2072 LPRINT " Таблица 1.1"

2073 LPRINT " Химсостав чугуна и лома "

2074 GOSUB 5089

2075 LPRINT"| | Элементы |"

2076 LPRINT"|Материалы|===============================================|"

2077 LPRINT"| | C | Si | Mn | P | S |"

2089 GOSUB 5089

2090 LPRINT"| чугун |"USING " #.### |";K(0);K(1);K(2);K(3);K(4)

2095 GOSUB 5089

3000 LPRINT"| Лом |"USING" #.### |";C(0);C(1);C(2);C(3);C(4)

3010 GOSUB 5089

3020 LPRINT USING "Температура чугуна=#### C`";K(5)

3021 LPRINT USING "Расход лома =##.###%";C(5)

3022 LPRINT USING "Температура стали =#### C`";C(8)

3023 LPRINT USING "[C]готовой стали =#.## %";C(9)

3024 LPRINT USING "Коэф. распр. серы =##.#";C(6)

3025 LPRINT USING "Коэф.распр.фосфора=##.#";C(7)

3026 LPRINT USING "Основность шлака =##.#";K(6):LPRINT USING "Количество Ar =##.## кг/100кг металлошихты ";KL:LPRINT USING "Емкость конвертера=### тонн";GN:LPRINT USING "Расход плавик.шпат=#.## %";M1:LPRINT USING "Расход футеровки =#.## %";M2

3027 LPRINT USING "Расход жел. руды =#.## %";M3:LPRINT "химический состав извести ;% :":LPRINT USING "CO2=#.## |SiO2=#.## |S=.### |AL2O3=#.## |CaO=##.## |MgO=#.## |H2O=#.## |(m)=##.## ";U(0);U(1);U(2);U(3);U(4);U(5);U(6);U(7)

3028 LPRINT "Хим.состав футеровки ;% :":LPRINT USING "SiO2=#.## |CaO=##.## |AL2O3=#.## |MgO=##.## |Fe2O3=#.##";V(0);V(1);V(2);V(3);V(4):LPRINT " Результаты вычислений "

3030 LPRINT " Таблица 1.2"

3031 LPRINT " Материальный баланс до раскисления "

3032 GOSUB 5089

3033 LPRINT "| Поступило | Получено |"

3034 GOSUB 5089

3035 LPRINT "| Материалы | кг | Материалы | кг |"

3036 GOSUB 5089

3037 LPRINT USING"|Жидкий чугун| ##.### |Выход жид. металла|##.### |"; MP(9) ;ML(1)

3039 GOSUB 5089

3040 LPRINT USING"|Стальной лом |##.### |Количество шлака |##.### |";X;Y

3041 GOSUB 5089

3043 LPRINT USING"|Миксерный шлак|##.###|Отходящие газы |##.### |"; MP(0);ML(6)

3044 GOSUB 5089

3045 LPRINT USING"|Руда железная |##.###|Масса Fe2O3 дыма |##.### |"; M3;ML(3)

3046 GOSUB 5089

3047 LPRINT USING"|Загрязнение лома|##.###|Масса Fe выбросы|##.### |"; MP(5);ML(4) :GOSUB 5089

3048 LPRINT USING"|Окалина лома |##.###|Масса Fe корольки|###.### |"; MP(4);ML(5)

3050 GOSUB 5089

3051 LPRINT USING"|Плавиковый шпат |##.###| | |"; MP(1)

3052 GOSUB 5089

3053 LPRINT USING"|Расход извести |##.###| | |"; MP(6)

3054 GOSUB 5089

3055 LPRINT USING"|Расход футеровки|##.###| | |"; MP(2)

3056 GOSUB 5089

3057 LPRINT USING"| Расход дутья |##.###| | |"; MP(7)

3058 GOSUB 5089

3059 LPRINT USING"|Итого |###.###| Итого |###.### |"; M18;M19

3060 GOSUB 5089

3061 LPRINT

3062 LPRINT " Таблица 1.3"

3066 LPRINT " Тепловой баланс до раскисления"

3067 GOSUB 5089

3068 LPRINT "| Приход тепла | Расход тепла |" :GOSUB 5089

3069 LPRINT "|Статьи прихода | Кдж | % | Статьи расхода | Кдж | % |"

3070 GOSUB 5089

3071 LPRINT USING "|Физ. тепло чугуна|######.#|##.##|Физ. тепло металла |#######.#|##.##|";QP(0);SS(0);QL(1);CC(1)

3072 GOSUB 5089

3073 LPRINT USING "|Тепло окис.примес|######.#|##.##|Физ. тепло шлака |#######.#|##.##|";QP(1);SS(1);QL(2);CC(2)

3074 GOSUB 5089

3075 LPRINT USING "|Тепло шлакообраз.|######.#|##.##|Тепло унос.отх.газа|#######.#|##.##|";QP(2);SS(2);QL(3);CC(3)

3076 GOSUB 5089

3077 LPRINT USING "|Тепло окис.Feдыма|######.#|##.##|Тепло диссоц. влаги|#######.#|##.##|";QP(4);SS(4);QL(4);CC(4)

3078 GOSUB 5089

3079 LPRINT USING "|Теп.миксер. шлака|######.#|##.##|Теп.диссоц.окислаFe|#######.#|##.##|";QP(5);SS(5);QL(6);CC(6)

3080 GOSUB 5089

3081 LPRINT "|Тепло образования| | |Тепло уносимое | | |"

3082 LPRINT USING "|окислов Fe шлака |######.#|##.##| Fe2O3 дыма |#######.#|##.##|";QP(3);SS(3);QL(7);CC(7)

3083 GOSUB 5089

3084 LPRINT USING "|Физ.тепло лома |######.#|##.##|Теп.унос.Fe выброса|#######.#|##.##|";QP(6);SS(6);QL(8);CC(8)

3085 GOSUB 5089

3086 LPRINT USING "| | | |Теп.унос.Fe кор-ов |#######.#|##.##|";QL(9);CC(9)

3087 GOSUB 5089

3088 LPRINT USING "| | | |Теп.диссоц. CaCO3 |#######.#|##.##|";QL(5);CC(5)

3089 GOSUB 5089

3090 LPRINT USING "| | | |Потери тепла |#######.#|##.##|";QL(0);CC(0)

3091 GOSUB 5089

3092 LPRINT USING "| Итого |######.#|#####| Итого |#######.#|#####|";Q8;FF1;Q19;FF2

3093 GOSUB 5089 :LPRINT

3094 LPRINT " Таблица 1.4"

3095 LPRINT " Химический состав шлака "

3096 GOSUB 5089

3097 LPRINT "|SiO2 |AL2O3| MnO | CaO | MgO |P2O5 | S |CaF2 | FeO |Fe2O3|Сумма |"

3098 GOSUB 5089

3099 LPRINT USING "|##.##|##.##|##.##|##.##|##.##|##.##|##.##|##.##|##.##|##.##|### |";S(0);S(1);S(2);S(3);S(4);S(5);S(6);S(7);S(8);S(9);SW

3100 GOSUB 5089 :LPRINT :LPRINT

3101 LPRINT " Таблица 1.5"

3102 LPRINT" Состав и количество отходящих газов "

3103 GOSUB 5089

3104 LPRINT "| Газы | CO | CO2 | 2O | H2 | N2 | O2 | Ar |"

3105 GOSUB 5089

3106 LPRINT USING "| Масса ,кг |##.####|##.####|##.####|##.####|##.####|##.####|##.####|";G(1);G(0);G(2);G(3);G(4);G(5);G(6)

3107 GOSUB 5089

3109 LPRINT USING "|Масса,нм^3|##.####|##.####|##.####|##.####|##.####| ##.####| ##.####|";E(1);E(0);E(2);E(3);E(4);E(5);E(6)

3110 GOSUB 5089:LPRINT USING "|Состав , %|##.####|##.####|##.####|##.####| ##.####|##.####|##.####|";GC(1);GC(0);GC(2);GC(3);GC(4);GC(5);GC(6):GOSUB 5089

3111 LPRINT:LPRINT :FOR I=1 TO 10:LPRINT :NEXT I

3112 LPRINT " Таблица 1.6"

3113 LPRINT " Расход материалов на плавку и расходные коэффициенты"

3114 GOSUB 5089

3115 LPRINT "| | Расход материалов| Расходный коэф.|"

3116 LPRINT "| Материалы | на плавку ,т | т/т жид. ст. |"

3117 GOSUB 5089

3118 LPRINT USING "| Жидкий чугун | ######.##### | #####.##### |";MR(0);MT(0) :GOSUB 5089

3119 LPRINT USING "| Стальной лом | ######.##### | #####.##### |";MR(1);MT(1)

3120 GOSUB 5089

3121 LPRINT USING "| Руда железная | ######.##### | #####.##### |";MR(2);MT(2)

3122 GOSUB 5089

3123 LPRINT USING "| Плавиковый шпат | ######.##### | #####.##### |";MR(3);MT(3)

3124 GOSUB 5089

3125 LPRINT USING "| Известь | ######.##### | #####.##### |";MR(4);MT(4)

3126 GOSUB 5089

3127 LPRINT USING "| Дутье | ######.##### | #####.##### |";MR(5);MT(5)

3128 GOSUB 5089

3130 LPRINT:LPRINT

3135 LPRINT " Химический состав металла до раскисления ,% :"

3137 LPRINT " [C ]="A0:LPRINT " [Si]="A1:LPRINT " [Mn]="A2:LPRINT " [P ]="A3:LPRINT " [S ]="A4

3138 LPRINT:LPRINT USING " Hеобходимая температура лома =###.## C'";T

5000 END

5089 LPRINT "============================================================="

5090 RETURN