AX-8 其中A=AR+iAI,B=BR+iB 132 f3-216 R 21 9153-2 A1= -2758 9-3151 L-2-2115 -2-276d BR=2,1,3,9,B=(1,2,-,3 主程序（文件名：ACGAS0,FOR)为 DIMENSION AR(4.4),AI(4.4).BR(4).BI(4).JS(4) DATA AR/1.0,.D,-20,0,20,15,0,-么0 20.1.0.3.0,11-0.13.0,-20,-20.5.0/ DATA A1/30.-2.,9.0,-20,-2.0,.0,-30,-20, 1.05,0,15.0,7.0,6.0,80,1.0,i.c/ DATA BR/.20,7,0.a0,9.0/ DATA81.0,20.-a.0,1./ CALL ACGAS(AR.AL.4.BR.BI.LJS) LNE)HN WRITE(10)(BR(D)I14) RTE(.,10(O,l-1,4) END IF 100RMAT(1X,4DI4.6) 运行结果为 .67R233D-01-.182341D+o0 ,59852D+00.245455D+00 .707823D-01-.75194D+00 -.437131D+00 .11395D+60 1.4复系数方程组的全选主元高斯-约当消去法 一、功 用全选主元高所约当(Gauss-】orn)消去法求鳏系数矩阵相同顶具有多组右鞘常 数向量的复系数线性代数方程组AX=B。 二、方法说明 基本方齿同1.？节。 为了计算两个复数的秦积 e+f=a+)+0 本子程序来用如下算法： p-ac:q=bd,s=(a+6)(c+d) =p-gf-s-p-g 11