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

下载文档

网友关注

2018河南省考面试热点模拟题：如何看待“地域黑”

2018河南公务员考试行测模拟题：行测每日一练（7月27日）

2018河南公务员考试暑期申论每周一练模拟练习题：数字经济

2018河南公务员考试申论每周一练：网络慈善骗捐现象

2018河南公务员考试申论模拟练习题：以人为本引领法治事业发展

2018河南公务员考试行测模拟题：行测每日一练（7月5日）

2018河南公务员考试行测模拟题：行测每日一练（7月23日）

2018河南公务员考试行测模拟题：行测每日一练（8月2日）

2018河南公务员考试行测模拟题：行测每日一练（6月29日）

2018河南公务员面试题库：面试每日一练结构化面试模拟题答案8.1

2018河南公务员考试行测模拟题：行测每日一练（7月9日）

2018河南公务员考试行测模拟题：行测每日一练（8月7日）

2018河南公务员考试行测模拟题：行测每日一练（7月6日）

2018河南公务员考试行测模拟题：行测每日一练（7月31日）

2018河南公务员考试行测模拟题：行测每日一练（7月16日）

2018河南公务员考试行测模拟题：行测每日一练（6月27日）

2018河南公务员考试行测题库：行测资料分析模拟题01

2018河南公务员考试行测模拟题：行测每日一练（7月4日）

2018河南公务员考试行测模拟题：行测每日一练（8月1日）

2018河南公务员考试行测模拟题：行测每日一练（8月8日）

2018河南公务员面试热点模拟题：大学生卖煎饼月入13万

2018河南公务员考试行测模拟题：行测每日一练（6月26日）

2018河南公务员考试申论模拟题：谈谈对“立鸿鹄志，做奋斗者”的理解

2018河南公务员考试申论模拟题：大雪封堵作为交警，你如何处理？

2018河南公务员面试题库：面试每日一练结构化面试模拟题答案

2018河南公务员考试行测模拟题：行测每日一练（7月25日）

2018河南公务员考试行测模拟题：行测每日一练（7月3日）

2018河南公务员考试行测模拟题：行测每日一练（8月3日）

2018河南公务员考试行测模拟题：行测每日一练（7月17日）

2018河南公务员考试行测模拟题：行测每日一练（7月18日）

网友关注视频

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

《小学数学二年级下册》第二单元测试题讲解

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

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

精品·同步课程历史八年级上册第15集近代科学技术与思想文化

小学英语单词

第五单元民族艺术的瑰宝_16. 形形色色的民族乐器_第一课时(岭南版六年级上册)_T1406126

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

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

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

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

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

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

北师大版数学四年级下册第三单元第二节小数点搬家

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

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

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

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

第12章圆锥曲线_12.7 抛物线的标准方程_第一课时(特等奖)(沪教版高二下册)_T274713

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

第五单元民族艺术的瑰宝_15. 多姿多彩的民族服饰_第二课时(市一等奖)(岭南版六年级上册)_T129830

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

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

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

8 随形想象_第一课时(二等奖)(沪教版二年级上册)_T3786594

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

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

二年级下册数学第二课

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

第19课我喜欢的鸟_第一课时(二等奖)(人美杨永善版二年级下册)_T644386

精品推荐

营造良好的企业文化

分类导航

生物学

陈小刚

此文档贡献者

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

教育资源为主的文档平台

文档分类