P49-13由元素组成求各组分含量

上传者：陈小刚
|
上传时间：2015-05-10
|
密次下载

P49-13由元素组成求各组分含量

PROGRAM MAIN

DIMENSION WM(4),W(4),A(4,5)

DOUBLE PRECISION A,EPS,WM,W

N=4

M=N+1

EPS=1.0E-6

DATA A/4,7,1,4,6,9,3,2,9,11,1,2,6,14,4,2,0.477,0.063,0.173,0.287/ DATA WM/133,155,165,174/

DATA W/12,1,14,16/

DO 100 I=1,N

DO 110 J=1,N

A(I,J)=A(I,J)/WM(J)

110 CONTINUE

A(I,M)=A(I,M)/W(I)

100 CONTINUE

WRITE(*,*)'ORIGINAL LINEAR EQUATIONS:'

WRITE(*,8)((A(I,J),J=1,M),I=1,N)

8 FORMAT(1X,4F12.6)

CALL GS(A,N,M,EPS)

WRITE(*,22)

22 FORMAT(5X,'SOLUTION:X='/)

WRITE(*,33)(I,A(I,M)*100,I=1,N)

33 FORMAT(5X,'X',I2,'=',F12.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

下载文档

网友关注

西藏公务员面试题库：面试每日一练结构化面试模拟题答案7.24

西藏公务员面试题库：面试每日一练结构化面试模拟题答案7.15

西藏公务员面试题库：面试每日一练结构化面试模拟题7.18

西藏公务员面试题库：面试每日一练结构化面试模拟题答案7.25

【西藏区考申论题库】申论每周一练：保健品行业乱象与公民健康素养

西藏公务员考试行测题库：行测每日一练数量关系练习题答案07.21

西藏公务员面试题库：面试每日一练结构化面试模拟题答案7.14

【西藏区考申论题库】申论每周一练：寒门难出贵子吗

2017西藏区考行测题库：行测每日一练资料分析练习题答案07.13

西藏公务员面试题库：面试每日一练结构化面试模拟题答案7.11

西藏公务员考试行测题库：行测每日一练数量关系练习题07.07

西藏公务员面试中情景模拟题：巧用生活智慧

2017西藏区考行测题库：行测每日一练资料分析练习题07.13

2017西藏区考行测题库：行测每日一练数量关系练习题答案07.14

西藏公务员面试题库：面试每日一练结构化面试模拟题7.24

西藏公务员面试题库：面试每日一练结构化面试模拟题7.25

西藏公务员面试题库：面试每日一练结构化面试模拟题答案7.18

西藏公务员面试题库：面试每日一练结构化面试模拟题答案7.10

2017西藏区考行测题库：行测每日一练言语理解与表达练习题答案07.17

西藏公务员面试题库：面试每日一练结构化面试模拟题7.21

西藏公务员面试题库：面试每日一练结构化面试模拟题7.17

西藏公务员面试题库：面试每日一练结构化面试模拟题7.11

西藏公务员面试题库：面试每日一练结构化面试模拟题7.26

西藏公务员面试题库：面试每日一练结构化面试模拟题答案7.21

2017西藏区考行测题库：行测每日一练判断推理练习题07.19

西藏公务员考试行测题库：行测每日一练言语理解与表达练习题答案07.10

西藏公务员面试题库：面试每日一练结构化面试模拟题答案7.26

西藏区考面试题库：面试每日一练结构化面试模拟题7.27

西藏公务员面试题库：面试每日一练结构化面试模拟题7.19

西藏公务员考试行测演练厅之生活常识模拟题

网友关注视频

北师大版数学四年级下册3.4包装

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

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

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

二年级下册数学第三课搭一搭⚖⚖

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

化学九年级下册全册同步人教版第18集常见的酸和碱（二）

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

七年级下册外研版英语M8U2reading

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

小学英语单词

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

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

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

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

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

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

化学九年级下册全册同步人教版第22集酸和碱的中和反应（一）

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

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

人教版二年级下册数学

化学九年级下册全册同步人教版第25集生活中常见的盐（二）

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

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

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

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

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

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

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

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

精品推荐

营造良好的企业文化

分类导航

生物学

陈小刚

此文档贡献者

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

教育资源为主的文档平台

文档分类