Ðàñ÷åò âàêóóìíî-âûïàðíîé óñòàíîâêè

Ðåôåðàòû / Ïðîèçâîäñòâî è òåõíîëîãèè / Ðàñ÷åò âàêóóìíî-âûïàðíîé óñòàíîâêè

TVP1=87;DTGS1=1;DTGS2=1;G=9.81;H=5.95;M=100000;DELTA1=0.95;

DELTA2=0.95;A1=0.95;

VAR W,W1,W2,D1,D2,X1,X2,T1,T2,TVP2,RO,RO1,RO2,PK,P1,P2,PSR1,PSR2,DTGEF1,DTGEF2,DTPOT,TKIP1,TKIP2,P,TGP,DTPOL2,DTPOL1,V,I1,I2,D1T,D2T,W1T,W2T,WT,BETA1,BETA2,CN,CK,B1,B2,W1K,W2K,D1K,D2K,WK,A2,GN,EN,PN,PV,RO0,SDTPOL1,SDTPOL2,LAMBDA1,TAU1,TAU2,C1,C2,C3,QPOT1,QPOT2,QPOT3,GK,TN,XN,XK:REAL;

J,F:INTEGER;

BE

GIN

WRITELN('ÈÑÕÎÄÍÛÅ ÄÀÍÍÛÅ:');

WRITE('ÐÀÑÕÎÄ ÄÐÎÆÆÅÂÎÉ ÑÓÑÏÅÍÇÈÈ, ÏÎÑÒÓÏÀÞÙÅÉ ÍÀ ÂÛÏÀÐÊÓ GN, Ì3/×=');

READLN(GN);

WRITE('ÍÀ×ÀËÜÍÀß ÊÎÍÖÅÍÒÐÀÖÈß ÄÐÎÆÆÅÂÎÉ ÑÓÑÏÅÍÇÈÈ XN, % ÌÀÑÑ=');

READLN(XN);

WRITE('ÊÎÍÅ×ÍÀß ÊÎÍÖÅÍÒÐÀÖÈß ÄÐÎÆÆÅÂÎÉ ÑÓÑÏÅÍÇÈÈ XÊ, % ÌÀÑÑ=');

READLN(XK);

WRITE('ÒÅÌÏÅÐÀÒÓÐÀ ÄÐÎÆÆÅÂÎÉ ÑÓÑÏÅÍÇÈÈ ÒÍ, ÃÐÀÄ=');

READLN(TN);

WRITE('ÊÎËÈ×ÅÑÒÂÎ ÎÒÂÎÄÈÌÎÃÎ ÝÊÑÒÐÀÏÀÐÀ ÅÍ, Ò/×=');

READLN(EN);

WRITE('ÄÀÂËÅÍÈÅ ÃÐÅÞÙÅÃÎ ÏÀÐÀ ÐÍ, ÀÒÌ=');

READLN(PN);

WRITE('ÄÀÂËÅÍÈÅ Â ÁÀÐÎÌÊÎÍÄÅÍÑÀÒÎÐÅ ÐÂ, ÀÒÌ=');

READLN(PV);

WRITELN('ÂÂÅÄÈÒÅ ÏËÎÒÍÎÑÒÜ ÄÐÎÆÆÅÂÎÉ ÑÓÑÏÅÍÇÈÈ ÏÐÈ ÒÅÌÏÅÐÀÒÓÐÅ=',TN:6:2);

WRITE('È ÊÎÍÖÅÍÒÐÀÖÈÈ ÀÑÂ=',XN:6:2);

WRITE(' RO=');

READLN(RO);

GN:=GN*RO/3600;

EN:=EN*1000/3600;

W:=GN*(1-XN/XK);

D1:=0.5*(W+EN);

W1:=D1;

D2:=D1-EN;

W2:=D2;

X1:=GN*XN/(GN-W1);

X2:=XK;

T1:=TVP1+DTGS1;

WRITELN('ÒÅÌÏÅÐÀÒÓÐÀ ÊÈÏÅÍÈß ÑÓÑÏÅÍÇÈÈ Â ÏÅÐÂÎÌ ÑÅÏÀÐÀÒÎÐÅ, ÃÐÀÄ=',T1:6:3);

PK:=1-PV;

V:=PK;

FOR J:=1 TO 54 DO

