P130-7 色谱分析的计算

上传者：贺昌政
|
上传时间：2015-05-09
|
密次下载

P130-7 色谱分析的计算

北京化工大学计算化学作业答案

PROGRAM MAIN

DOUBLE PRECISION EPS,A,B,X,Y,A1,B1,X1,Y1,S,S1,SS DIMENSION X(10),Y(10),X1(7),Y1(7)

OPEN(6,FILE='OUTPUT',STATUS='UNKNOWN') N=10

M=7

EPS=1E-5

DATA X/38,40,53,64,75,86,97,108,119,130/ DATA Y/0,3,17,40,69,90,68,43,19,4/

DATA X1/250,258,266,274,282,290,298/ DATA Y1/0.5,6,14,21,13,5,0/

A=38

B=130

A1=250

B1=298

CALL SIMP(N,A,B,X,Y,EPS,S)

CALL SIMP(M,A1,B1,X1,Y1,EPS,S1)

SS=S/S1

WRITE(6,11) S,S1,SS

11 FORMAT(/2X,'S=',F18.10/2X,'S1=',F18.10/2X,'The substance(S/S1)is:',f18.10)

END

SUBROUTINE SIMP(M,A,B,X,Y,EPS,S2)

DOUBLE PRECISION A,B,X,Y,EPS,S2,FA,FB,X0,Y0 DIMENSION X(M),Y(M)

H=B-A

N=1

CALL LGRG2(X,Y,M,A,FA)

CALL LGRG2(X,Y,M,B,FB)

T1=0.5*H*(FA+FB)

10 S=0

DO 20 K=1,N

X0=A+(K-0.5)*H

CALL LGRG2(X,Y,M,X0,Y0)

20 S=S+Y0

T2=0.5*(T1+H*S)

S2=T2+(T2-T1)/3.0

IF(N.EQ.1) GOTO 40

30 D=ABS(S2-S1)

IF(ABS(S2).GT.1.0)THEN

D=ABS((S2-S1)/S2)

END IF

IF(D.LT.EPS) GOTO 50

40 N=N+N ratio of content of two

北京化工大学计算化学作业答案

H=0.5*H

T1=T2

S1=S2

GOTO 10

50 RETURN

END

SUBROUTINE LGRG2(X,Y,N,T,Z) DIMENSION X(N),Y(N)

DOUBLE PRECISION X,Y,T,Z,S

Z=0.0

IF(N.LE.0)RETURN

IF(N.EQ.1)THEN

Z=Y(1)

RETURN

END IF

IF(N.EQ.2)THEN

Z=(Y(1)*(T-X(2))-Y(2)*(T-X(1)))/(X(1)-X(2)) RETURN

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

END IF

GOTO 10

END IF

IF(ABS(T-X(K)).LT.ABS(T-X(M))) THEN K=K-1

ELSE

M=M+1

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

下载文档

网友关注

高温锻炼和水杨酸预处理对热激下葡萄叶肉细胞超微结构的影响

Polymeric ion-selective membrane functionalized gate-electrodes

A novel nitromethane biosensor based on

三号探空火箭

Multi-Flask Shakers

CNAS-CL52：2014《CNAS-CL01《检测和校准实验室能力认可准则》应用要求》

高温高能高密度极端条件下可能出现的新现象

高温退火Fe3O4薄膜的结构和磁输运性质研究

关于岩石微量元素构造环境判别图解使用的有关问题_赵振华

25.电缆故障点的四种实用测定方法

高温退火过程中铅合金晶界特征分布的演化

微水相中杏仁醇腈酶催化不对称合成_R_氰醇的研究

让眼睛恢复视力方法及训练

ChemSocRev2014-5594-吸附

355nm紫外全固态激光精密切割专用设备研发项目通过验收

Array of ultramicroelectrodes for the simultaneous detection of nitric oxide and peroxynitrite

高温高盐条件下嗜蜡菌的培养、驯化及应用潜力

元素周期表

3.3.1化学反应速率

网友关注视频

河南省名校课堂七年级下册英语第一课（2020年2月10日）

8.练习八_第一课时(特等奖)(苏教版三年级上册)_T142692

七年级英语下册上海牛津版 Unit9

苏教版二年级下册数学《认识东、南、西、北》

冀教版小学数学二年级下册第二单元《有余数除法的简单应用》

【部编】人教版语文七年级下册《泊秦淮》优质课教学视频+PPT课件+教案，湖北省

沪教版牛津小学英语（深圳用）四年级下册 Unit 8

外研版英语三起5年级下册（14版）Module3 Unit1

冀教版小学数学二年级下册第二单元《租船问题》

冀教版小学数学二年级下册第二单元《余数和除数的关系》

【部编】人教版语文七年级下册《逢入京使》优质课教学视频+PPT课件+教案，辽宁省

3月2日小学二年级数学下册（数一数）

北师大版八年级物理下册第六章常见的光学仪器（二）探究凸透镜成像的规律

外研版英语三起5年级下册（14版）Module3 Unit2

冀教版小学数学二年级下册第二单元《有余数除法的竖式计算》

8.对剪花样_第一课时(二等奖)(冀美版二年级上册)_T515402

沪教版八年级下册数学练习册21.4（1）无理方程P18

冀教版小学英语五年级下册lesson2教学视频(2)

冀教版小学数学二年级下册第二周第2课时《我们的测量》宝丰街小学庞志荣.mp4

沪教版八年级下册数学练习册20.4（2）一次函数的应用2P8

每天日常投篮练习第一天森哥打卡上脚 Nike PG 2 如何调整运球跳投手感？

第8课对称剪纸_第一课时(二等奖)(沪书画版二年级上册)_T3784187

【获奖】科粤版初三九年级化学下册第七章7.3浓稀的表示

外研版英语三起6年级下册（14版）Module3 Unit2

北师大版小学数学四年级下册第15课小数乘小数一

【部编】人教版语文七年级下册《老山界》优质课教学视频+PPT课件+教案，安徽省

【部编】人教版语文七年级下册《逢入京使》优质课教学视频+PPT课件+教案，安徽省

19 爱护鸟类_第一课时(二等奖)(桂美版二年级下册)_T3763925

人教版二年级下册数学

苏科版数学八年级下册9.2《中心对称和中心对称图形》

精品推荐

营造良好的企业文化

分类导航

生物学

贺昌政

此文档贡献者

2015-05-09
贡献时间
密
下载次数

教育资源为主的文档平台

文档分类