六、例 求解下列方程塑 AX-B 其中 .32137 r901 A= 2 -2 64 9153 -2 L-2-2115J -2-」 主程序（文件名：AGJDNO.FOR)为 DIMENSION A(4),B(4:2),JS(4) DOAIBLE PRECISION A.H DATA A/1.0,7.0,9.0,-么0,3.0,20，l5.0,-20201.0,3.1.13, 2.0.-2.0.5.0/ DATA B/9.0.6.0.11.0.- -20,0140,7.0,-1.0d N=4 M=8 CALL AGIDN(A B.NMLUS IF (LNE 0)THEN wKTE,1o》B3.J).1=1,4),J=1,2) 10 END 运行结果为 ,980745D+00 638D+00-.22252D+00.589274D+00 49791D叶0 .144494D+o ,528581D-11-,313175001 1.3复系数方程组的全选主元高斯消去法 一、功雅 用全透主元高斯(G)清去法求解复系教线性代数方程组AX一B其中 A-AR+AI B-BR+iBI X=XR+I 二、方法改明 基本方法同1.1节. 计算两个复数的秉积 :+if=(a+jb)(c+id) 本子程序采用如下算法： p=aeg=d=(a十b)(e十d) 7