Программа для расчета материального баланса процесса конвертирования медно-никелего штейна, страница 3

' ',(Cu_met_f*100/Sumf):6:3,' !      -      - !      -      - ');

writeln(w,'   Прочие   ! ',P_f:6:3,' ',(P_f*100/Sumf):6:3,' !      -      - !      -      - ! ',

P_f:6:3,' ',(P_f*100/Sumf):6:3);

writeln(w,'------------+---------------+---------------+---------------+----------------');

writeln(w,'   Итого    ! ',Sumf:6:3,'  100   ! ',Sumf1:6:3,' ',(Sumf1*100/Sumf):6:3,' ! ',

Sumf2:6:3,' ',(Sumf2*100/Sumf):6:3,' ! ',Sumf3:6:3,' ',(Sumf3*100/Sumf):6:3);

writeln(w,'-----------------------------------------------------------------------------');

writeln(w);

writeln(w,'Конвертерный шлак');

writeln(w,'-----------------------------------------------------------------------------------');

writeln(w,' Соединения !    Всего    !  Цветные    !     Fe      !    S и O    !  Остальное  ');

writeln(w,'            !  кг     %   !  металлы    !  кг     %   !  кг     %   !  кг      %   ');

writeln(w,'------------+-------------+-------------+-------------+-------------+--------------');

writeln(w,'            !             !             !             !             !             ');

writeln(w,'   Ni3S2    ! ',Ni3S2_k:5:2,' ',(Ni3S2_k*100/Sumk):5:2,' ! ',Ni_Ni3S2_k:5:2,' ',(Ni_Ni3S2_k*100/Sumk):5:2,

' !     -     - ! ',S_Ni3S2_k:5:2,' ',(S_Ni3S2_k*100/Sumk):5:2,' !     -     - ');

writeln(w,'   NiO      ! ',NiO_k:5:2,' ',(NiO_k*100/Sumk):5:2,' ! ',Ni_NiO_k:5:2,' ',(Ni_NiO_k*100/Sumk):5:2,

' !     -     - ! ',O_NiO_k:5:2,' ',(O_NiO_k*100/Sumk):5:2,' !     -     -  ');

writeln(w,'   Cu2S     ! ',Cu2S_k:5:2,' ',(Cu2S_k*100/Sumk):5:2,' ! ',(Cu_k1*0.01*y):5:2,' ',Cu_k1:5:2,

' !     -     - ! ',S_Cu2S_k:5:2,' ',(S_Cu2S_k*100/Sumk):5:2,' !     -     - ');

writeln(w,'   CoO      ! ',CoO_k:5:2,' ',(CoO_k*100/Sumk):5:2,' ! ',(Co_k1*0.01*y):5:2,' ',Co_k1:5:2,

' !     -     - ! ',O_CoO_k:5:2,' ',(O_CoO_k*100/Sumk):5:2,' !     -     - ');

writeln(w,'   FeS      ! ',FeS_k:5:2,' ',(FeS_k*100/Sumk):5:2,' !     -     - ! ',Fe_FeS_k:5:2,

' ',(Fe_FeS_k*100/Sumk):5:2,' ! ',S_FeS_k:5:2,' ',(S_FeS_k*100/Sumk):5:2,' !     -     - ');

writeln(w,'   Fe3O4    ! ',Fe3O4_k:5:2,' ',(Fe3O4_k*100/Sumk):5:2,' !     -     - ! ',Fe_Fe3O4_k:5:2,' ',

(Fe_Fe3O4_k*100/Sumk):5:2,' ! ',O_Fe3O4_k:5:2,' ',(O_Fe3O4_k*100/Sumk):5:2,' !     -     - ');

writeln(w,'   FeO      ! ',FeO_k:5:2,' ',(FeO_k*100/Sumk):5:2,' !     -     - ! ',Fe_FeO_k:5:2,

' ',(Fe_FeO_k*100/Sumk):5:2,' ! ',O_FeO_k:5:2,' ',(O_FeO_k*100/Sumk):5:2,' !     -     - ');

writeln(w,'   SiO2     ! ',SiO2_k:5:2,' ',SiO2_k1:5:2,' !     -     - !     -     - !     -     - ! ',

SiO2_k:5:2,' ',(SiO2_k*100/Sumk):5:2);

