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

        FeS_ok := FeS_k - FeS_p_k;

        FeO_ok := FeO_k - FeO_p_k;

      Fe3O4_ok := Fe3O4_k - Fe3O4_p_k;

       SiO2_ok := SiO2_k - SiO2_p_k;

      Al2O3_ok := Al2O3_k - Al2O3_p_k;

        CaO_ok := CaO_k - CaO_p_k;

        MgO_ok := MgO_k - MgO_p_k;

        K2O_ok := K2O_k - K2O_p_k;

          P_ok := P_k - P_p_k;

         Ni_ok := 0.7331*Ni3S2_ok + 0.7858*NiO_ok;

         Cu_ok := 0.7985*Cu2S_ok;

         Co_ok := 0.7865*CoO_ok;

         Fe_ok := 0.6353*FeS_ok + 0.7773*Feo_ok + 0.7236*Fe3O4_ok;

          S_ok := 0.2670*Ni3S2_ok + 0.2015*Cu2S_ok + 0.3647*FeS_ok;

          O_ok := 0.2142*NiO_ok + 0.2135*CoO_ok + 0.2227*FeO_ok +

                  0.2764*Fe3O4_ok;

         { пыль }

      Ni_op := Ni_Ni3S2_p + Ni_NiO_p + Ni_met_p;

      Cu_op := Cu_Cu2S_p + Cu_met_p;

      Co_op := Co_CoS_p + Co_CoO_p;

      Fe_op := Fe_FeS_p + Fe_met_p + Fe_Fe2O3_p + Fe_Fe3O4_p + Fe_FeO_p;

       S_op := S_Ni3S2_p + S_Cu2S_p + S_FeS_p + S_CoS_p;

       O_op := O_NiO_p + O_CoO_p + O_FeO_p + O_Fe3O4_p + O_Fe2O3_p;

       SFe1 := Fe_os + Fe_ofl;

        SO1 := O_os + O_ofl + O2_dp;

        SP1 := P_os + P_ofl;

       SNi2 := Ni_of + Ni_ok + Ni_op;

       SCu2 := Cu_of + Cu_ok + Cu_op;

       SCo2 := Co_of + Co_ok + Co_op;

       SFe2 := Fe_of + Fe_ok + Fe_op;

        SS2 := S_of + S_ok + S_op + S_g;

        SO2 := O_ok + O_op + O_g;

     SSiO22 := SiO2_ok + SiO2_p;

    SAl2O32 := Al2O3_ok + Al2O3_p;

      SCaO2 := CaO_ok + CaO_p;

      SMgO2 := MgO_ok + MgO_p;

      SK2O2 := K2O_ok + K2O_p;

        SP2 := P_of + P_ok + P_p;

       S1 := Ni_os + Cu_os + Co_os + Fe_os + S_os + O_os + P_os;

       S2 := SiO2_ofl + Al2O3_ofl + CaO_ofl + MgO_ofl + K2O_ofl + Fe_ofl +

             O_ofl + P_ofl + (SumFl3+H2O_fl)*0.01*z;

       S3 := Ni_os +Cu_os +Co_os + SFe1 + S_os + SO1 + SiO2_ofl + Al2O3_ofl +

             CaO_ofl + MgO_ofl + K2O_ofl + (H2O_fl*0.01*z+SumFl3*0.01*z)+ SP1 + N2_d;

       S4 :=  Ni_of + Cu_of + Co_of + Fe_of +  S_of + P_of;

       S5 :=  Ni_ok + Cu_ok + Co_ok + Fe_ok +  S_ok + O_ok +

              SiO2_ok + Al2O3_ok + CaO_ok + MgO_ok + K2O_k + P_ok;

       S6 :=  Ni_op + Cu_op + Co_op + Fe_op + S_op + O_op + SiO2_p + Al2O3_p +

              CaO_p + MgO_p + K2O_p + P_p;

       S7 :=  S_g + O_g + H2O_g + N2_d;

       S8 :=  SNi2 + SCu2 + SCo2 + SFe2 + SS2 + SO2 + SSiO22 + SAl2O32 +

              SCaO2 + SMgO2 + SK2O2 + H2O_g + SP2 + N2_d;

writeln(w, Co_op:6:3);

writeln(w,'Материальный баланс');

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

writeln(w,' Компо- !          Введено, кг          !            Получено, кг                ');

writeln(w,' ненты  !------------------------------------------------------------------------');

