4.1.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)

13 INPUT "Введите расход миксерного шлака ";K(7)

14 INPUT "Введите расход плавикового шпата ";M1

15 INPUT "Введите расход футеровки ";M2

16 INPUT "Введите расход железной руды ";M3

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

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

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

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

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

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

23 INPUT "Введите температуру лома ";C(5)

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

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

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

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

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

29 INPUT "SiO2ф";V(0)

30 INPUT "CaOф";V(1)

31 INPUT "AL2O3ф ";V(2)

32 INPUT "MgOф ";V(3)

33 INPUT "Fe2O3ф ";V(4)

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

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

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

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

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

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

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

41 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)

47 INPUT "Введите SiO2изв.";U(1)

48 INPUT "Введите Sизв.";U(2)

50 INPUT "Введите AL2O3изв.";U(3)

51 INPUT "Введите CaOизв.";U(4)

52 INPUT "Введите MgOизв.";U(5)

53 INPUT "Введите H2Oизв.";U(6)

54 INPUT "Введите (m)изв.";U(7)

55 KL1=39.94

56 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

57 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

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

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 M7=90

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

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-D7)

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-D7)

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)

1030 R11=.84*C(5)

1040 R12=R1+R3+R5+R8+R9:R13=R2+R4+R6+R10+R11

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:R37=.026*R13:R38=.026*R7

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

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

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

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

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

1240 X=R42/R43

1250 Y=D82+D83*X

1260 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

1310 M7=M11

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

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

1555 Y1=(100*(D52+D53*X))/(100-D7)

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

1561 S(0)=((D37+D38*X)*100)/Y1

1565 SW=0

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

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

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

2063 MG=0:ME=0:SC=0

2065 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

2066 OPEN "balans.dat" for output as #1

2067 PRINT#1," Гр. ";A$

2068 PRINT#1," Ст. ";B$

2069 PRINT#1,""

2070 PRINT#1," ИСХОДHЫЕ ДАHHЫЕ:"

2071 PRINT#1," Таблица 1.1"

2072 PRINT#1," Химсостав чугуна и лома"

2073 GOSUB 5089

2074 PRINT#1, " | | Элементы |"

2075 PRINT#1," |Материалы|================================|"

2076 PRINT#1, " | | C | Si | Mn | P | S |"

2077 GOSUB 5089

2078 PRINT#1, " | чугун |"USING " #.### |";K(0);K(1);K(2);K(3);K(4)

2079 GOSUB 5089

2080 PRINT#1, " | Лом |"USING" #.### |";C(0);C(1);C(2);C(3);C(4)

2081 GOSUB 5089

2082 PRINT#1, USING " Температура чугуна=#### C`";K(5)

2083 PRINT#1, USING " Температура лома =### C`";C(5)

2084 PRINT#1, USING " Температура стали =#### C`";C(8)

2085 PRINT#1, USING " [C]готовой стали =#.## %";C(9)

2086 PRINT#1, USING " Коэф. распр. серы =##.#";C(6)

2087 PRINT#1, USING " Коэф.распр.фосфора=##.#";C(7)

2088 PRINT#1, USING " Основность шлака =##.#";K(6)

2089 PRINT#1, USING " Количество Ar=##.## кг/100кг металлошихты ";KL

2090 PRINT#1, USING " Емкость конвертера=### тонн";GN

3000 PRINT#1, USING " Расход плавик.шпат=#.## %";M1

3001 PRINT#1, USING " Расход футеровки =#.## %";M2

3002 PRINT#1, USING " Расход жел. руды =#.## %";M3

3003 PRINT#1, " Химический состав извести ;% :"

3004 PRINT#1, USING "CO2=#.##|SiO2=#.##|S=.###|AL2O3=#.##|CaO=##.##| MgO=#.##|H2O=#.##";U(0);U(1);U(2);U(3);U(4);U(5);U(6)

3005 PRINT#1, USING " (m)=##.##";U(7)

3015 PRINT#1, " Хим.состав футеровки ;% :"

3016 PRINT#1, USING " SiO2=#.## |CaO=##.## |AL2O3=#.## |MgO=##.## |Fe2O3=#.##";V(0);V(1);V(2);V(3);V(4)

3029 PRINT#1, ""

3030 PRINT#1, " Результаты вычислений"

