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

writeln(w,'  SO3  ! ',SO3_g:5:2,' ! ',(0.2798*SO3_g):5:2,' ! ',(SO3_g*100/Sumg):5:2,' ! ',(0.699*SO3_g/Sumg1*100):5:2,

' ! ',(S_g*b):5:2,' ! ',((S_g*b)*100/Sumg):5:2,' ! ',1.497*b*S_g:5:2,' ! ',(1.497*b*S_g*100/Sumg):5:2,' !   -  !   -   ');

writeln(w,'  O2   ! ',O2_g:5:2,' ! ',(0.697*O2_g):5:2,' ! ',(O2_g*100/Sumg):5:2,' ! ',(0.697*O2_g/Sumg1*100):5:2,

' !   -   !   -   ! ',O2_g:5:2,' ! ',

(O2_g*100/Sumg):5:2,' !   -   !   -   ');

writeln(w,'  H2O  ! ',H2O_g:5:2,' ! ',(1.246*H2O_g):5:2,' ! ',(H2O_g*100/Sumg):5:2,

' ! ',(1.246*H2O_g/Sumg1*100):5:2,' !   -   !   -   !   -   !   -   ! ',H2O_g:5:2,' ! ',(H2O_g*100/Sumg):5:2);

writeln(w,'  N2   ! ',N2_d:5:2,'! ',(0.799*N2_d):5:2,' ! ',(N2_d*100/Sumg):5:2,

' ! ',(0.799*N2_d/Sumg1*100):5:2,' !   -   !   -   !   -   !   -   ! ',N2_d:5:2,' ! ',(N2_d*100/Sumg):5:2);

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