writeln(w,'        ! Штейн !  Флюс ! Дутье ! Всего ! Файн- !  Шлак !  Пыль !  Газы ! Всего ');

writeln(w,'        !       !       !       !       ! штейн !       !       !       !');

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

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

writeln(w,' Ni     ! ',Ni_os:5:2,' !   -   !   -   ! ',Ni_os:5:2,' ! ',Ni_of:5:2,' ! ',Ni_ok:5:2,

' ! ',Ni_op:5:2,' !   -   ! ',SNi2:5:2);

writeln(w,' Cu     ! ',Cu_os:5:2,' !   -   !   -   ! ',Cu_os:5:2,' ! ',Cu_of:5:2,' ! ',Cu_ok:5:2,

' ! ',Cu_op:5:2,' !   -   ! ',SCu2:5:2);

writeln(w,' Co     ! ',Co_os:5:2,' !   -   !   -   ! ',Co_os:5:2,' ! ',Co_of:5:2,' ! ',Co_ok:5:2,' ! ',

Co_op:5:2,' !   -   ! ',SCo2:5:2);

writeln(w,' Fe     ! ',Fe_os:5:2,' ! ',Fe_ofl:5:2,' !   -   ! ',SFe1:5:2,' ! ',Fe_of:5:2,' ! ',

Fe_ok:5:2,' ! ',Fe_op:5:2,' !   -   ! ',SFe2:5:2);

writeln(w,' S      ! ',S_os:5:2,' !   -   !   -   ! ',S_os:5:2,' ! ',S_of:5:2,' ! ',S_ok:5:2,' ! ',

S_op:5:2,' ! ',S_g:5:2,' ! ',SS2:5:2);

writeln(w,' O      ! ',O_os:5:2,' ! ',O_ofl:5:2,' ! ',O2_dp:5:2,' ! ',SO1:5:2,' !   -   ! ',

O_ok:5:2,' ! ',O_op:5:2,' ! ',O_g:5:2,' ! ',SO2:5:2);

writeln(w,' SiO2   !   -   ! ',SiO2_ofl:5:2,' !   -   ! ',SiO2_ofl:5:2,' !   -   ! ',SiO2_ok:5:2,

' ! ',SiO2_p:5:2,' !   -   ! ',SSiO22:5:2);

writeln(w,' Al2O3  !   -   ! ',Al2O3_ofl:5:2,' !   -   ! ',Al2O3_ofl:5:2,' !   -   ! ',Al2O3_ok:5:2,

' ! ',Al2O3_p:5:2,' !   -   ! ',SAl2O32:5:2);

writeln(w,' CaO    !   -   ! ',CaO_ofl:5:2,' !   -   ! ',CaO_ofl:5:2,' !   -   ! ',CaO_ok:5:2,' ! ',

CaO_p:5:2,' !   -   ! ',SCaO2:5:2);

writeln(w,' MgO    !   -   ! ',MgO_ofl:5:2,' !   -   ! ',MgO_ofl:5:2,' !   -   ! ',MgO_ok:5:2,' ! ',

MgO_p:5:2,' !   -   ! ',SMgO2:5:2);

writeln(w,' K2O    !   -   ! ',K2O_ofl:5:2,' !   -   ! ',K2O_ofl:5:2,' !   -   ! ',K2O_ok:5:2,' ! ',

K2O_p:5:2,' !   -   ! ',SK2O2:5:2);

writeln(w,' H2O    !   -   ! ',((SumFl3+H2O_fl)*0.01*z):5:2,' !   -   ! ',(H2O_fl*0.01*z+SumFl3*0.01*z):5:2,

' !   -   !   -   !   -   ! ',H2O_g:5:2,' ! ',H2O_g:5:2);

writeln(w,' N2     !   -   !   -   ! ',N2_d:5:2,'! ',N2_d:5:2,'!   -   !   -   !   -   ! ',N2_d:5:2,'! ',N2_d:5:2);

writeln(w,' Прочие ! ',P_os:5:2,' ! ',P_ofl:5:2,' !   -   ! ',SP1:5:2,' ! ',P_of:5:2,' ! ',P_ok:5:2,

' ! ',P_p:5:2,' !   -   ! ',SP2:5:2);

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

writeln(w,' Итого  ! ',S1:5:2,'! ',S2:5:2,' ! ',(O2_dp+N2_d):5:2,'! ',S3:5:2,'! ',S4:5:2,' ! ',S5:5:2,

' ! ',S6:5:2,' ! ',S7:5:2,' ! ',S8:5:2);

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

close(w);

 end.