Программа расчета флюидизированного слоя

Program fl2;

Uses Crt,Kbi;

Label l,l1,m1,m2,m3,m4,m5,m6,m7;

Type ekr=array[1..4000] of byte;

Var mas,w0,wkr1,wkr2,ro,ron,tp,tk,ta1,ta,ga,d1,d,f1,ar,ar1,ar2,h0,hf,

ljm,ww,tkr,co,cz,rov,lv,nv,al,wz,q2,fr,cv,vw,fpr,gpr,

re,por,pr1,pr2,tay,dp,dp1,dp2,dpf,dpr,ne,dt:real;

r1,rg,rv,r2,rm1,prod,form,ms,pl1,t1,rr,pr,res:byte;

ekran:ekr Absolute $b800:$0000;

save1,save2,save3,save4,save5:^ekr;

Ch:Char;

Procedure V1(text:string;a:real;var r:real);

var stroka:string;

code:integer;

begin

code:=0;

Repeat

{ClrScr;}writeln;CF(7,0);

write(text);writeln(a:7:3);

writeln;

write('Новое значение температуры воздуха........ ');

readln(stroka);

val(stroka,r,code);

until code=0;

end;

Procedure Is;

begin

Pl;

FrameWN(1,14,54,23,0,'ИСХОДНЫЕ ДАННЫЕ…');

CF(0,7);GoToXY(1,1);

write('Продукт ');

Case prod of

1:writeln('Вишня ');2:writeln('Горошек '); 3:writeln('Картофель ');

4:writeln('Клубника ');5:writeln('Малина ');6:writeln('Морковь ');

7:writeln('Смородина ');8:writeln('Фасоль ');

else writeln(' ');

end;{case write prod}

write('Форма продукта ');

Case form of

1:writeln('Шаровидная ');2:writeln('Яйцевидная ');3:writeln('Эллипсоидная');

4:writeln('Конусная d=h');5:writeln('Цилиндрическая d=h ');

6:writeln('Цилиндрическая d<h ');7:writeln('Дисковая d>h');8:writeln('Кубическая ');

else writeln(' ');

end;{case write form}

write('Масса единичного продукта, г ');

writeln(mas*1000:6:1);

write('Температура поступающего продукта, С ');

writeln(tp:6:1);

write('Температура выпускаемого продукта, С ');

writeln(tk:6:1);

write('Температура воздуха в аппарате, С ');

writeln(ta:6:1);

write('Производительность аппарата, кг/ч ');

writeln(ga*3600:6:1);

end;

Procedure wuw; {Вывод }

begin

Pl;ClrScr;Window(9,1,70,2);CF(0,7);

writeln('<<< Расчет системы флюидизации морозильного аппарата >>>');

Pl;CF(7,0);

FrameWN(8,1,70,13,0,'Результат');

write('Теплоприток, кВт ');

writeln(q2/1000:6:1);

write('Оптимальная скорость воздуха, м/c ');

writeln(w0:6:1);

write('Первая критическая скорость воздуха, м/c ');

writeln(wkr1:6:1);

write('Вторая критическая скорость воздуха, м/c ');

writeln(wkr2:6:1);

write('Площадь решетки, кв.м');

writeln(fr:6:1);

Write('Высота насыпного слоя, м ');

writeln(h0:8:3);

write('Высота флюидизированного слоя, м ');

writeln(hf:8:3);

write('Продолжительность замораживания, мин ');

writeln(tay:6:1);

write('Потери напора в слое продукта, Па ');

writeln(dp:6:1);

write('Мощность, потребляемая вентиляторами, кВт ');

writeln(ne/1000:6:1);

Pl;

Is;

end;

Procedure Zast;

Var Ch:char;

begin

ClrScr;

FrameW(3,2,75,24,1);

GoToXY(30,3);

write('СПбГУН и ПТ');

GoToXY(25,5);

write('Кафедра холодильных установок');

GoToXY(15,10);

write('Расчет замораживания продукта во флюидизированном слое');

GoToXY(50,18);

write('(с) Калюнов В.С.');

GoToXY(35,21);

write('2001');

{Ch:=ReadKey;}Delay(2000);

Pl;Cf(7,0);

ClrScr;CF(7,0);

Pl;

end;

Begin

{prod:=0;form:=0;ms:=0;tp:=0;tk:=0;ta:=0;ga:=0;}

l1:Zast;prod:=0;form:=0;mas:=0;tp:=0;tk:=0;ta:=0;ga:=0;