writeln(w,'   Al2O3    ! ',Al2O3_k:5:2,' ',(Al2O3_k*100/Sumk):5:2,

' !     -     - !     -     - !     -     - ! ',Al2O3_k:5:2,' ',(Al2O3_k*100/Sumk):5:2);

writeln(w,'   CaO      ! ',CaO_k:5:2,' ',(CaO_k*100/Sumk):5:2,

' !     -     - !     -     - !     -     - ! ',CaO_k:5:2,' ',(CaO_k*100/Sumk):5:2);

writeln(w,'   MgO      ! ',MgO_k:5:2,' ',(MgO_k*100/Sumk):5:2,

' !     -     - !     -     - !     -     - ! ',MgO_k:5:2,' ',(MgO_k*100/Sumk):5:2);

writeln(w,'   K2O      ! ',K2O_k:5:2,' ',(K2O_k*100/Sumk):5:2,

' !     -     - !     -     - !     -     - ! ',K2O_k:5:2,' ',(K2O_k*100/Sumk):5:2);

writeln(w,'   Прочие   ! ',P_k:5:2,' ',(P_k*100/Sumk):5:2,' !     -     - !     -     - !     -     - ! ',

P_k:5:2,' ',(P_k*100/Sumk):5:2);

writeln(w,'------------+-------------+-------------+-------------+-------------+--------------');

writeln(w,'   Итого    ! ',Sumk:5:2,'  100 ! ',Sumk1:5:2,' ',(Sumk1*100/Sumk):5:2,' ! ',Sumk2:5:2,

' ',(Sumk2*100/Sumk):5:2,' ! ',Sumk3:5:2,' ',(Sumk3*100/Sumk):5:2,' ! ',Sumk4:5:2,' ',(Sumk4*100/Sumk):5:2);

writeln(w,'-----------------------------------------------------------------------------------');

 end;

  { Расчет дутья и газов }

   procedure Sostav_Gazov;

   begin

    O2_pr := 0.2865*B_s +OST_Fl3*0.01*z;

    O2_rs := 0.2725*n*Ni_k1*0.01*y+0.2715*Co_k1*0.01*y+0.2764*Fe3O4_k+

             0.2865*Fe_FeO_k;

     O2_1 := O2_rs - O2_pr;

     S_pr := S_S;

     S_rs := S_f + S_k1*0.01*y;

      S_g := S_pr - S_rs;

    SO2_g := 1.998*(1-b)*S_g;

    SO3_g :=2.497*b*S_g;

     O2_2 := 0.998*(1-b)*S_g+1.497*b*S_g;

    O2_dt := O2_1 + O2_2;

    O2_dp := O2_dt / (0.01*Nu_g);

     N2_d := 3.31 * O2_dp;

     O2_g := O2_dp - O2_dt;

      O_g := O2_g + O2_2;

    H2O_g := SumFl3*0.01*z;

    writeln(w);

    writeln(w,'H2O_g=',H2O_g:6:3);

     Sumg := SO2_g + H2O_g + O2_g + N2_d + SO3_g;

    Sumg1 := 0.683*SO2_g+0.697*O2_g+1.246*H2O_g+0.799*N2_d+0.699*SO3_g;

writeln(w);

writeln(w,'Дутье и газы');

writeln(w,'----------------------------------------------------------------------------------------');

writeln(w,' Соеди !             Всего             !       S       !       O       !    H2O и N2      ');

writeln(w,' нения !--------------------------------------------------------------------------------');

writeln(w,'       !   кг  !  м^3  ! %(по  !  %(по !   кг  ! %(по  !   кг  ! %(по  !   кг  ! %(по  ');

writeln(w,'       !       !       ! массе)!объему)!       ! массе)!       ! массе)!       ! массе)');

writeln(w,'-------+-------+-------+-------+-------+-------+-------+-------+-------+-------+--------');

writeln(w,'       !       !       !       !       !       !       !       !       !       !');

writeln(w,'  SO2  ! ',SO2_g:5:2,' ! ',(0.3497*SO2_g):5:2,' ! ',(SO2_g*100/Sumg):5:2,' ! ',(0.683*SO2_g/Sumg1*100):5:2,

' ! ',(1-b)*S_g:5:2,' ! ',((1-b)*S_g*100/Sumg):5:2,' ! ',0.998*(1-b)*S_g:5:2,' ! ',(0.998*(1-b)*S_g*100/Sumg):5:2,

' !   -   !   -   ');