writeln(w,' Итого ! ',Sumg:5:2,' ! ',Sumg1:5:2,' !  100  !  100  ! ',

S_g:5:2,' ! ',(S_g*100/Sumg):5:2,

' ! ',O_g:5:2,' ! ',(O_g*100/Sumg):5:2,' ! ',H2O_g:5:2,' ! ',(H2O_g*100/Sumg):5:2);

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

 end;

  { Расчет количественного состава пыли }

  procedure Sostav_pyli;

   begin

            s := z;

            z := z - H2O_g;

            U := m*a / ( z + m*alfa + x*beta + y*gamma );

  { Количество отдельных компонентов в пыли флюса }

      SiO2_p_fl := SiO2_fl*0.01*z * U;

     Al2O3_p_fl := Al2O3_fl*0.01*z * U;

       CaO_p_fl := CaO_fl*0.01*z * U;

       MgO_p_fl := MgO_fl*0.01*z * U;

     Fe2O3_p_fl := 1.6717*Fe_fl*0.01*z * U;

       H2O_p_fl := (SumFl3 + H2O_fl)*0.01*z * U;

         P_p_fl := P_fl*0.01*z * U;

 { Количество компонентов в пыли штейна }

    Ni3S2_p_s := Ni3S2_s * alfa * U;

     Cu2S_p_s := Cu2S_s * alfa * U;

      CoS_p_s := CoS_s * alfa * U;

      FeS_p_s := FeS_s * alfa * U;

   Fe_met_p_s := Fe_met_s * alfa * U;

      FeO_p_s := FeO_s * alfa * U;

        P_p_s := P_s * alfa * U;

 { ********************** в пыли файнштейна }

    Ni3S2_p_f := Ni3S2_f * beta * U;

   Ni_met_p_f := Ni_met_f * beta * U;

     Cu2S_p_f := Cu2S_f * beta * U;

   Cu_met_p_f := Cu_met_f * beta * U;

      FeS_p_f := FeS_f * beta * U;

      CoS_p_f := CoS_f * beta * U;

        P_p_f := P_f * beta * U;

 { ********************** в пыли конв. шлака }

      NiO_p_k := NiO_k * gamma * U;

    Ni3S2_p_k := Ni3S2_k * gamma * U;

     Cu2S_p_k := Cu2S_k * gamma * U;

      CoO_p_k := CoO_k * gamma * U;

      FeS_p_k := FeS_k * gamma * U;

    Fe3O4_p_k := Fe3O4_k * gamma * U;

      FeO_p_k := FeO_k * gamma * U;

     SiO2_p_k := SiO2_k * gamma * U;

    Al2O3_p_k := Al2O3_k * gamma * U;

      CaO_p_k := CaO_k * gamma * U;

      MgO_p_k := MgO_k * gamma * U;

        P_p_k := P_k * gamma * U;

 { Мат. баланс пыли }

    Ni3S2_p := Ni3S2_p_s + Ni3S2_p_f + Ni3S2_p_k;

      NiO_p := NiO_p_k;

   Ni_met_p := Ni_met_p_f;

     Cu2S_p := Cu2S_p_s + Cu2S_p_f + Cu2S_p_k;

   Cu_met_p := Cu_met_p_f;

      CoS_p := CoS_p_s + CoS_p_f;

      CoO_p := CoO_p_k;

      FeS_p := FeS_p_s + FeS_p_f + FeS_p_k;

      FeO_p := FeO_p_s + FeO_p_k;

    Fe2O3_p := Fe2O3_p_fl;

    Fe3O4_p := Fe3O4_p_k;

   Fe_met_p := Fe_met_p_s;

     SiO2_p := SiO2_p_fl + SiO2_p_k;

    Al2O3_p := Al2O3_p_fl + Al2O3_p_k;

      CaO_p := CaO_p_fl + CaO_p_k;

      MgO_p := MgO_p_fl + MgO_p_k;

      K2O_p := K2O_p_fl + K2O_p_k;

        P_p := P_p_s + P_p_fl + P_p_f + P_p_k;

      { Цветные металлы }

  Ni_Ni3S2_p := 0.7331*Ni3S2_p;

    Ni_NiO_p := 0.7858*NiO_p;

   Cu_Cu2S_p := 0.7985*Cu2S_p;

    Co_CoS_p := 0.6477*CoS_p;

    Co_CoO_p := 0.7865*CoO_p;

    { Железо Fe }

    Fe_FeS_p := 0.6353*FeS_p;

  Fe_Fe2O3_p := 0.6994*Fe2O3_p;

  Fe_Fe3O4_p := 0.7236*Fe3O4_p;

    Fe_FeO_p := 0.7773*FeO_p;

    {  O и S }

   S_Ni3S2_p := 0.2670*Ni3S2_p;

     O_NiO_p := 0.2142*NiO_p;

    S_Cu2S_p := 0.2015*Cu2S_p;

     S_CoS_p := 0.3523*CoS_p;

     O_CoO_p := 0.2135*CoO_p;

     S_FeS_p := 0.3647*FeS_p;

   O_Fe2O3_p := 0.3006*Fe2O3_p;

   O_Fe3O4_p := 0.2764*Fe3O4_p;

     O_FeO_p := 0.2227*FeO_p;

  Sump :=  Ni3S2_p + NiO_p + Ni_met_p + Cu2S_p + Cu_met_p + CoS_p + CoO_p +

           FeS_p + FeO_p + Fe2O3_p + Fe3O4_p + Fe_met_p + SiO2_p + Al2O3_p +

           CaO_p + MgO_p + K2O_p + P_p;

  Sump1 := Ni_Ni3S2_p + Ni_NiO_p + Ni_met_p + Cu_Cu2S_p + Co_CoS_p +

           Co_CoO_p + Cu_met_p;

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

  Sump3 := S_Ni3S2_p + O_NiO_p + S_Cu2S_p + S_CoS_p + O_CoO_p + S_FeS_p +

           O_Fe2O3_p + O_Fe3O4_p + O_FeO_p;

  Sump4 := SiO2_p + Al2O3_p + CaO_p + MgO_p + K2O_p + P_p;

writeln(w,U:6:3,' ',SiO2_p_fl:6:3,' ',SiO2_p_k:6:3);

writeln(w,'Пыль');

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

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

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

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

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

writeln(w,'   Ni3S2    ! ',Ni3S2_p:6:3,' ',(Ni3S2_p*100/Sump):6:3,' ! ',Ni_Ni3S2_p:6:3,' ',(Ni_Ni3S2_p*100/Sump):6:3,

' !      -      - ! ',S_Ni3S2_p:6:3,' ',(S_Ni3S2_p*100/Sump):6:3,' !      -      - ');