Q-AIO,K)+AIKJ) S-(AR(L.K)+AIC.K))(AR(K.D)+AI(K.J)) ARIJ》=RL,n-P+Q AldD=AIO.J)-S+P+Q CONTINUE 0851=1,M Q-AIC S-(AR(,K)+ IO.K))*(BR(K.J)+BICK.J> RA.J》=RI,D-P+Q BI(1,])=队0，D-s+P+Q CONTINUE END IF CONTINUE Do110K=N.i.-1 D01oJ P-RR(K.J) )0), 欧K,-灯 P-B[区，JD BI(KJ)-BI(JS(K).J) BIUSK)D=P 110 CONTINUE RETURN 六.到 求解复系数方程组X=日，其中 A=AR十jAI,B=BR+BI 2 3 -21可 AR= 21-2 -2758 915a-2 ,A= 9-3151 -2-15J L-2-27 211 「123 72 27 BR- 3-2 BI- -2 3 93 L3 主程序（文件名：ACJDNO..FOR)为 D0 MENSION AR(4,4),AI(,4),B眼(4,2》BI4,2》,S(4) DOUBLE PRECISION AR.AI.BR.BI DATA AR/1,0.7.0,1.0,-2.0,3.0,2.015.01-2.0 1