3031 PRINT#1, " Таблица 1.2"

3032 PRINT#1, " Материальный баланс до раскисления "

3033 GOSUB 5089

3034 PRINT#1, " | Поступило | Получено |"

3035 GOSUB 5089

3036 PRINT#1, " | Материалы | кг | Материалы | кг |"

3037 GOSUB 5089

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

3039 GOSUB 5089

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

3041 GOSUB 5089

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

3044 GOSUB 5089

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

3046 GOSUB 5089

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

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

3050 GOSUB 5089

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

3052 GOSUB 5089

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

3054 GOSUB 5089

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

3056 GOSUB 5089

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

3058 GOSUB 5089

3059 PRINT#1,USING"| Итого |###.###| Итого |###.### |";M18;M19

3060 GOSUB 5089

3062 PRINT#1," Таблица 1.3"

3066 PRINT#1," Тепловой баланс до раскисления "

3067 GOSUB 5089

3068 PRINT#1,"| Приход тепла | Расход тепла |" :GOSUB 5089

3069 PRINT#1,"|Статьи прихода| Кдж | % | Статьи расхода | Кдж | % |"

3070 GOSUB 5089

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

3072 GOSUB 5089

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

3074 GOSUB 5089

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

3076 GOSUB 5089

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

3078 GOSUB 5089

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

3080 GOSUB 5089

3081 PRINT#1, "|Тепло образования| | |Тепло уносимое| | |"

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

3083 GOSUB 5089

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

3085 GOSUB 5089

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

3087 GOSUB 5089

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

3089 GOSUB 5089

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

3091 GOSUB 5089

3092 PRINT#1, USING" | Итого |######.#|#####| Итого |#######.#|#####|";Q8;FF1;Q19;FF2

3093 GOSUB 5089

3094 PRINT#1, " Таблица 1.4"

3095 PRINT#1, " Химический состав шлака "

3096 GOSUB 5089

3097 PRINT#1, "|SiO2 |AL2O3| MnO | CaO | MgO |P2O5 | S |CaF2 | FeO |Fe2O3|Сумма |"

3098 GOSUB 5089

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

3100 GOSUB 5089

3101 PRINT#1, " Таблица 1.5"

3102 PRINT#1, " Состав и количество отходящих газов "

3103 GOSUB 5089

3104 PRINT#1, "| Газы | CO | CO2 | H2O | H2 | N2 | O2 | Ar |"

3105 GOSUB 5089

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

3107 GOSUB 5089

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

3110 GOSUB 5089:PRINT#1, USING "| Состав , %|##.####|##.####|##.####|##.####|##.####|##.####|##.####|";GC(1);GC(0);

GC(2);GC(3);GC(4);GC(5);GC(6):GOSUB 5089

3111 PRINT#1,:FOR I=1 TO 11 :NEXT I

3112 PRINT#1, "

3113 PRINT#1, " Таблица 1.6"

3114 PRINT#1, " Расход материалов на плавку и расходные коэффициенты "

3115 GOSUB 5089

3116 PRINT#1, " | | Расход материалов| Расходный коэф.|"

3117 PRINT#1, " | Материалы | на плавку ,т | т/т жид. ст. |"

3118 GOSUB 5089

3119 PRINT#1,USING"| Жидкий чугун | ######.##### | #####.##### |";MR(0);MT(0) :GOSUB 5089

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

3121 GOSUB 5089

3122 PRINT#1,USING"| Руда железная | ######.##### | #####.##### |";MR(2);MT(2)

3123 GOSUB 5089

3124 PRINT#1,USING"| Плавиковый шпат | ######.##### | #####.##### |";MR(3);MT(3)

3125 GOSUB 5089

3126 PRINT#1,USING"| Известь | ######.##### | #####.##### |";MR(4);MT(4)

3127 GOSUB 5089

3128 PRINT#1,USING"| Дутье | ######.##### | #####.##### |";MR(5);MT(5)

3129 GOSUB 5089

3130 PRINT#1,:PRINT

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

3137 PRINT#1," [C ]="A0

3138 PRINT#1," [Si]="A1

3139 PRINT#1," [Mn]="A2

3140 PRINT#1," [P ]="A3

3141 PRINT#1," [S ]="A4

5000 END

5089 PRINT#1, " ======================================================================"

5090 RETURN