CF(7,0);Pl;ClrScr;Window(10,11,77,13);CF(0,7);GoToXY(10,11);

writeln('<<< Расчет системы флюидизации морозильного аппарата >>>');

CF(7,0);

Window(50,22,80,25);

write('Нажмите любую клавишу');

Ch:=ReadKey;

Pl;ClrScr;

Window(9,1,80,3);CF(0,7);

writeln('<<< Расчет системы флюидизации морозильного аппарата >>>');

CF(7,0);

Window(1,8,80,25);

writeln(' В работе предлагается исследовать влияние заданного');

writeln('преподавателем параметра на скорость движения воздуха через слой');

writeln('флюидизированного продукта, продолжительность замораживания');

writeln('аэродинамическое сопротивление флюидизированного слоя, необходимую');

writeln('мощность вентиляторов для преодоления этого сопротивления и');

writeln('поддерживающей решетки, теплоприток от продукта.');

writeln;

writeln(' Полученные данные предлагается представить в форме графиков:');

writeln('1. Изменяемый параметр – скорость воздуха,');

writeln('2. Изменяемый параметр – аэродинамическое сопротивление,');

writeln('3. Изменяемый параметр – потребляемая мощность и т. п.');

GoToXY(50,16);

write('Нажмите любую клавишу');

Ch:=ReadKey;

m1:Pl;CF(7,0);Clrscr;Is;

New(save1);

MenuG(2,6,1,' Продукт ',' Форма ',' Масса, г ',' Температура, С ',' Выпуск, кг/ч ',' Расчет ','',rg);

r1:=rg;save1^:=ekran;

Case r1 of

1: begin {Продукт}

CF(7,0);save1^:=ekran;

MenuV(2,4,8,1,' Вишня',' Горошек',' Картофель ',' Клубника ',' Малина ',' Морковь',' Смородина ',' Фасоль','','','',rv);

prod:=rv;

{if prod=11 then} begin Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;end;

end;

2: begin {Форма}

CF(7,0);save1^:=ekran;

MenuV(10,4,8,1,' Шаровидная',' Яйцевидная',' Эллипсоидная',' Конусная d=h',' Цилиндрическая d=h',

' Цилиндрическая d<h',' Дисковая d>h',' Кубическая','','','',rv);

form:=rv;

{if form=11 then} begin Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;end;

end;

3: begin {Масса}

CF(7,0);save1^:=ekran; New(save2);

m2: MenuV(22,4,5,1,' 1..10 ',' 11..20 ',' 21..30 ',' 31..40 ',' 41..50 ','','','','','','',rv);

r2:=rv;Pl;

Case r2 of

1: begin {Масса1}

CF(7,0);save2^:=ekran;

MenuV(30,8,10,1,' 1 ',' 2 ',' 3 ',' 4 ',' 5 ',' 6 ',' 7 ',' 8 ',' 9 ',' 10 ','',rm1);

ms:=rm1;

Case ms of

1:mas:=0.001;2:mas:=0.002;3:mas:=0.003;4:mas:=0.004;5:mas:=0.005;

6:mas:=0.006;7:mas:=0.007;8:mas:=0.008;9:mas:=0.009;10:mas:=0.01;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m2;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

2: begin {Масса2}

CF(7,0);save2^:=ekran;

MenuV(30,8,10,1,' 11 ',' 12 ',' 13 ',' 14 ',' 15 ',' 16 ',' 17 ',' 18 ',' 19 ',' 20 ','',rm1);

ms:=rm1;

Case ms of

1:mas:=0.011;2:mas:=0.012;3:mas:=0.013;4:mas:=0.014;5:mas:=0.015;

6:mas:=0.016;7:mas:=0.017;8:mas:=0.018;9:mas:=0.019;10:mas:=0.02;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m2;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

3: begin {Масса3}

CF(7,0);save2^:=ekran;

MenuV(30,8,10,1,' 21 ',' 22 ',' 23 ',' 24 ',' 25 ',' 26 ',' 27 ',' 28 ',' 29 ',' 30 ','',rm1);

ms:=rm1;

Case ms of

1:mas:=0.021;2:mas:=0.022;3:mas:=0.023;4:mas:=0.024;5:mas:=0.025;

6:mas:=0.026;7:mas:=0.027;8:mas:=0.028;9:mas:=0.029;10:mas:=0.03;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m2;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

4: begin {Масса4}

