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

 program Mat_balans;

 {  ********************************************************************

   ПРОГРАММА ДЛЯ РАСЧЕТА МАТЕРИАЛЬНОГО БАЛАНСА ПРОЦЕССА КОНВЕРТИРОВАНИЯ

                          МЕДНО-НИКЕЛЕГО ШТЕЙНА

   ********************************************************************}

 const

  Ni_s=8.3; Cu_s=6.82; Co_s=0.35; S_s=26.2; Fe_s=49.31; Fe_met_s=8.0;

  m=100;

 { Ni_h=1.05;}

  SiO2_fl=63.8; Fe_fl=5.1; Al2O3_fl=14.7; CaO_fl=3.6; MgO_fl=3.1;w_fl=6;

  Fe_f1=2.5; S_f1=23.5; P_f1=0.6;

  Ni_k1=1.7; Cu_k1=1.1; S_k1=2.9; SiO2_k1=22.0; Fe3O4_k1=16.2; Co_k1=0.14;

  n=0.35; k=0.4;

  Nu_g=97; b=0.03;

  alfa=0.6; beta=0.3; gamma=0.8; a=0.02;

  var

  w : TEXT;

  A_s, B_s,

  Ni_s1, Cu_s1, Co_s1, Fe_met_s1, Fe_s1, S_s1,

  Ni3S2_s, Cu2S_s, CoS_s, FeS_s, FeO_s,

  P_s, Sumsht1, Sumsht2, Sumsht3, Sumsht4, Fe_Fe_met_s, Fe_FeO_s,

  Fe_FeS_s, Ost1, Ost2, Ost3, Ost4, Ost5, Pr1, p : real;

  Fl1, Fl2, Fl3, Fl4, Fl5, Fl6, P_fl,B_f,s,

  SiO2_Fl2, SiO2_Fl5, SiO2_Fl4, Fe_Fl3, SumFl1, SumFl3,

  H2O_Fl3, H2O_Fl2, H2O_Fl5, SumFl2, Fe2O3_fl, K2O_fl,

  K2O_Fl1, Al2O3_Fl11, CaO_Fl2, Al2O3_Fl2, MgO_Fl3, K2O_Fl3, Al2O3_Fl3,

  Al2O3_Fl4, OST_Fl2,OST_Fl3,OST_Fl4,OST_Fl5, P_fl1, H2O_fl, H2O_fl_2, SumFl4 : real;

  x, y, z, x1, y1, z1, Ni_ok_k, SiO2_k, Ni_k, Cu_k, S_k, Fe3O4_k, Co_k,

  NiO_k, Ni3S2_k, Cu2S_k, CoO_k, Fe_k, S_FeS_k, FeS_k, Fe_FeS_k, Cu_Cu2S_k,

  Fe_Fe3O4_k, Fe_FeO_k, FeO_k, Al2O3_k, CaO_k, MgO_k, P_k, S_Ni3S2_k,

  S_Cu2S_k, O_NiO_k, O_CoO_k, O_Fe3O4_k, O_FeO_k, Ni_Ni3S2_k, Ni_NiO_k,

  K2O_k,Sumk, Sumk1, Sumk2, Sumk3, Sumk4 : real;

  j, Fe_f, S_f, P_f, Co_f, Ni_f, Cu_f, Ni_met_f, Ni3S2_f, Cu2S_f, Cu_met_f,

 FeS_f, CoS_f, Cu_Cu2S_f, S_Ni3S2_f, S_Cu2S_f, S_CoS_f, S_FeS_f, Ni_Ni3S2_f,

 Fe_FeS_f, Sumf, Sumf1, Sumf2, Sumf3 : real;

  N2_d,O2_dp, O2_dt, SO2_g, S_g, O2_SO2_g, O_g, O2_g, H2O_g, Sumg,

  Sumg1,S_pr, S_rs, O2_pr, O2_rs, O2_1, O2_2 : real;

  m_fl, U, H2O_p_fl,

  SiO2_p_fl, Al2O3_p_fl, CaO_p_fl, MgO_p_fl, Fe2O3_p_fl, K2O_p_fl, P_p_fl,

  Ni3S2_p_s, Cu2S_p_s, CoS_p_s, FeS_p_s, Fe_met_p_s, FeO_p_s, P_p_s,

  Ni3S2_p_f, Ni_met_p_f, Cu2S_p_f, Cu_met_p_f, FeS_p_f, CoS_p_f,

  CaO_p_f, MgO_p_f, Al2O3_p_f, SiO2_p_f, P_p_f,

  Ni3S2_p_k, NiO_p_k, Cu2S_p_k, CoO_p_k, FeS_p_k, Fe3O4_p_k, FeO_p_k,

  SiO2_p_k, Al2O3_p_k, CaO_p_k, MgO_p_k, K2O_p_k, P_p_k,

  Ni3S2_p, Cu2S_p, CoS_p, FeS_p, FeO_p, SiO2_p, Al2O3_p, CaO_p, MgO_p,

  NiO_p, Ni_met_p, Cu_met_p, CoO_p, Fe3O4_p, P_p, Fe2O3_p, Fe_met_p, K2O_p,

  Ni_Ni3S2_p, Ni_NiO_p, Cu_Cu2S_p, Co_CoS_p, Co_CoO_p, Fe_FeS_p, Fe_Fe2O3_p,

  Fe_Fe3O4_p, Fe_FeO_p, 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, Sump, Sump1, Sump2, Sump3,

  Sump4, SiO2_p1 : real;

  Ni3S2_os, Cu2S_os, CoS_os, FeS_os, Fe_met_os, FeO_os, P_os,

  Ni_os, Cu_os, Co_os, Fe_os, S_os, O_os,

  SiO2_ofl, Al2O3_ofl, CaO_ofl, MgO_ofl, K2O_ofl, Fe2O3_ofl, P_ofl,

  Fe_ofl, O_ofl,

  Ni3S2_of, Ni_met_of, Cu2S_of, Cu_met_of, FeS_of, CoS_of, P_of,

  Ni_of, Cu_of, Co_of, Fe_of, S_of,

  Ni3S2_ok, NiO_ok, Cu2S_ok, CoO_ok, FeS_ok, FeO_ok, Fe3O4_ok,

  SiO2_ok, Al2O3_ok, CaO_ok, MgO_ok, K2O_ok, P_ok,

  Ni_ok, Cu_ok, Co_ok, Fe_ok, S_ok, O_ok,

  Ni_op, Cu_op, Co_op, Fe_op, S_op, O_op,

  SFe1, SO1, SP1, SNi2, SCu2, SCo2, SFe2, SS2, SO2, SSiO22, SAl2O32,SO3_g,

  SCaO2, SMgO2, SK2O2, SP2, S1, S2, S3, S4, S5, S6, S7, S8, S9 : real;

  { Расчет вещественного состава штейна }

  procedure Sostav_shteina;

  begin

   { Содержание соединений металлов в штейне }

   A_s := S_s-0.3641*Ni_s-0.2523*Cu_s-0.5440*Co_s;

   B_s := Fe_s-1.7420*A_s-Fe_met_s;

   Ni3S2_s := 1.3641*Ni_s;

    Cu2S_s := 1.2523*Cu_s;

     CoS_s := 1.5440*Co_s;

     FeS_s := 2.7420*A_s;

     Feo_s := 1.2865*B_s;

       P_s := 100 - (Ni3S2_s+Cu2S_s+CoS_s+FeS_s+FeO_s+Fe_met_s);

     SumSht1 := 100;

  { Содержание Ni, Cu, Co в соединения цветных металлов в штейне }

    SumSht2 := Ni_s+Cu_s+Co_s;

  { Содержание железа в соединениях цветных металлов в штейне }

      Fe_FeS_s := 1.7420*A_s;

      Fe_FeO_s := B_s;

         SumSht3 := Fe_met_s+Fe_FeS_s+Fe_FeO_s;

  { Содержание остальных компонентов в соединения металлов в штейне }

    Ost1 := 0.3641*Ni_s;

    Ost2 := 0.2523*Cu_s;

    Ost3 := 0.5440*Co_s;

    Ost4 := A_s;

    Ost5 := 0.2865*B_s;

    Sumsht4:= Ost1+Ost2+Ost3+Ost4+Ost5+P_s;

 { Вывод вещественного состава рудного и обеднительного штейнов }

