Моделирование технологических процессов. Колесникова Н.В - 30 стр.

    readln(Ts);
    write(′Температуру в центре продукта в конце варки (С) = ′);
    readln(Tc);

     writeln
(′_________________________________________________________________
_________________________________________________________________′);
     writeln(′Результаты      тепловой      обработки      копчено-вареного
мясопродукта: ′);
     xck:=6.16+4.19*Wk;
     x:=xck*(1+1.9*Dk);
     Bik:=x*L/j;
      F0:=Abs(1/12+1/3*Bik-2*ln(Abs(1+0.5*Bik))/3*Sqr(Bik));
      Tps:=(Tn-T0)/(Tck-T0);
      F1:=(Bik+3)*ln(Abs(1/(1-Tps)))/3*Bik+F0;
      mn:=(F1*Sqr(L))/a;
      writeln(′Продолжительность подсушки(без учета времени на испарение
влаги)= ′,mn, ′мин. ′);
      mm:=Abs((2-0.46*Bik)*(21*Tps-8));
      mp:=mn+mm;
      writeln(′Продолжительность испарения влаги=′,mm, ′мин. ′);
      writeln(′Продолжительность подсушки=′,mp, ′мин. ′);
      Tpk:=(Tck-T0)/(Tck-Tk);
      F2:=2*(Bik+3)*ln(Abs(1+Tpk))/2*Bik+F0;
     mk:=(F2*Sqr(L))/a;
     T1:=(1-Bik*(((Bik+2)/Bik)-l)*Exp(-3*Bik*F2/(Bik+3))/(Bik+2));
     T2:=T0+T1*(Tck-T0);
     writeln(′Продолжительность копчения=′,mk, ′мин. ′);
     writeln(′Температура поверхности продукта в конце копчения=′,Т2, ′ С′);
     xc:=6.16+4.19*W;
     xv:=xc*(1+1.9*d);
     Bi:=xv*L/j;
     F3:=Abs(1/12+1/3*Bi-2*1n(Abs(1+0.5*Bi))/3*Sqr(Bi));
     T3:=(T2+Tk)/2;
     Tv:=(Ts-T3)/(Ts-Tc);
     F4:=2*(Bi+3)*1n(Abs(1+Tv))/2*Bi+F3;
     mv:=(F4*sqr(L))/a;
     T4:=1-Bi*(((Bi+2)/Bi)-1)*Exp(-3*Bi*F4/(Bi+3))/(Bi+2);
     T5:=T3+T4*(Ts-T3);
     writeln(′Продолжительность варки=′,mv,′мин.′);
     writeln(′Температура поверхности продукта в конце варки=′,Т5,′ С′);
     m:=mp+mk+mv;
     writeln(′Общая       продолжительность        тепловой        обработки
мясопродукта=′,m,′мин.′); end.