CF(7,0);save2^:=ekran;

MenuV(30,8,10,1,' 31 ',' 32 ',' 33 ',' 34 ',' 35 ',' 36 ',' 37 ',' 38 ',' 39 ',' 40 ','',rm1);

ms:=rm1;

Case ms of

1:mas:=0.031;2:mas:=0.032;3:mas:=0.033;4:mas:=0.034;5:mas:=0.035;

6:mas:=0.036;7:mas:=0.037;8:mas:=0.038;9:mas:=0.039;10:mas:=0.04;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m2;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

5: begin {Масса5}

CF(7,0);save2^:=ekran;

MenuV(30,8,10,1,' 41 ',' 42 ',' 43 ',' 44 ',' 45 ',' 46 ',' 47 ',' 48 ',' 49 ',' 50 ','',rm1);

ms:=rm1;

Case ms of

1:mas:=0.041;2:mas:=0.042;3:mas:=0.043;4:mas:=0.044;5:mas:=0.045;

6:mas:=0.046;7:mas:=0.047;8:mas:=0.048;9:mas:=0.049;10:mas:=0.05;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m2;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

11:begin Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;end;

end{case Масса }

end;{massa}

4: begin {Температура}

CF(7,0);save1^:=ekran; New(save2);

m4: MenuV(34,4,3,1,' Поступление продукта ',' ‚Выпуск продукта ',' ‚Воздух в аппарате ','','','','','','','','',rv);

r2:=rv;Pl;

Case r2 of

1: begin {Поступление}

CF(7,0);save2^:=ekran;New(save3);

m5: MenuV(58,8,3,1,' 1..10 ',' 11..20 ',' 21..30 ','','','','','','','','',rm1);

t1:=rm1;Pl;

if t1=11 then begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m4;end;

Case t1 of

1: begin {Поступление1}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' 1 ',' 2 ',' 3 ',' 4 ',' 5 ',' 6 ',' 7 ',' 8 ',' 9 ',' 10 ','',rm1);

pl1:=rm1;

Case pl1 of

1:tp:=1;2:tp:=2;3:tp:=3;4:tp:=4;5:tp:=5;

6:tp:=6;7:tp:=7;8:tp:=8;9:tp:=9;10:tp:=10;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m5;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

2: begin {Поступление2}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' 11 ',' 12 ',' 13 ',' 14 ',' 15 ',' 16 ',' 17 ',' 18 ',' 19 ',' 20 ','',rm1);

pl1:=rm1;

Case pl1 of

1:tp:=11;2:tp:=12;3:tp:=13;4:tp:=14;5:tp:=15;

6:tp:=16;7:tp:=17;8:tp:=18;9:tp:=19;10:tp:=20;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m5;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

3: begin {Поступление3}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' 21 ',' 22 ',' 23 ',' 24 ',' 25 ',' 26 ',' 27 ',' 28 ',' 29 ',' 30 ','',rm1);

pl1:=rm1;

Case pl1 of

1:tp:=21;2:tp:=22;3:tp:=23;4:tp:=24;5:tp:=25;

6:tp:=26;7:tp:=27;8:tp:=28;9:tp:=29;10:tp:=30;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m5;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

11:begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m2;end;

end{case Поступление}

end;

2: begin {Выпуск}

CF(7,0);save2^:=ekran;New(save3);

m6: MenuV(58,8,5,1,' -1..-10 ',' -11..-20 ',' -21..-30 ',' -31..-40 ',' -41..-50 ','','','','','','',rm1);

t1:=rm1;Pl;

if t1=11 then begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m4;end;

Case t1 of

1: begin {Выпуск1}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -1 ',' -2 ',' -3 ',' -4 ',' -5 ',' -6 ',' -7 ',' -8 ',' -9 ',' -10 ','',rm1);

pl1:=rm1;

Case pl1 of

1:tk:=-1;2:tk:=-2;3:tk:=-3;4:tk:=-4;5:tk:=-5;

6:tk:=-6;7:tk:=-7;8:tk:=-8;9:tk:=-9;10:tk:=-10;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m6;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

2: begin {Выпуск2}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -11 ',' -12 ',' -13 ',' -14 ',' -15 ',' -16 ',' -17 ',' -18 ',' -19 ',' -20 ','',rm1);

pl1:=rm1;

Case pl1 of

1:tk:=-11;2:tk:=-12;3:tk:=-13;4:tk:=-14;5:tk:=-15;

