调用欧拉法子程序解上述常微分方程，可得到转化率每变化0.1，管式反应 器内相应的温度。 (5分) 2.程序框图(20分) 开始 输入：T初值，TC,A,R,Ea 转化率变化值（步长），计算精度EPS (5分) 计算：k(5分) 调用欧拉法子程序解方程计算转化率xA每变化0.1，管式反应器内 相应的温度T(5分) (自编子程序计算F(T) 列表输出：xA,T (5分) 结束 3.源程序(20分) (10分) EXTERNAL F REAL TC.EA,R A.TXA TC,EA,R,A 6.FILE-2008TESTC.Txr.STATUS-UNKNOWN) TC .314 1.84 A .17 DAAM0aou020304050607080gy 100 6,200) 10 调用欧拉法子程序解上述常微分方程，可得到转化率每变化 0.1，管式反应 器内相应的温度。 （5 分） 2.程序框图（20 分） 3.源程序（20 分） PROGRAM MAIN （10 分） DIMENSION T(10),XA(10) EXTERNAL F REAL TC,EA,R,A,T,XA COMMON TC,EA,R,A OPEN(6,FILE='2008TESTC.Txt',STATUS='UNKNOWN') TC=613 R=8.314 EA=1.84E05 A=1.17E17 T(1)=613.0 DATA XA/0.0,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9/ N=10 DO 100 I=1,N H=0.1 CALL EULER1(F,XA,T,N,H) 100 CONTINUE WRITE(6,200) 开始 输入：T 初值，TC, A,R,Ea 转化率变化值（步长）， 计算精度 EPS （5 分） 计算：k （5 分） 调用欧拉法子程序解方程计算转化率 xA 每变化 0.1，管式反应器内 相应的温度 T （5 分） （自编子程序计算 F(T)） 列表输出：xA, T （5 分） 结束