该程序主要涉及线性方程组的求解，使用了迭代法进行计算。程序中定义了矩阵A和向量B，分别对应线性方程组的系数和常数项。初始数据已给出，包括不同波长下的摩尔吸光度。程序还设置了收敛标准和最大迭代次数，并通过打开文件进行输出，将原始线性方程组和计算过程记录到文件中。
!example1_7 !注释
PROGRAM MAIN !主程序
DIMENSION A(4,4), B(4), X(4) !四个波长，混合物由四个组分组成
DOUBLE PRECISION A, B, X, EPS !
N=4 !
EPS=1.0E-06 !收敛标准
MAXIT=100 !最大迭代次数
OPEN(6,FILE='EX1_7.TXT', & !打开文件6
STATUS='UNKNOWN') !准备存放输出文件EX1_7.TXT
DATA A/1.502,0.0261,0.0342,0.0340, & ! 给定不同波长下各纯物质及混合物
0.0514,0.1516,0.0355,0.0684, & ！的摩尔吸光度Eij, Ai,即为线性方
0.0,0.0,2.532,0.0, & ！程组的系数 A(N,M)；M＝N＋1
0.0408,0.0820,0.2933,0.3470/ ！
DATA B/0.1013,0.01993,0.2194,0.03396/ !
WRITE(6,*)'ORIGINAL LINEAR EQUATIONS:' !在文件6 中写入字符串
WRITE(6,10)((A(I,J),J=1,N),B(I),I=1,N) !在文件6 中写入 A,B数组，格式10
10 FORMAT(1X,5F12.6) !1X:输出空格；个数为 1
!连续 5个 F编辑符
3092
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