6:tk:=-16;7:tk:=-17;8:tk:=-18;9:tk:=-19;10:tk:=-20;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m6;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

3: begin {Выпуск3}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -21 ',' -22 ',' -23 ',' -24 ',' -25 ',' -26 ',' -27 ',' -28 ',' -29 ',' -30 ','',rm1);

pl1:=rm1;

Case pl1 of

1:tk:=-21;2:tk:=-22;3:tk:=-23;4:tk:=-24;5:tk:=-25;

6:tk:=-26;7:tk:=-27;8:tk:=-28;9:tk:=-29;10:tk:=-30;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m6;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

4: begin {Выпуск4}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -31 ',' -32 ',' -33 ',' -34 ',' -35 ',' -36 ',' -37 ',' -38 ',' -39 ',' -40 ','',rm1);

pl1:=rm1;

Case pl1 of

1:tk:=-31;2:tk:=-32;3:tk:=-33;4:tk:=-34;5:tk:=-35;

6:tk:=-36;7:tk:=-37;8:tk:=-38;9:tk:=-39;10:tk:=-40;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m6;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

5: begin {Выпуск5}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -41 ',' -42 ',' -43 ',' -44 ',' -45 ',' -46 ',' -47 ',' -48 ',' -49 ',' -50 ','',rm1);

pl1:=rm1;

Case pl1 of

1:tk:=-41;2:tk:=-42;3:tk:=-43;4:tk:=-44;5:tk:=-45;

6:tk:=-46;7:tk:=-47;8:tk:=-48;9:tk:=-49;10:tk:=-50;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m6;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

11:begin Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;end;

end{case Выпуск}

end;

3: begin {Воздух}

CF(7,0);save2^:=ekran;New(save3);

m7: MenuV(58,8,6,1,' -5..-10',' -11..-20 ',' -21..-30 ',' -31..-40 ',' -41..-50 ',' -51..-60 ','','','','1000','',rm1);

t1:=rm1;Pl;

if t1=11 then begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m4;end;

Case t1 of

1: begin {Воздух1}

CF(7,0);save3^:=ekran;

MenuV(52,11,6,1,' -5 ',' -6 ',' -7 ',' -8 ',' -9 ',' -10 ','','','','','',rm1);

pl1:=rm1;

Case pl1 of

1:ta:=-5;2:ta:=-6;3:ta:=-7;4:ta:=-8;5:ta:=-9;6:ta:=-10;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m7;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

2: begin {Воздух2}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -11 ',' -12 ',' -13 ',' -14 ',' -15 ',' -16 ',' -17 ',' -18 ',' -19 ',' -20 ','',rm1);

pl1:=rm1;

Case pl1 of

1:ta:=-11;2:ta:=-12;3:ta:=-13;4:ta:=-14;5:ta:=-15;

6:ta:=-16;7:ta:=-17;8:ta:=-18;9:ta:=-19;10:ta:=-20;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m7;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

3: begin {Воздух3}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -21 ',' -22 ',' -23 ',' -24 ',' -25 ',' -26 ',' -27 ',' -28 ',' -29 ',' -30 ','',rm1);

pl1:=rm1;

Case pl1 of

1:ta:=-21;2:ta:=-22;3:ta:=-23;4:ta:=-24;5:ta:=-25;

6:ta:=-26;7:ta:=-27;8:ta:=-28;9:ta:=-29;10:ta:=-30;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m7;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

4: begin {Воздух4}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -31 ',' -32 ',' -33 ',' -34 ',' -35 ',' -36 ',' -37 ',' -38 ',' -39 ',' -40 ','',rm1);

pl1:=rm1;

Case pl1 of

1:ta:=-31;2:ta:=-32;3:ta:=-33;4:ta:=-34;5:ta:=-35;

6:ta:=-36;7:ta:=-37;8:ta:=-38;9:ta:=-39;10:ta:=-40;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m7;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

5: begin {Воздух5}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -41 ',' -42 ',' -43 ',' -44 ',' -45 ',' -46 ',' -47 ',' -48 ',' -49 ',' -50 ','',rm1);

pl1:=rm1;

Case pl1 of

1:ta:=-41;2:ta:=-42;3:ta:=-43;4:ta:=-44;5:ta:=-45;

6:ta:=-46;7:ta:=-47;8:ta:=-48;9:ta:=-49;10:ta:=-50;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m7;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

6: begin {Воздух6}

CF(7,0);save3^:=ekran;

