Автор работы: Пользователь скрыл имя, 19 Июня 2013 в 11:40, курсовая работа
Химико-технологическая система (ХТС) - это совокупность взаимосвязанных технологическими потоками и действующих как одно целое аппаратов, в которых осуществляется определенная последовательность технологических операций.
Как любая сложная система, химическое предприятие состоит из большого числа взаимосвязанных элементов или частей целого. Понятие элемента системы относительно: если в качестве сложной системы рассматривать химическое предприятие, то его элементами можно считать отдельные химические производства или технологические цехи. Если сложной системой является технологический цех или технологическая линия, то их элементами служат отдельные аппараты и агрегаты. При изучении отдельного аппарата как системы, например, ректификационной колонны, ее элементами являются тарелки.
1. Введение 3
2. Задание на курсовое проектирование 6
3. Расчет ХТС 8
4. Математическое описание технологической схемы 10
5. Материальный баланс 12
Заключение 13
Список литературы 16
Список литературы
1. Кафаров В. В., Глебов М. Б., Математическое моделирование основных про цессов химических производств, Высшая школа, М., 1991, 400 с.
2. Кафаров В. В., Методы кибернетики в химической технологии; Химия, М., 1971, 495 с.
3. Самойлов Н. А., Примеры и задачи по курсу «Применение ЭВМ в химической технологии»; изд. УГНТУ, Уфа, 1994, 141 с.
Приложение 1
Программа расчета ВПРС
program matritsa_smezhnosti;
uses crt;
const n=12;
H:array[1..13,1..13] of real = ((0,1,0,0,0,0,0,0,0,0,0,0,0),
VPRS: array[1..13] of integer = (0,0,0,0,0,0,0,0,0,0,0,0,0);
var i,j,m,k:integer;
s:real;
label met1, met2;
BEGIN
clrscr;
k:=0;
met2:
for j:=1 to n do
begin s:=0;
for i:=1 to n do s:=s+H[i,j];
if s=0 then begin for m:= 1 to k+1 do
if j= VPRS[m] then goto met1;
k:=k+1;
VPRS[k]:=j;
i:=j;
for j:=1 to n do
H[i,j]:=0;
end;
met1: end;
if k<>n then goto met2;
for i:=1 to n do
write (VPRS[i],', ');
readln;
End.
Результаты расчета
Приложение 2
Программа расчета ХТС
Program HTS;
Uses Crt;
Const
k01=0.0051; k02=0.0006; k03=0.0099; k04=0.0045; k05=0.0051;
k06=0.0005; k07=0.0025; k08=0.0019; k09=0.0063; k010=0.0077;
k011=0.0062; k012=0.0012; k013=0.0010;k014=0.0045;k015=
E1=8000; E2=20000; E3=31000; E4=18000; E5=42000; E6=80000; E7=60000;
E8=70000; E9=37000; E10=65000; E11=10000; E12=73000; E13=20000;E14=15000;E15=8000;
T5=800; T1=280; T12=430; T8=500;
tau1=2; tau3=14; tau12=15; tau8=10;
R=8314 ; dh=0.005;
Var
ds1,ds2,ds3,ds4,ds5,ds6,ds7,
k1,k2,k3,k4,k5,k6,k7,k8,k9,
z,h :real;
cA,cB,cC,cF,cN,cD,cL,cM,cX,cY,
i:integer;
G,mA,mB,mC,mF,mN,mD,mL,mM,mX,
Begin
Clrscr;
{T5} k1:=k01*exp(-E1/(R*T5)); k2:=k02*exp(-E2/(R*T5)); k3:=k03*exp(-E3/(R*T5));
k4:=k04*exp(-E4/(R*T5)); k5:=k05*exp(-E5/(R*T5));
{T1}
k6:=k06*exp(-E6/(R*T1));k7:=
k10:=k010*exp(-E10/(R*T1)); k11:=k011*exp(-E11/(R*T1)); k12:=k012*exp(-E12/(R*T1));
{T8} k13:=k013*exp(-E13/(R*T8)); k14:=k014*exp(-E14/(R*T8));
{T12} k15:=k015*exp(-E15/(R*T12)); k16:=k016*exp(-E16/(R*T12));
G[1]:=55;
mA[1]:=1;
{Unit5}
G[2]:=G[1];
mB[2]:=mA[1]*k1*tau1;
cC:=mA[1]*k2*tau1;
cE:=cC*k3*tau1;
mC[2]:=cC-cE;
cF:=cE*k4*tau1;
mE[2]:=cE-cF;
mN[2]:=cF*k5*tau1;
mF[2]:=cF-mN[2];
mA[2]:=mA[1]-cB-cC;
{Unit6}
G[3]:=0.2*G[2];
G[10]:=G[2]-G[3];
mB[3]:=1;
mA[10]:=mA[2]*G[10]/G[2];
mC[10]:=mC[2]*G[10]/G[2];
mF[10]:=mF[2]*G[10]/G[2];
mE[10]:=mE[2]*G[10]/G[2];
mN[10]:=mN[2]*G[10]/G[2];
{Unit7}
G[11]:=G[10];
mA[11]:=mA[10];
mC[11]:=mC[10];
mF[11]:=mF[10];
mE[11]:=mE[10];
mN[11]:=mN[10];
{Unit8}
G[12]:=G[11];
mA[12]:=mA[11];
mC[12]:=mC[11];
mF[12]:=mF[11];
mE[12]:=mE[11];
mO[12]:=mN[11]*k13*tau8;
mP[12]:=mN[11]*k13*tau8;
mN[12]:=mN[11]-mO[12]-mP[12];
{Unit9}
G[13]:=0.4*G[12];
G[14]:=G[12]-G[13];
mP[13]:=1;
mA[14]:=mA[12]*G[14]/G[12];
mC[14]:=mC[12]*G[14]/G[12];
mF[14]:=mF[12]*G[14]/G[12];
mE[14]:=mE[12]*G[14]/G[12];
mO[14]:=mO[12]*G[14]/G[12];
mN[14]:=mN[12]*G[14]/G[12];
{Unit10}
G[15]:=G[14];
mA[15]:=mA[14];
mC[15]:=mC[14];
mF[15]:=mF[14];
mE[15]:=mE[14];
mO[15]:=mO[14];
mN[15]:=mN[15];
{Unit1}
G[4]:=G[3];
cD:=mB[3]*k6*tau3;
mB[4]:=mB[3]-cD;
cL:=cD*k7*tau3;
cK:=cD*k8*tau3;
mD[4]:=cD-cL-cK;
cM:=cL*k9*tau3;
mL[4]:=cL-cM;
mX[4]:=cM*k11*tau3;
mY[4]:=cM*k12*tau3;
mM[4]:=cM-mX[4]-mY[4];
mG[4]:=cK*k10*tau3;
mK[4]:=cK-mG[4];
{Unit2}
G[5]:=0.5*G[4];
G[6]:=G[4]-G[5];
mG[5]:=1;
mB[6]:=mB[4]*G[6]/G[4];
mD[6]:=mD[4]*G[6]/G[4];
mL[6]:=mL[4]*G[6]/G[4];
mK[6]:=mK[4]*G[6]/G[4];
mM[6]:=mM[4]*G[6]/G[4];
mX[6]:=mX[4]*G[6]/G[4];
mY[6]:=mY[4]*G[6]/G[4];
{Unit3}
G[7]:=0.7*G[6];
G[8]:=G[6]-G[7];
mY[7]:=1;
mB[8]:=mB[6]*G[8]/G[6];
mD[8]:=mD[6]*G[8]/G[6];
mL[8]:=mL[6]*G[8]/G[6];
mK[8]:=mK[6]*G[8]/G[6];
mM[8]:=mM[6]*G[8]/G[6];
mX[8]:=mX[6]*G[8]/G[6];
{Unit4}
G[9]:=G[8];
mB[9]:=mB[8];
mD[9]:=mD[8];
mL[9]:=mL[8];
mK[9]:=mK[8];
mM[9]:=mM[8];
mX[9]:=mX[8];
{Unit11}
G[16]:=G[15]+G[9];
mA[16]:=mA[15]*G[16]/G[15];
mC[16]:=mC[15]*G[16]/G[15];
mF[16]:=mF[15]*G[16]/G[15];
mE[16]:=mE[15]*G[16]/G[15];
mO[16]:=mO[15]*G[16]/G[15];
mN[16]:=mN[15]*G[16]/G[15];
mB[16]:=mB[9]*G[16]/G[9];
mD[16]:=mD[9]*G[16]/G[9];
mL[16]:=mL[9]*G[16]/G[9];
mK[16]:=mK[9]*G[16]/G[9];
mM[16]:=mM[9]*G[16]/G[9];
mX[16]:=mX[9]*G[16]/G[9];
{Unit12}
G[17]:=G[16];
mA[17]:=mA[16];
mC[17]:=mC[16];
mF[17]:=mF[16];
mE[17]:=mE[16];
mN[17]:=mN[16];
mB[17]:=mB[16];
mD[17]:=mD[16];
mL[17]:=mL[16];
mK[17]:=mK[16];
mM[17]:=mM[16];
cR:=mX[16]*mO[16]*k15*tau12;
cU:=cR* mX[16]*k16*tau12;
mT[17]:=cU*k17*tau12;
mU[17]:=cU-mT[17];
mR[17]:=cR-cU;
mX[17]:=mX[16]-cR-cU;
mO[17]:=mO[16]-cR;
{Unit13}
G[18]:=0.5*G[17];
G[19]:=G[17]-G[18];
mR[18]:=1;
mA[19]:=mA[17]*G[17]/G[19];
mC[19]:=mC[17]*G[17]/G[19];
mF[19]:=mF[17]*G[17]/G[19];
mE[19]:=mE[17]*G[17]/G[19];
mO[19]:=mO[17]*G[17]/G[19];
mN[19]:=mN[17]*G[17]/G[19];
mB[19]:=mB[17]*G[17]/G[19];
mD[19]:=mD[17]*G[17]/G[19];
mL[19]:=mL[17]*G[17]/G[19];
mK[19]:=mK[17]*G[17]/G[19];
mM[19]:=mM[17]*G[17]/G[19];
mX[19]:=mX[17]*G[17]/G[19];
mT[19]:= mT[17]*G[17]/G[19];
mU[19]:= mT[17]*G[17]/G[19];
For i:=1 to 10 do Write (' ',i,' '); Writeln;
Write ('mA '); for i:= 1 to 10 do write (' ',mA[i]:3:3); Writeln;
Write ('mB '); for i:= 1 to 10 do write (' ',mB[i]:3:3); Writeln;
Write ('mC '); for i:= 1 to 10 do write (' ',mC[i]:3:3); Writeln;
Write ('mE '); for i:= 1 to 10 do write (' ',mE[i]:3:3); Writeln;
Write ('mF '); for i:= 1 to 10 do write (' ',mF[i]:3:3); Writeln;
Write ('mN '); for i:= 1 to 10 do write (' ',mN[i]:3:3); Writeln;
Write ('mD '); for i:= 1 to 10 do write (' ',mD[i]:3:3); Writeln;
Write ('mL '); for i:= 1 to 10 do write (' ',mL[i]:3:3); Writeln;
Write ('mM '); for i:= 1 to 10 do write (' ',mM[i]:3:3); Writeln;
Write ('mX '); for i:= 1 to 10 do write (' ',mX[i]:3:3); Writeln;
Write ('mY '); for i:= 1 to 10 do write (' ',mY[i]:3:3); Writeln;
Write ('mK '); for i:= 1 to 10 do write (' ',mK[i]:3:3); Writeln;
Write ('mG '); for i:= 1 to 10 do write (' ',mG[i]:3:3); Writeln;
Write ('mO '); for i:= 1 to 10 do write (' ',mO[i]:3:3); Writeln;
Write ('mP '); for i:= 1 to 10 do write (' ',mP[i]:3:3); Writeln;
Write ('mR '); for i:= 1 to 10 do write (' ',mR[i]:3:3); Writeln;
Write ('mU '); for i:= 1 to 10 do write (' ',mU[i]:3:3); Writeln;
Write ('mT '); for i:= 1 to 10 do write (' ',mT[i]:3:3); Writeln;
Write ('G '); for i:= 1 to 10 do write (' ',G[i]:3:3); Writeln;
Readkey; clrscr;
For i:=11 to 19 do Write ( ' ',i,''); Writeln;
Write ('mA '); for i:= 11 to 19 do write (' ',mA[i]:3:3); Writeln;
Write ('mB '); for i:= 11 to 19 do write (' ',mB[i]:3:3); Writeln;
Write ('mC '); for i:= 11 to 19 do write (' ',mC[i]:3:3); Writeln;
Write ('mE '); for i:= 11 to 19 do write (' ',mE[i]:3:3); Writeln;
Write ('mF '); for i:= 11 to 19 do write (' ',mF[i]:3:3); Writeln;
Write ('mN '); for i:= 11 to 19 do write (' ',mN[i]:3:3); Writeln;
Write ('mD '); for i:= 11 to 19 do write (' ',mD[i]:3:3); Writeln;
Write ('mL '); for i:= 11 to 19 do write (' ',mL[i]:3:3); Writeln;
Write ('mM '); for i:= 11 to 19 do write (' ',mM[i]:3:3); Writeln;
Write ('mX '); for i:= 11 to 19 do write (' ',mX[i]:3:3); Writeln;
Write ('mY '); for i:= 11 to 19 do write (' ',mY[i]:3:3); Writeln;
Write ('mK '); for i:= 11 to 19 do write (' ',mK[i]:3:3); Writeln;
Write ('mG '); for i:= 11 to 19 do write (' ',mG[i]:3:3); Writeln;
Write ('mO '); for i:= 11 to 19 do write (' ',mO[i]:3:3); Writeln;
Write ('mP '); for i:= 11 to 19 do write (' ',mP[i]:3:3); Writeln;
Write ('mR '); for i:= 11 to 19 do write (' ',mR[i]:3:3); Writeln;
Write ('mU '); for i:= 11 to 19 do write (' ',mU[i]:3:3); Writeln;
Write ('mT '); for i:= 11 to 19 do write (' ',mT[i]:3:3); Writeln;
Write ('G '); for i:= 11 to 19 do write (' ',G[i]:3:3); Writeln; Readkey;
End.
Приложение 3
Результаты расчета
Информация о работе Расчет сложной химико-технологической системы