开始 I合) 输入： 数据点数N,精度EPS,温度T 压力p和摩尔体积Vm的实验数据X),Y①)(=1，N) 计算：YI)=1/X①)-YI)/RT(I=1,N 输入：要计算的压力P,积分上下限A=O0,B=P B=0 N 调用离散点求积子程序计算(2)式右方积分值S 逸度系数FI=EXP(S),逸度FF=FI*B 输出：B,FL,FF 结東开始 输入：数据点数N，精度EPS，温度T 压力p和摩尔体积Vm的实验数据X(I),Y(I) （I=1，N） 输出：B, FI, FF 结束 调用离散点求积子程序计算（2）式右方积分值S 计算：Y(I)=1/X(I)-Y(I)/RT (I=1,N) 输入：要计算的压力P，积分上下限A=0，B=P B=0 Y N 逸度系数FI=EXP(S),逸度FF=FI*B