IF A[2,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

TVP2:=A[1,F]-((A[1,F]-A[1,F-1])*(A[2,F]-PK)/(A[2,F]-A[2,F-1]));

T2:=TVP2+DTGS2;

WRITELN('ÒÅÌÏÅÐÀÒÓÐÀ ÊÈÏÅÍÈß ÂÎ ÂÒÎÐÎÌ ÑÅÏÀÐÀÒÎÐÅ, ÃÐÀÄ=',T2:6:3);

V:=T1;

FOR J:=1 TO 54 DO

IF A[1,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

P1:=A[2,F]-((A[2,F]-A[2,F-1])*(A[1,F]-T1)/(A[1,F]-A[1,F-1]));

V:=T2;

FOR J:=1 TO 54 DO

IF A[1,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

P2:=A[2,F]-((A[2,F]-A[2,F-1])*(A[1,F]-T2)/(A[1,F]-A[1,F-1]));

WRITELN('ÂÂÅÄÈÒÅ ÏËÎÒÍÎÑÒÜ ÄÐÎÆÆÅÂÎÉ ÑÓÑÏÅÍÇÈÈ ÏÐÈ ÒÅÌÏÅÐÀÒÓÐÅ=',T1:6:2);

WRITE('È ÊÎÍÖÅÍÒÐÀÖÈÈ ÀÑÂ=',X1:6:2);

WRITE(' RO1=');

READLN(RO1);

PSR1:=P1+(RO1*G*H)/196200;

WRITELN('ÂÂÅÄÈÒÅ ÏËÎÒÍÎÑÒÜ ÄÐÎÆÆÅÂÎÉ ÑÓÑÏÅÍÇÈÈ ÏÐÈ ÒÅÌÏÅÐÀÒÓÐÅ=',T2:6:2);

WRITE('È ÊÎÍÖÅÍÒÐÀÖÈÈ ÀÑÂ=',X2:6:2);

WRITE(' RO2=');

READLN(RO2);

PSR2:=P2+(RO2*G*H)/196200;

V:=PSR1;

FOR J:=1 TO 54 DO

IF A[2,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

TKIP1:=A[1,F]-((A[1,F]-A[1,F-1])*(A[2,F]-PSR1)/(A[2,F]-A[2,F-1]));

V:=PSR2;

FOR J:=1 TO 54 DO

IF A[2,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

TKIP2:=A[1,F]-((A[1,F]-A[1,F-1])*(A[2,F]-PSR2)/(A[2,F]-A[2,F-1]));

DTGEF1:=TKIP1-T1;

DTGEF2:=TKIP2-T2;

DTPOT:=DTGS1+DTGS2+DTGEF1+DTGEF2;

P:=PN;

V:=PN;

FOR J:=1 TO 54 DO

IF A[2,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

TGP:=A[1,F]-((A[1,F]-A[1,F-1])*(A[2,F]-PN)/(A[2,F]-A[2,F-1]));

DTPOL1:=TGP-TKIP1;

DTPOL2:=TVP1-TKIP1;

SDTPOL1:=DTPOL1+DTPOL2;

SDTPOL2:=TGP-TVP2-DTPOT;

WRITELN('ÐÅÇÓËÜÒÀÒÛ ÏÐÅÄÂÀÐÈÒÅËÜÍÎà ÐÀÑ×ÅÒÀ');

WRITELN('ÎÁÙÅÅ ÊÎËÈ×ÅÑÒÂÎ ÂÛÏÀÐÈÂÀÅÌÎÉ ÂÎÄÛ W, ÊÃ/Ñ=',W:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÂÛÏÀÐÈÂÀÅÌÎÉ ÂÎÄÛ Â ÏÅÐÂÎÌ ÊÎÐÏÓÑÅ W1, ÊÃ/Ñ',W1:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÂÛÏÀÐÈÂÀÅÌÎÉ ÂÎÄÛ ÂÎ ÂÒÎÐÎÌ ÊÎÐÏÓÑÅ W2, ÊÃ/Ñ',W2:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÃÐÅÞÙÅÃÎ ÏÀÐÀ  ÏÅÐÂÎÌ ÊÎÐÏÓÑÅ D1, ÊÃ/Ñ',D1:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÃÐÅÞÙÅÃÎ ÏÀÐÀ ÂÎ ÂÒÎÐÎÌ ÊÎÐÏÓÑÅ D2, ÊÃ/Ñ',D2:6:3);

WRITELN('ÑÐÅÄÍßß ÒÅÌÏÅÐÀÒÓÐÀ ÊÈÏÅÍÈß ÑÓÑÏÅÍÇÈÈ Â ÏÅÐÂÎÌ ÊÎÐÏÓÑÅ ÒÊÈÏ1, ÃÐÀÄ=',TKIP1:6:3);

WRITELN('ÑÐÅÄÍßß ÒÅÌÏÅÐÀÒÓÐÀ ÊÈÏÅÍÈß ÑÓÑÏÅÍÇÈÈ ÂÎ ÂÒÎÐÎÌ ÊÎÐÏÓÑÅ ÒÊÈÏ2, ÃÐÀÄ=',TKIP2:6:3);

WRITELN('ÏÎËÅÇÍÀß ÐÀÇÍÎÑÒÜ ÒÅÌÏÅÐÀÒÓÐ Â ÏÅÐÂÎÌ ÊÎÐÏÓÑÅ ÒÏÎË1, ÃÐÀÄ=',DTPOL1:6:3);

WRITELN('ÏÎËÅÇÍÀß ÐÀÇÍÎÑÒÜ ÒÅÌÏÅÐÀÒÓÐ Â ÏÅÐÂÎÌ ÊÎÐÏÓÑÅ ÒÏÎË2, ÃÐÀÄ=',DTPOL2:6:3);

WRITE('ÑÓÌÌÀÐÍÀß ÏÎËÅÇÍÀß ÐÀÇÍÎÑÒÜ ÒÅÌÏÅÐÀÒÓÐ, ÃÐÀÄ=',SDTPOL1:6:3);

WRITELN('ÈËÈ',SDTPOL2:6:3);

{ÌÅÒÎÄ ÒÈÙÅÍÊÎ}

V:=TKIP1;

FOR J:=1 TO 54 DO

IF A[1,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

I1:=A[4,F]-((A[4,F]-A[4,F-1])*(A[1,F]-TKIP1)/(A[1,F]-A[1,F-1]))/4.19;

V:=TKIP2;

FOR J:=1 TO 54 DO

IF A[1,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

I2:=A[4,F]-((A[4,F]-A[4,F-1])*(A[1,F]-TKIP2)/(A[1,F]-A[1,F-1]))/4.19;

BETA1:=(TN-TKIP1)/(I1-TKIP1);

BETA2:=(TKIP1-TKIP2)/(I2-TKIP2);

WRITELN('ÂÂÅÄÈÒÅ ÒÅÏËÎÅÌÊÎÑÒÜ ÄÐÎÆÆÅÂÎÉ ÑÓÑÏÅÍÇÈÈ ÏÐÈ ÒÅÌÏÅÐÀÒÓÐÅ=',TN:6:2);

WRITE('È ÊÎÍÖÅÍÒÐÀÖÈÈ ÀÑÂ=',XN:6:2);

WRITE(' CN=');

READLN(CN);

D1T:=(W-GN*CN*(2*BETA1+BETA2)+EN)/(2-BETA2);

W1T:=D1T+GN*CN*BETA1;

D2T:=W1T-EN;

W2T:=D2T+(GN*CN-W1T)*BETA2;

WT:=W1T+W2T;

WRITELN('ÐÅÇÓËÜÒÀÒÛ ÐÀÑ×ÅÒÀ ÏÎ ÌÅÒÎÄÓ ÒÈÙÅÍÊÎ');

WRITELN('ÎÁÙÅÅ ÊÎËÈ×ÅÑÒÂÎ ÂÛÏÀÐÈÂÀÅÌÎÉ ÂÎÄÛ W, ÊÃ/Ñ=',WT:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÂÛÏÀÐÈÂÀÅÌÎÉ ÂÎÄÛ Â ÏÅÐÂÎÌ ÊÎÐÏÓÑÅ W1, ÊÃ/Ñ',W1T:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÂÛÏÀÐÈÂÀÅÌÎÉ ÂÎÄÛ ÂÎ ÂÒÎÐÎÌ ÊÎÐÏÓÑÅ W2, ÊÃ/Ñ',W2T:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÃÐÅÞÙÅÃÎ ÏÀÐÀ  ÏÅÐÂÎÌ ÊÎÐÏÓÑÅ D1, ÊÃ/Ñ',D1T:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÃÐÅÞÙÅÃÎ ÏÀÐÀ ÂÎ ÂÒÎÐÎÌ ÊÎÐÏÓÑÅ D2, ÊÃ/Ñ',D2T:6:3);

{ÌÅÒÎÄ ÊÎÑÒÅÍÊÎ}

B1:=GN*CN*BETA1*DELTA1;

B2:=GN*CN*(BETA1*DELTA1*DELTA2+BETA2*DELTA2-DELTA1*DELTA2*BETA1*BETA2)-EN*DELTA2;

A2:=(A1-A1*BETA2)*DELTA2;

D1K:=(W-(B1+B2))/(A1+A2);

W1K:=D1K*A1+B1;

D2K:=W1K-EN;

W2K:=D1K*A2+B2;

WK:=D1K*(A1+A2)+(B1+B2);

WRITELN('ÐÅÇÓËÜÒÀÒÛ ÐÀÑ×ÅÒÀ ÏÎ ÌÅÒÎÄÓ ÊÎÑÒÅÍÊÎ');

WRITELN('ÎÁÙÅÅ ÊÎËÈ×ÅÑÒÂÎ ÂÛÏÀÐÈÂÀÅÌÎÉ ÂÎÄÛ W, ÊÃ/Ñ=',WK:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÂÛÏÀÐÈÂÀÅÌÎÉ ÂÎÄÛ Â ÏÅÐÂÎÌ ÊÎÐÏÓÑÅ W1, ÊÃ/Ñ',W1K:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÂÛÏÀÐÈÂÀÅÌÎÉ ÂÎÄÛ ÂÎ ÂÒÎÐÎÌ ÊÎÐÏÓÑÅ W2, ÊÃ/Ñ',W2K:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÃÐÅÞÙÅÃÎ ÏÀÐÀ  ÏÅÐÂÎÌ ÊÎÐÏÓÑÅ D1, ÊÃ/Ñ',D1K:6:3);

WRITELN('ÊÎËÈ×ÅÑÒÂÎ ÃÐÅÞÙÅÃÎ ÏÀÐÀ ÂÎ ÂÒÎÐÎÌ ÊÎÐÏÓÑÅ D2, ÊÃ/Ñ',D2K:6:3);

{ÒÅÏËÎÂÎÉ ÁÀËÀÍÑ}

V:=TGP;

FOR J:=1 TO 54 DO

IF A[1,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

LAMBDA1:=A[4,F]-((A[4,F]-A[4,F-1])*(A[1,F]-TGP)/(A[1,F]-A[1,F-1]))/4.19;

TAU1:=A[3,F]-((A[3,F]-A[3,F-1])*(A[1,F]-TGP)/(A[1,F]-A[1,F-1]))/4.19;

V:=TKIP1;

FOR J:=1 TO 54 DO

IF A[1,J]>=V THEN

BEGIN

V:=M;

F:=J;

END;

TAU2:=A[3,F]-((A[3,F]-A[3,F-1])*(A[1,F]-TKIP1)/(A[1,F]-A[1,F-1]))/4.19;

C1:=GN*CN*TN;

C2:=EN*I1;

WRITELN('ÂÂÅÄÈÒÅ ÒÅÏËÎÅÌÊÎÑÒÜ ÄÐÎÆÆÅÂÎÉ ÑÓÑÏÅÍÇÈÈ ÏÐÈ ÒÅÌÏÅÐÀÒÓÐÅ=',T2:6:2);

WRITE('È ÊÎÍÖÅÍÒÐÀÖÈÈ ÀÑÂ=',XK:6:2);

WRITE(' CK=');

READLN(CK);

GK:=GN-W;

C3:=GK*CK*T2;

QPOT1:=((D1*LAMBDA1+C1)-(C2+W2*I2+D1*TAU1+D2*TAU2+C3))*100/(D1*LAMBDA1+C1);

QPOT2:=((D1T*LAMBDA1+C1)-(C2+W2*I2+D1T*TAU1+D2*TAU2+C3))*100/(D1T*LAMBDA1+C1);

QPOT3:=((D1K*LAMBDA1+C1)-(C2+W2*I2+D1K*TAU1+D2*TAU2+C3))*100/(D1K*LAMBDA1+C1);

WRITELN('ÒÅÌÏÅÐÀÒÓÐÀ ÃÐÅÞÙÅÃÎ ÏÀÐÀ TGP=',TGP:8:3);

WRITELN('ÄÀÂËÅÍÈÅ P1=',P1:6:3);

WRITELN('ÄÀÂËÅÍÈÅ P2=',P2:6:3);

WRITELN('ÒÅÌÏÅÐÀÒÓÐÀ TVP2=',TVP2:8:3);

WRITELN('ÒÅÏËÎÂÛÅ ÏÎÒÅÐÈ');

WRITELN('ÏÎ ÏÐÅÄÂÀÐÈÒÅËÜÍÎÌÓ ÐÀÑ×ÅÒÓ QPOT=',QPOT1:6:3);

WRITELN('ÏÎ ÌÅÒÎÄÓ ÒÈÙÅÍÊÎ QPOT=',QPOT2:6:3);

Ñêà÷àòü ðåôåðàò Ñêà÷àòü ðåôåðàò
Ñòðàíèöà:  1  2  3  4  5  6  7  8  9 


Äðóãèå ðåôåðàòû íà òåìó «Ïðîèçâîäñòâî è òåõíîëîãèè»:

Ïîèñê ðåôåðàòîâ

Ïîñëåäíèå ðåôåðàòû ðàçäåëà

Copyright © 2010-2024 - www.refsru.com - ðåôåðàòû, êóðñîâûå è äèïëîìíûå ðàáîòû