PARO,K)要2R3 Q=AI(I.K)+BICK) S=(ARCK)+AKLK))(BR(K)+B(K) 眼D= ()-P+Q B0)=B)-S+P+Q 0 CONTINUE 100 CONTINUE D-AK(N.N):AR(N.N)+AICN.N)+AION.N) n F(W41.a0.1.)TEN L-0 WRTTE(+.20> RETURN END IH P=ARN,N)m级CN) Q--AT(N.N)BION) S-(AR(N .N- AIN.N).(BRON)+BION) BR(N)-(P-Q)/D BI(N)-(S-P-Q)/D D02001-N-11,-1 D0150J=+1,N P=AR1,J》+R Q=AIC.J)+BI) +AJ(IJ))(R ()-B]d)S+P+Q 150 CONTINUE 200 CONTINUE SON)N D0110K=N,1,1 BR(K) BRC)R(JS(K) BRUS(K))=P P=BI(K) BK)BIOS(K) (S))-P 120 NTINUE RETURN END 六、例 求解下列复系数方程组 10