MenuV(52,11,10,1,' -51 ',' -52 ',' -53 ',' -54 ',' -55 ',' -56 ',' -57 ',' -58 ',' -59 ',' -60 ','',rm1);

pl1:=rm1;

Case pl1 of

1:ta:=-51;2:ta:=-52;3:ta:=-53;4:ta:=-54;5:ta:=-55;

6:ta:=-56;7:ta:=-57;8:ta:=-58;9:ta:=-59;10:ta:=-60;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save3^;goto m7;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

11:begin Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;end;

end{case Воздух}

end;

11:begin Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;end;

end{case Температуры сред¤}

end;{Температура}

5: begin {Производительность}

CF(7,0);

save1^:=ekran;

New(save2);

m3: MenuV(55,4,7,1,' 1..10 ',' 11..20 ',' 25..50 ',' 60..110 ',' 120..280 ',

' 300..1500 ','2000..10000 ','','','','',rm1);

pr:=rm1;Pl;

{if pr=11 then begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m1;end;}

Case pr of

1: begin {Производительность1}

CF(7,0);save2^:=ekran;

MenuV(72,7,10,1,' 1 ',' 2 ',' 3 ',' 4 ',' 5 ',' 6 ',' 7 ',' 8 ',' 9 ',' 10 ','',rm1);

pl1:=rm1;

Case pl1 of

1:ga:=1/3600;2:ga:=2/3600;3:ga:=3/3600;4:ga:=4/3600;5:ga:=5/3600;

6:ga:=6/3600;7:ga:=7/3600;8:ga:=8/3600;9:ga:=9/3600;10:ga:=10/3600;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m3;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

2: begin {Производительность2}

CF(7,0);save2^:=ekran;

MenuV(72,7,10,1,' 11 ',' 12 ',' 13 ',' 14 ',' 15 ',' 16 ',' 17 ',' 18 ',' 19 ',' 20 ','',rm1);

pl1:=rm1;

Case pl1 of

1:ga:=11/3600;2:ga:=12/3600;3:ga:=13/3600;4:ga:=14/3600;5:ga:=15/3600;

6:ga:=16/3600;7:ga:=17/3600;8:ga:=18/3600;9:ga:=19/3600;10:ga:=20/3600;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m3;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

3: begin {Производительность3}

CF(7,0);save2^:=ekran;

MenuV(72,7,6,1,' 25 ',' 30 ',' 35 ',' 40 ',' 45 ',' 50 ','','','','','',rm1);

pl1:=rm1;

Case pl1 of

1:ga:=25/3600;2:ga:=30/3600;3:ga:=35/3600;4:ga:=40/3600;5:ga:=45/3600;

6:ga:=50/3600;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m3;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

4: begin {Производительность4}

CF(7,0);save2^:=ekran;

MenuV(72,7,6,1,' 60 ',' 70 ',' 80 ',' 90 ',' 100 ',' 110 ','','','','','',rm1);

pl1:=rm1;

Case pl1 of

1:ga:=60/3600;2:ga:=70/3600;3:ga:=80/3600;4:ga:=90/3600;5:ga:=100/3600;

6:ga:=110/3600;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m3;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

5: begin {Производительность5}

CF(7,0);save2^:=ekran;

MenuV(72,7,9,1,' 120 ',' 140 ',' 160 ',' 180 ',' 200 ',' 220 ',' 240 ',' 260 ',' 280 ','','',rm1);

pl1:=rm1;

Case pl1 of

1:ga:=120/3600;2:ga:=140/3600;3:ga:=160/3600;4:ga:=180/3600;5:ga:=200/3600;

6:ga:=220/3600;7:ga:=240/3600;8:ga:=260/3600;9:ga:=280/3600;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m3;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

6: begin {Производительность6}

CF(7,0);save2^:=ekran;

MenuV(72,7,9,1,' 300 ',' 400 ',' 500 ',' 600 ',' 700 ',' 800 ',' 900 ',' 1000 ',' 1500 ','','',rm1);

pl1:=rm1;

Case pl1 of

1:ga:=300/3600;2:ga:=400/3600;3:ga:=500/3600;4:ga:=600/3600;5:ga:=700/3600;

6:ga:=800/3600;7:ga:=900/3600;8:ga:=1000/3600;9:ga:=1500/3600;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m3;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

7: begin {Производительность7}

CF(7,0);save2^:=ekran;