writeln(w);

writeln(w,'Штейн');

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

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

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

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

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

writeln(w,'    Ni3S2    ! ',Ni3S2_s:6:3,'  !   ',Ni_s:6:3,'  !   -    !    ',Ost1:6:3);

writeln(w,'    Cu2S     ! ',Cu2S_s:6:3,'  !   ',Cu_s:6:3,'  !   -    !    ',Ost2:6:3);

writeln(w,'    CoS      ! ',CoS_s:6:3,'  !   ',Co_s:6:3,'  !   -    !    ',Ost3:6:3);

writeln(w,'    FeS      ! ',FeS_s:6:3,'  !     -     ! ',Fe_FeS_s:6:3,' !    ',Ost4:6:3);

writeln(w,'    FeO      ! ',FeO_s:6:3,'  !     -     ! ',Fe_FeO_s:6:3,' !    ',Ost5:6:3);

writeln(w,'    Fe_met   ! ',Fe_met_s:6:3,'  !     -     ! ',Fe_met_s:6:3,' !      -      ');

writeln(w,'    Прочие   ! ',P_s:6:3,'  !     -     !   -    !    ',P_s:6:3);

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

writeln(w,'    Итого    !   100   !   ',Sumsht2:6:3,'  ! ',Sumsht3:6:3,' !    ',Sumsht4:6:3);

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

 end;

  { Расчет вещественного состава флюса }

  procedure Sostav_flusa;

  begin

      { < ввод исходного содержания металлов во флюсе > }

  { Содержание соединений металлов во флюсе }

   B_f:=SiO2_fl-1.1785*Al2O3_fl-1.0713*CaO_fl-1.4908*MgO_fl;

   Fl1 := B_f;

   Fl2 := 2.5320*Al2O3_fl;

   Fl3 := 1.6717*Fe_fl;

   Fl4 := 2.0713*CaO_fl;

   Fl5 := 2.4908*MgO_fl;

  P_fl := 100 - ( Fl1+Fl2+Fl3+Fl4+Fl5 );

  SumFl1:= Fl1 + Fl2 + Fl3 + Fl4 + Fl5 + P_fl;

  writeln(w,Fl2:6:3);

 { Содержание SiO2 и Fe в соединениях флюса }

   SiO2_Fl2 := 1.1785*Al2O3_fl;

     Fe_Fl3 := Fe_fl;

   SiO2_Fl4 := 1.0713*CaO_fl;

   SiO2_Fl5 := 1.4908*MgO_fl;

     SumFl2 := B_f+SiO2_Fl5+SiO2_Fl4+SiO2_Fl2+Fe_Fl3 ;

 { Содержание воды в каждом из соединений флюса }

  H2O_Fl2 := 0.3535*Al2O3_fl;

  H2O_Fl3 := 0.2420*Fe_fl;

   SumFl3 := H2O_Fl2+H2O_Fl3;

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

  OST_Fl2 := Al2O3_fl;

  OST_Fl3 := 0.4297*Fe_fl;

  OST_Fl4 := CaO_fl;

  OST_Fl5 := MgO_fl;

   SumFl4 :=  OST_Fl2 + OST_Fl3 + OST_Fl4 + OST_Fl5 + P_fl;

writeln(w);

writeln(w,'Флюс');

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

writeln(w,'       Соединения     !  Всего  ! SiO2 и Fe !   H2O  !    остальное   ');