PRO II Ä£Äâ·´Ó¦Æ÷±àд·´Ó¦ËÙÂÊ·½³Ìʱ³ÌÐò´íÎó£¬Çë´óÉñÖ¸µã£¬
INTEGER CO, H2, C3E, C3, BALD, IB, TPP, DEC
CO=1
H2=2
C3E=3
C3=4
BALD=5
IB=6
TPP=7
DEC=8
K = RCONC(1)/RCONC(8)
KA=(1+6.51*K)/(1+93.2*K)
TK=1/RTEMP-1/373
RCRH=(0.12*XLCONC(7)/20)/VOLUME
RCC=XLCONC(3)/VOLUME
RPP=XLCONC(7)/VOLUME
PC=XVAP(3)*RPRES
PH=XVAP(2)*RPRES
PCO=XVAP(1)*RPRES
RRATES(2)=(18*(RCC**0.54)/(RPP)**0.65)*RCRH*EXP(-20600/1.98*TK)/(1+29.2*KA)
RRATES(1)=(18*(RCC**0.54)/(RPP)**0.65)*RCRH*EXP(-20600/1.98*TK)-RRATES(2)
RRATES(3)=(EXP(11.21-7646/RTEMP))*(RCRH**0.5)*(PC**0.9)*(PH**0.4)/(PCO**0.6)
RETURN
ÔËÐнá¹û *** ERROR *** Procedure $MACRO ERROR$. |