MenuV(72,7,9,1,' 2000 ',' 3000 ',' 4000 ',' 5000 ',' 6000 ',' 7000 ',' 8000 ',' 9000 ',' 10000 ','','',rm1);

pl1:=rm1;

Case pl1 of

1:ga:=2000/3600;2:ga:=3000/3600;3:ga:=4000/3600;4:ga:=5000/3600;5:ga:=6000/3600;

6:ga:=7000/3600;7:ga:=8000/3600;8:ga:=9000/3600;9:ga:=10000/3600;

11: begin Pl;ClrScr;Cf(7,0);ekran:=save2^;goto m3;end;

end;Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

end;

end{case Производительность}

end;

6: begin {Проверка}Pl;Cf(7,0);

if prod=0 then

begin pl;clrscr;cf(0,7);Gotoxy(28,10);Writeln('Не указан вид продукта');

Delay(3000);goto m1;

end;

if form=0 then

begin pl;clrscr;cf(0,7);Gotoxy(28,10);Writeln('Не указана форма продукта');

Delay(3000);goto m1;

end;

if ms=0 then

begin pl;clrscr;cf(0,7);Gotoxy(28,10);Writeln('Не указана масса продукта');

Delay(3000);goto m1;

end;

if tp=0 then

begin pl;clrscr;cf(0,7);Gotoxy(20,10);

Writeln('Не указана температура поступления продукта');

Delay(3000);goto m1;

end;

if tk=0 then

begin pl;clrscr;cf(0,7);Gotoxy(20,10);

Writeln('Не указана температура выпуска продукта');

Delay(3000);goto m1;

end;

if ta=0 then

begin pl;clrscr;cf(0,7);Gotoxy(21,10);

Writeln('Не указана температура воздуха в аппарате');

Delay(3000);goto m1;

end;

if ga=0 then

begin pl;clrscr;cf(0,7);Gotoxy(22,10);

Writeln('Не указана производительность аппарата');

Delay(3000);goto m1;

end;

if ta > tk then

begin

pl;clrscr;cf(0,7);Gotoxy(15,10);

Writeln('Температура воздуха выше температуры продукта ',ta:6:1,' C');

Delay(3000);goto m1;

end;

if tk-ta < 4 then

begin

pl;clrscr;cf(0,7);Gotoxy(15,10);dt:=tk-ta;

Writeln('Разность температур воздуха и продукта мала ',dt:6:1,' K');

Delay(3000);goto m1;

end;

Case prod of

1:begin {Вишня}

ro:=1030;ron:=560;ljm:=1.34;ww:=0.74;tkr:=-3.5;co:=3.34;cz:=2.52;

end;

2:begin {Горошек}

ro:=1020;ron:=650;ljm:=1.11;ww:=0.76;tkr:=-1;co:=3.56;cz:=1.96;

end;

3:begin {Картофель}

ro:=1080;ron:=500;ljm:=1.09;ww:=0.75;tkr:=-0.7;co:=3.43;cz:=1.8;

end;

4:begin {Клубника}

ro:=900;ron:=620;ljm:=1.11;ww:=0.9;tkr:=-0.8;co:=3.85;cz:=1.75;

end;

5:begin {Малина}

ro:=980;ron:=500;ljm:=1.2;ww:=0.84;tkr:=-0.7;co:=3.64;cz:=1.88;

end;

6:begin {Морковь}

ro:=1030;ron:=550;ljm:=1.2;ww:=0.88;tkr:=-1;co:=3.77;cz:=1.92;

end;

7:begin {Смородина}

ro:=900;ron:=620;ljm:=1.2;ww:=0.85;tkr:=-1;co:=3.68;cz:=1.88;

end;

8:begin {Фасоль}

ro:=1036;ron:=600;ljm:=1.11;ww:=0.79;tkr:=-2;co:=3.77;cz:=2.55;

end;

end;{case prod}

Case form of

1:begin {Шаровидная}

St(6*mas/3.14/ro,1/3,d1);d:=d1;f1:=3.14*d*d;

end;

2:begin {Яйцевидная}

St(6*mas/3.14/ro,1/3,d1);d:=d1*1.2;f1:=1.8*3.14*d*d;

end;

3:begin {Эллипсоидная}

St(6*mas/3.14/ro,1/3,d1);d:=d1*1.4;f1:=2*3.14*d*d;

end;

4:begin {Конусная}

St(6*mas/3.14/ro,1/3,d1);d:=d1*0.52;f1:=0.95*3.14*d*d;

end;

