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

下载文档

网友关注

[宝典]上海财经大学管帐学课件chap7_第七章固定资产

浅谈期货投资技巧

现货交易心得[精品]

【贵金属行情】美国股市美债美油非美上涨，美元现货金布油走低

【贵金属行情】麦格理银行：相比其他商品，黄金兑美元非常稳定

[资料]对外财经商业大学法学院

期货日内短线技巧

【贵金属交易】低油价已致多数美国油企陷窘境，须以矿业惨况为鉴

【贵金属行情】黄金会否继续下挫看Fed何时升息

【贵金属投资】黄金反弹是否见顶观察4h级别21均线

麒麟短线王超强版培训(股票)

【贵金属交易】美银美林：仍看涨黄金，看跌欧元兑美元

财经学人中文版英语进修资料[精品]

【贵金属交易】NYMEX原油微跌0.13%，行情料逐渐转向多头

【贵金属交易】德国商业银行：希腊不确定性应当改善黄金避险魅力

【贵金属交易】美国NYMEX原油跌1.44%，关注美国房屋数据

【贵金属交易】预测神器六年首现，黄金长线做多良机来了

泛欧贵金属详述突破缺口和持续性缺口的买入机会

财经律例与管帐职业品行02[资料]

[资料]2012年中间财经大学治理进修题

2-甲基-2-戊烯醛的生产工艺及市场研究报告

2015期货从业资格考试《期货基础知识》知识点：中国期货业协会

(简体)金融期货发展现状与未来展望

【贵金属行情】伦铜跌0.28%，美联储利率决议前交投谨慎

【贵金属行情】涨27美元冲高1175，得益于美联储决议声明偏鸽派

[最新]广东省管帐财经律例与管帐职业品行光碟版及谜底自己错题修改版

2015考研天津财经大学法学综合考研真题参考书考录比

[精品]财经文本中中国主题的翻译

现货白银操作技巧

【贵金属交易】NYMEX原油期货亚市盘初跌1%，受沙特石油部长言论打压

网友关注视频

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

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

人教版二年级下册数学

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

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

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

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

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

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

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

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

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

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

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

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

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

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

沪教版八年级下册数学练习册一次函数复习题B组（P11）

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

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

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

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

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

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

苏科版数学八年级下册第八章第二节可能性的大小

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

精品推荐

营造良好的企业文化

分类导航

生物学

陈小刚

此文档贡献者

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

教育资源为主的文档平台

文档分类