c语言 逐时温度表达,暖通计算机应用讲义(1-3章)

·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)