RETURN END SUBROUTINE NRCXOEDEKEPS EXNY (10分) X= EXN=F(X) 10 DFX=(FX+H)-FXH 30 END I (N=X-T*FX/DFX IF()LTABS(FX)THEN IF(ABS(R).GT.EPS)THEN 010 ELSE ELSE IF(T.GT.E)THEN G0020 ELSE IF(ABS(FXN).GT.EPS)THEN TE,61) RETURN 61 .NO REAL ROOT WAS FOUND) 4.运行结果。(20分) T=3700000K P=1000E+06PE VHCL:VO2= 2.6209 2659 (5分) RESULT. y(CL2.1504 (15分) D 1.计算原理（化学原理和计算方法）(20分) 棉籽油催化加氢的主要反应如下，其中A 一亚油酸，B一一顺油酸，C—一异油酸， D—硬脂酸。 k4 A D k211 RETURN END SUBROUTINE NR(X0,F,DF,K,EPS,E,XN) （10 分） X=X0 T=1.0 FXN=F(X) 10 FX=FXN IF(K.EQ.1)THEN DFX=DF(X) ELSE H=1E-6*X DFX=(F(X+H)-FX)/H END IF 20 XN=X-T*FX/DFX FXN=F(XN) IF(ABS(FXN).LT.ABS(FX))THEN R=(XN-X)/X IF(ABS(R).GT.EPS)THEN X=XN GOTO 10 ELSE RETURN END IF ELSE IF(T.GT.E)THEN T=0.5*T GOTO 20 ELSE IF(ABS(FXN).GT.EPS)THEN WRITE(*,61) END IF RETURN 61 FORMAT(/2X,'NO REAL ROOT WAS FOUND') END 4.运行结果。（20 分） T= 370.0000K P= .1000E+06Pa VHCL:VO2= 2.6209 X= .2659 （5 分） RESULT: y(CL2)= .1504 （15 分） D 1.计算原理（化学原理和计算方法）（20 分） 棉籽油催化加氢的主要反应如下，其中 A——亚油酸，B——顺油酸，C——异油酸， D——硬脂酸。 A B C D k1 k2 k3 k4 k5