5:begin {Цилиндрическая l=d}

St(6*mas/3.14/ro,1/3,d1);d:=d1;f1:=1.5*3.14*d*d;

end;

6:begin {Цилиндрическая l<d}

St(6*mas/3.14/ro,1/3,d1);d:=d1*6/5;f1:=2.5*3.14*d*d;

end;

7:begin {Дисковая}

St(6*mas/3.14/ro,1/3,d1);d:=d1*3/4;f1:=3.14*d*d;

end;

8:begin {Кубическая}

St(6*mas/3.14/ro,1/3,d1);d:=d1;f1:=6*d*d;

end;

end;{case form}

{Расчет аппарата}

rov:=1.293-4.59E-03*ta+2.428E-05*ta*ta;lv:=(2.44+8.0E-03*ta)/100;

nv:=13.291E-6+8.117E-8*ta;cv:=1.006;

w0:=2.25+1.95*0.4343*ln(mas*1000);

ar:=9.81*d*d*d*ro/nv/nv/rov;

st(ar,0.5,ar1);ar2:=ar1;

wkr1:=nv/d*ar/(1400+5.22*ar2);

wkr2:=nv/d*ar/(18+0.6*ar2);

al:=0.62*lv*sqrt(w0/d/nv);

wz:=1.105/(1+0.31*0.4343*ln(abs(tk)+1-tkr));

q2:=ga*(co*(tp-tkr)+335*ww*wz+cz*(tkr-tk))*1000;

fr:=q2/w0/rov/cv/3/1000;

vw:=fr*w0;

fpr:=q2/al/(tk-ta+1.5);

gpr:=fpr/f1*mas;

h0:=gpr/ron/fr;

re:=w0*d/nv;

st((18*re+0.36*re*re)/ar,0.21,pr1);por:=pr1;

pr2:=ron/ro;

if pr2<por then hf:=h0*(1-pr2)/(1-por) else hf:=h0*(1-por)/(1-pr2);

tay:=q2/ga*ro/(tkr-ta)*d/6*(d/4/ljm+1/al)/60;

st(re*hf/d,0.2,dp1);dp2:=dp1;

dpf:=1.67*dp2*gpr/fr;

dpr:=13.72*w0*w0-43.12*w0;

dp:=(dpf+dpr)*1.2/rov;

ne:=vw*dp/0.6;

wuw;

Window(1,24,80,25);Cf(0,7);

write(' ',Chr(24),Chr(25),' ‚Выбор ',' ',' ',' ENTER Подтверждение ');

Window(55,17,80,23);CF(7,0);Pl;

MenuV(60,18,2,0,'Продолжать','Закончить ','','','','','','','','','Расчет',Res);

Pl;ClrScr;CF(7,0);

re:=res;

if re=1 then goto m1 else goto l;

l:Pl;Cf(7,0);

ClrScr;

GoToXY(20,8);

writeln('ДО СЛЕДУЮЩЕЙ ВСТРЕЧИ');

writeln;

writeln(' ALL THE BEST');

writeln;

writeln(' TSCHUSS');

writeln;

writeln(' AU REVOIR');

Delay(6000);

goto l1;

end;{Расчет}

end;{case MenuG}

Pl;ClrScr;Cf(7,0);ekran:=save1^;goto m1;

End.

П р и л о ж е н и е 20

Термическое сопротивление упаковки [2]

Упаковка	Толщина, мм	Термическое сопротивление, м^2·К/Вт
Пергамент		0,00191
Картон перфорированный	0,625	0,01113
Картон с алюминиевой фольгой	0,568	0,00978
Картон с целлофаном	0,737	0,01264
Бумага перфорированная	0,475	0,076
Целлофан	0,028	0,00037
Полиэтилен	0,028	0,00037
Фольга алюминиевая	0,1	0,0000006
Прослойка воздушная	0,7–0,9	0,5452

П р и л о ж е н и е 21

Теплофизические свойства газообразного азота [1]

