END IF E.X(2))THEN (TGE X(N-DITHEN K= 10 IF(IABS(K-M).NE.1)THEN =K+M/2 IF(T.LT.X(L)YTHEN ELSE ENDIE G0T010 S(T-X(K)).LT.ABS(T-X(M)))THEN M-M+l DO 30 I=K.M DO20J=K.M (-xop END IE 20 30 CONTINUE 运行结果。(20分 .3967358970D+01 (5分) B= .1004389774D+01 R= 9952499181D+00 (5分) n= .1004389774D+01 k= .5284478172D+02 (10分) B 1.计算原理（化学原理和计算方法）(20分) 某气体混合物在常压或低压下其粘度n与各组分的物质的量分数x1,2,x,x之间存 在如下线性关系： (1) (10分) 由于各组分摩尔分数之和等于1，故第4种气体的摩尔分数可表示为 x=1-(1十2十x) 4 END IF IF(T.LE.X(2))THEN K=1 M=3 ELSE IF(T.GE.X(N-1))THEN K=N-2 M=N ELSE K=1 M=N 10 IF(IABS(K-M).NE.1)THEN L=(K+M)/2 IF(T.LT.X(L))THEN M=L ELSE K=L ENDIF GOTO 10 END IF IF(ABS(T-X(K)).LT.ABS(T-X(M))) THEN K=K-1 ELSE M=M+1 END IF END IF Z=0.0 DO 30 I=K,M S=1.0 DO 20 J=K,M IF(J.NE.I)THEN S=S*(T-X(J))/(X(I)-X(J)) END IF 20 CONTINUE Z=Z+S*Y(I) 30 CONTINUE RETURN END 4． 运行结果。（20 分） A= .3967358970D+01 （5 分） B= .1004389774D+01 R= .9952499181D+00 （5 分） n= .1004389774D+01 k= .5284478172D+02 （10 分） B 1．计算原理（化学原理和计算方法）（20 分） 某气体混合物在常压或低压下其粘度η与各组分的物质的量分数 x1，x2，x3，x4之间存 在如下线性关系： 0 1 1 2 2 3 3 4 4 η = b + b x + b x + b x + b x （1） （10 分） 由于各组分摩尔分数之和等于 l，故第 4 种气体的摩尔分数可表示为 x4＝l-( x1十 x2十 x3)