program in1;
type myArray = array [1..15] of real;
var ts,p,ro2,h,hlg,cv : myArray;
sum,t,f,ro1,m0:real;
k: integer;
x,dt: real;
res: text;
const
n = 15; {kol-vo iteracii}
dx = 0.005; {shag}
function dro2(ro2:myArray) : real;
var
i, kr: integer;
begin
for i:=1 to 15 do begin
if t<ts[i] then begin
kr:=i;
break
end;
end;
dro2:=(ro2[kr]-ro2[kr-1])/(ts[kr]-ts[kr-1]);
end;
function y(c:myArray) : real;
var
i, kr: integer;
begin
for i:=1 to 15 do begin
if t<ts[i] then begin
kr:=i;
break
end;
end;
y:=(c[kr]-c[kr-1])/(ts[kr]-ts[kr-1])*(t-ts[kr-1])+c[kr-1];
end;
function Ftx(x,t : real): real;
begin
Ftx:=(f*(y(ro2)*(y(h)-y(p)/y(ro2)+y(hlg))+y(p)*(1+y(ro2)/ro1)))/((m0/ro1-f*x)*(dro2(ro2)*(y(h)-y(p)/y(ro2)+y(hlg)+y(p)/ro1)+y(ro2)*y(cv)));
end;
function m2(x,t :real):real;
begin
m2:=(y(ro2)*(f*x-m0/ro1))/(1-y(ro2)/ro1);
end;
begin
Assign(res, 'c:\Studentfile1.txt');
rewrite (res);
ro1:=1100; f:=0.00198;
ts[1]:=40; ts[2]:=50; ts[3]:=60; ts[4]:=70; ts[5]:=80; ts[6]:=90; ts[7]:=100; ts[8]:=110; ts[9]:=120; ts[10]:=130; ts[11]:=140; ts[12]:=150; ts[13]:=160; ts[14]:=170; ts[15]:=180;
p[1]:=1.317*100000; p[2]:=1.827*100000; [3]:=2.477*100000;p[4]:=3.289*100000; p[5]:=4.287*100000;p[6]:=5.497*100000; p[7]:=6.943*100000; [8]:=8.651*100000; p[9]:=10.65*100000;p[10]:=12.97*100000;p[11]:=15.64*100000;p[12]:=18.71*100000; p[13]:=22.2*100000;p[14]:=26.17*100000; p[15]:=30.67*100000;
ro2[1]:=6.203;ro2[2]:=8.443;ro2[3]:=11.27;ro2[4]:=14.78;ro2[5]:=19.09;ro2[6]:=24.34;ro2[7]:=30.69;ro2[8]:=38.33;ro2[9]:=47.52;ro2[10]:=58.57;ro2[11]:=71.96; ro2[12]:=88.33; ro2[13]:=108.7; ro2[14]:=135; ro2[15]:=170;
h[1]:=470.2*1000;h[2]:=481.9*1000;h[3]:=493.7*1000;h[4]:=505.6*1000;h[5]:=517.6*1000;h[6]:=529.9*1000;h[7]:=542.3*1000;h[8]:=555*1000;h[9]:=567.8*1000;h[10]:=581*1000;h[11]:=594.5*1000;h[12]:=608.5*1000;h[13]:=623*1000;h[14]:=638.3*1000; h[15]:=658.8*1000;
hlg[1]:=221.4*1000;hlg[2]:=216*1000;hlg[3]:=210.5*1000;hlg[4]:=204.7*1000; hlg[5]:=198.6*1000;hlg[6]:=192.3*1000;hlg[7]:=185.5*1000;hlg[8]:=178.4*1000;hlg[9]:=2170.7*1000;hlg[10]:=162.4*1000;hlg[11]:=153.3*1000;hlg[12]:=143.3*1000; hlg[13]:=131.9*1000; hlg[14]:=118.7*1000; hlg[15]:=102.4*1000;
cv[1]:=691;cv[2]:=707;cv[3]:=722;cv[4]:=738;cv[5]:=752;cv[6]:=767;cv[7]:=782; cv[8]:=796;cv[9]:=810;cv[10]:=824;cv[11]:=836;cv[12]:=851;cv[13]:=865; cv[14]:=880;cv[15]:=895;
x := 0.019; {nachal'nie usloviya}
t := 180; {nachal'nie usloviya}
m0:=y(ro2)*x*f;
sum:=(y(p)-102483)*f*dx;
writeln(' k | xk | tk | p');
for k := 0 to n do
begin
dt := dx * Ftx(x,t);
t := t + dt;
x := x + dx;
writeln(k:3, ' ', x:0:3, ' ', t:0:1, ' ', y(p):0:0,' ', m2(x,t):0:6,' ',sum:0:3,' ', m0);
writeln (res,t:0:1);
sum:=sum+f*(y(p)-102483)*dx;
end;
close (res);
end.
Рис.5.1. График зависимости давления в поршневой машине от хода поршня.
Рис.5.2. График зависимости температуры в поршневой машине от хода поршня.
Рис.5.3. График зависимости паросодержания от хода поршня.
1. Сухих А.А. Исследование термодинамических свойств и теплотехнических характеристик фтороорганических рабочих веществ, диссертация, Москва 2012 г.- 930 с.
2. Баранов Н.Н. Нетрадиционные возобновляемые источники и методы преобразования их энергии. - М.: Издательский дом МЭИ, 2011. - 216 с
3. Гринман М.И., Фомин В.А. Перспективы применения энергетических установок с низкокипящими рабочими телами . ЭСКО. 2006, №2.с.10
4. Цветков Ф.Ф., Григорьев Б.А. Тепломассообмен. 546 с.
5. Варгафтик Н.Б.. Справочник по теплофизическим свойствам газов и жидкостей. 3-е изд., стереотипное, исправленное. Перепечатка со второго издания 1972 г. - М.: «Старс» 2006г .– 720 с.
6. Альфа Лаваль http://www.e-alfalaval.ru/
7. Независимая газета, “Умная генерация по - фински”, 10.12.2013.
8. С.С. Амирова, А.С. Приданцев, А.Т. Тухванова, А.А. Сагдеев, Пластинчатые теплообменники (методические указания), Нижнекамск 2010 г.
9. Н.Б. Максимов, В.Г. Барабанов, И.Л. Серушкин, Промышленные фторорганические продукты: Справ. Изд./ 1990 г. – 464 с.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.