P49-12 质谱法确定各组分含量

上传者：石雅姗
|
上传时间：2015-05-09
|
密次下载

P49-12 质谱法确定各组分含量

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

PROGRAM MAIN

DIMENSION A(4,5),S(4)

DOUBLE PRECISION A,EPS,SUM

INTEGER I,N,M

N=4

M=N+1

EPS=1.0E-6

OPEN(5,FILE='12-1.TXT',STATUS='OLD')

OPEN(6,FILE='12-2.TXT',STATUS='UNKNOWN')

READ(5,*)((A(I,J),J=1,N+1),I=1,N)

READ(5,*)(S(J),J=1,N)

WRITE(6,5)

5 FORMAT(20X,'INPUT DATA:'/1X,60(1H-))

DO 4 I=1,N

4 WRITE(6,11)(A(I,J),J=1,N+1)

WRITE(6,11) (S(J),J=1,N)

DO 20 I=1,N

DO 20 J=1,N

20 A(I,J)=A(I,J)*S(J) WRITE(6,7)

7 FORMAT(/12X,'Simltaneous linear equations of MS:'/1x,60(1H-)) DO 8 I=1,N

8 WRITE(6,11) (A(I,J),J=1,N+1)

11 FORMAT(1X,15F10.4)

CALL GS(A,N,M,EPS)

SUM=0.0

DO 10 I=1,N

10 SUM=SUM+A(I,N+1)

WRITE(6,22)SUM

22 FORMAT(/6X,'SOLUTION:SUM-P=',G12.4/1X,60(1H-)) WRITE(6,33)(I,A(I,M),I,A(I,M)/SUM*100,I=1,N)

33 FORMAT(5X,'P',I2,'='E12.4,5X,'m',I2,'=',E12.4)

END

SUBROUTINE GS(A,N,M,EPS)

DOUBLE PRECISION A,EPS

DIMENSION A(N,M)

DO 50 K=1,N

P=0.0

DO 10 I=K,N

IF(P.GE.ABS(A(I,K)))GOTO 10

P=ABS(A(I,K))

L=I

10 CONTINUE

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

IF(P.LT.EPS)STOP'NO SOLUTION' IF(L.EQ.K)GOTO 30

DO 20 J=K,M

TMP=A(L,J)

A(L,J)=A(K,J)

A(K,J)=TMP

20 CONTINUE

30 P=1.0/A(K,K)

DO 40 J=K+1,M A(K,J)=A(K,J)*P

DO 40 I=K+1,N

A(I,J)=A(I,J)-A(I,K)*A(K,J) 40 CONTINUE

50 CONTINUE

DO 60 K=2,N

I=M-K

DO 60 J=I+1,N

A(I,M)=A(I,M)-A(I,J)*A(J,M) 60 CONTINUE

RETURN

END

下载文档

网友关注

2015教资国考|高中政治知识点：《政治生活》复习指南（九）

2015教资国考：高中政治知识点整理——唯物辩证法（二）

2015教资国考：初中思想品德练习题（七）

2015教资国考：高中政治知识点整理——唯物辩证法（四）

2015教资国考|高中政治知识点：《文化生活》复习指南（七）

2015教资国考|高中政治知识点：《文化生活》复习指南（二）

2015教资国考|高中政治知识点：《政治生活》复习指南（八）

2015教资国考|高中政治知识点：《经济生活》复习指南（十二）

2015教资国考|高中政治知识点：《文化生活》复习指南（八）

2015教师资格国考：高中政治综合强化练习题（七）

2015教资国考：初中思想品德练习题（三）

2015教资国考|高中政治知识点：《经济生活》复习指南（一）

2015教资国考|高中政治知识点：《经济生活》复习指南（四）

2015教资国考|高中政治知识点：《政治生活》复习指南（五）

2015教资国考|高中政治知识点：《政治生活》复习指南（一）

2015教资国考：初中思想品德练习题（八）

2015教资国考|高中政治知识点：《文化生活》复习指南（三）

2015教资国考|高中政治知识点：《经济生活》复习指南（七）

2015教资国考|高中政治知识点：《经济生活》复习指南（二）

2015教资国考：高中政治知识点整理——唯物辩证法（一）

2015教资国考|高中政治知识点：《经济生活》复习指南（十一）

2015教资国考|高中政治知识点：《政治生活》复习指南（二）

2015教资国考|高中政治知识点：《经济生活》复习指南（八）

2015教资国考：初中思想品德练习题（一）

2015教资国考|高中政治知识点：《文化生活》复习指南（六）

2015教资国考：初中思想品德练习题（九）

2015教资国考|高中政治知识点：《文化生活》复习指南（四）

2015教资国考：初中思想品德练习题（二）

2015教资国考：高中政治知识点整理——哲学常识

2015教资国考|高中政治知识点：《文化生活》复习指南（一）

网友关注视频

小学英语单词

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

冀教版小学数学二年级下册第二单元《有余数除法的整理与复习》

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

苏科版数学七年级下册7.2《探索平行线的性质》

30.3 由不共线三点的坐标确定二次函数_第一课时(市一等奖)(冀教版九年级下册)_T144342

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

外研版英语七年级下册module3 unit2第二课时

北师大版数学四年级下册第三单元第四节街心广场

二年级下册数学第一课

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

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

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

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

青岛版教材五年级下册第四单元（走进军营——方向与位置）用数对确定位置（一等奖）

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

冀教版英语三年级下册第二课

二年级下册数学第二课

外研版英语七年级下册module3 unit2第一课时

沪教版八年级下册数学练习册21.3（2）分式方程P15

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

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

七年级下册外研版英语M8U2reading

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

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

飞翔英语—冀教版(三起)英语三年级下册Lesson 2 Cats and Dogs

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

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

第4章幂函数、指数函数和对数函数（下）_六指数方程和对数方程_4.7 简单的指数方程_第一课时(沪教版高一下册)_T1566237

冀教版小学数学二年级下册1

精品推荐

营造良好的企业文化

分类导航

生物学

石雅姗

此文档贡献者

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

教育资源为主的文档平台

文档分类