·26· 3 暖通专业计算
SUM=0.
DO30I=1,4
30 SUM=SUM+P(I)
PVSF=760.0*10**SUM
WRITE(*,100) 'PVSF=',PVSF
100 FORMAT (A,F8.3)
STOP
END
算例:t=30°C→P s=31.84mmHg;
思考题:采用空调教材中的公式编程计算。
3.2.2由水蒸汽分压力求露点温度
输入量:P u ------水蒸汽分压力,mmHg;
输出量:t d--------空气露点温度,°C。
计算过程:
用P u =4.581mmHg(即相当于0 °C的饱和水蒸汽分压力)将饱和曲线分成上下两部分。
令Y=ln(P u)。
当P u>4.581mmHg时,t d = -18.807+11.005Y+0.88887Y2
当P u£4.581mmHg时,t d = -19.237+11.533Y+0.72733Y2
上述公式是根据《空气调节设计手册》表1-21(B=760mmHg时,空气的主要物理性质)中的数据,并分别以20°C,10°C,0°C和-5°C,-10°C为校准点计算出来的。
参考程序:DPF(PV)
PROGRA MMAIN
WRITE(*,*) 'PV=?'
READ(*,*) PV
IF (PV) 10,10,20
10 GOTO 40
20 CONTINUE
Y=ALOG(PV)
Y1=LOG(PV)
WRITE(*,*) Y,Y1
IF (PV.GT.4.581) GOTO 30
DPF=-19.237+11.533*Y+0.7273*Y*Y
GOTO 40
30 DPF=-18.807+11.005*Y+0.8887*Y*Y
40 WRITE(*,100) 'DPF=',DPF
100 FORMAT(A,F7.3)