Температура, °С	Плотность, кг/м^3	Удельная теплоемкость, кДж/(кг∙К)	Теплопроводность 10^2, Вт/(м∙К)	Коэффициент динамической вязкости 10^6, Па∙с	Коэффициент кинематической вязкости 10^6, м^2/с	Температуропроводность, м^2/с	Число Прандтля
–190	3,982	1,032	0,933	7,417	1,863	0,2270	0,82
–180	3,554	1,033	1,022	8,014	2,255	0,2784	0,81
–170	3,209	1,034	1,109	8,590	2,677	0,332	0,80
–160	2,925	1,035	1,194	9,149	3,128	0,3944	0,80
–150	2,687	1,036	1,278	9,692	3,607	0,4591	0,79
–140	2,485	1,037	1,361	10,22	4,113	0,5281	0,78
–130	2,311	1,038	1,442	10,74	4,645	0,6011	0,77
–120	2,160	1,038	1,522	11,24	5,204	0,6788	0,77
–110	2,028	1,039	1,601	11,74	5,788	0,7598	0,76
–100	1,910	1,040	1,679	12,22	6,397	0,8452	0,76
–90	1,806	1,041	1,756	12,698	7,091	0,9340	0,75
–80	1,713	1,041	1,833	13,166	7,688	1,0280	0,75
–70	1,628	1,042	1,908	13,626	8,369	1,1248	0,74
–60	1,552	1,043	1,983	14,079	9,073	1,2250	0,74
–50	1,482	1,043	2,057	14,525	9,800	1,3910	0,74
–40	1,419	1,044	2,131	14,964	10,549	1,4380	0,73
–30	1,360	1,044	2,204	15,398	11,921	1,5520	0,73
–20	1,306	1,045	2,276	15,826	12,115	1,6680	0,73
–10	1,257	1,045	2,347	16,249	12,930	1,7870	0,73
	1,211	1,045	2,419	16,667	13,766	1,9120	0,72
	1,168	1,046	2,489	14,624	14,079	2,0370	0,72
	1,128	1,046	2,559	17,488	15,503	2,1690	0,72
	1,091	1,046	2,629	17,891	16,402	2,3040	0,71

П р и л о ж е н и е 22

Коэффициент теплопередачи батарей при Θ_б = 10К * [14]

Батарея	Коэффициент теплопередачи, Вт/(м^2×К), при температуре воздуха в камере
0 °С	–20 °С
Из оребренных труб
Потолочная:
однорядная	6,0	4,7
двухрядная	5,5	4,4
Пристенная однорядная:
4 трубы по высоте	4,7	3,6
6 труб по высоте	4,3	3,4
Из гладких труб
Потолочная:
однорядная	9,7	7,0
двухрядная	9,0	6,4
пучковая	7,9	5,1
Пристенная горизонтальнотрубная:
однорядная 6-трубная	9,8	7,0
однорядная 12-трубная	10,7	7,0
двухрядная 12-трубная	9,9	6,4
Пристенная вертикальнотрубная:
однорядная	8,6	8,0
двухрядная	8,0	7,1
Панельная
Потолочная и пристенная	5,0	4,0

П р и м е ч а н и е. При значениях температурного напора, отличающихся от 10 К, коэффициент теплопередачи умножить на поправку (q_б/10)^0,22. При верхней подаче хладагента или использовании промежуточного хладоносителя уменьшить значение коэффициента теплопередачи на 10 %.

П р и л о ж е н и е 23

Характеристика секций из оребренных труб [14]

Тип секций	Размеры, мм	Число труб	Площадь поверхности теплообмена, м^2, при шаге ребер, мм	Масса, кг, при шаге ребер, мм
Длина	Ширина
СК				20,7 31,0	14,3 21,5	108,9 163,6	83,9 126,1
СЗГ				19,9 29,8	13,7 20,5	104,4 157,5	80,4 120,5
СЗХ				19,9 29,8	13,7 20,5	105,2 158,3	81,2 121,3
СС				22,8 34,2 34,5 51,8 46,3 69,5	15,7 23,6 23,8 35,7 31,9 47,9	117,1 176,7 178,2 267,2 238,3 357,4	90,0 134,9 135,7 203,7 181,7 272,4
СЗ				13,1 19,7 32,7 49,1	9,1 13,6 22,6 33,9	73,0 109,9 171,2 257,1	57,2 84,7 131,5 197,6
С2К				14,6 21,9 34,2 51,4	10,2 15,4 23,7 35,6	889,8 133,5 183,3 274,5	71,7 107,4 142,0 212,5

П р и л о ж е н и е 24

Батареи полной заводской готовности [14]

Таблица 1

Аммиачный (рассольный) унифицированный блок из труб Ø16 ´ 2

Шаг ребер, мм
Площадь теплообменной поверхности, м^2	51,19	41,61	35,17	30,63	27,2	24,59	22,47

Таблица 2

Дата добавления: 2014-11-20