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

下载文档

网友关注

电视电影《哈姆菜特》中的可视性机器_电影艺术论文

2009-2010年全球及中国平板电视和3D电视行

军事理论课总复习提纲及基本要求

某装甲兵部队军人军事演习前后SCL-90评定

中国电视动画文献品质与未成年人群体接受论_电视艺术论文

对电视新闻娱乐化现象的利弊分析_电视艺术论文

[精品]军事实际课课程小论文

中国军事战略方针及核战略之演变

狭窄的女性天空——论中国女性题材电影中的女性意识

美国计划彻底击毁中国腹地的军事能力

中国微电影大典招商方案

第四章军事高技术

谈强化电视新闻采制的电视观念_电视艺术论文

军事英语教学体系的构想

毛泽东军事思想的历史地位

网友关注视频

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

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

二次函数求实际问题中的最值_第一课时(特等奖)(冀教版九年级下册)_T144339

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

小学英语单词

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

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

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

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

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

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

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

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

冀教版小学英语四年级下册Lesson2授课视频

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

精品推荐

营造良好的企业文化

分类导航

生物学

陈小刚

此文档贡献者

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

教育资源为主的文档平台

文档分类