20,1.0,30.11.0,13.0,-Z.0一1.0,5.0/ DATA A1/3.0.-20,40,-2.0,-20,7.0,-30.-2,0, 150,150,.0,60&0104.01 DATA BR/2.0,7.0,3.0,a0,L.0,0.-20,3 DATA BI/1.0,20,-203020,010,9.0 CALL ACIDN(AR.AL4.BR.BI.2.L.IS) RITEL,w》 Pa.NE.0)T把N D05J-12 WRITE( WRITE(+.I0)(LD.I-1.0 WRTE( CONTINUE END IF 10 FORMAT(IX.4D146) 运行结果为 wn一场一018e .6782330-01-.162341D+0 .593524D叶00 -,85ǒ1D-01 ,8085D+o0 .593462D+00 ,82707D十00 一.4976300+0 .303802D+00 .153525D+04 1.5三对角线方程组的自赶法 一、功能 用避赶祛求解三对角线方程组AX=D,其中 「aiaz A- 4.-1 X=(z1…1z,D=(d,4…,d,) 二，方法说明 追赶法本质上0没有决主元的高听清去法，只是在计算过程中考虑到了三对角线矩 阵的符点，对于绝大薄分的零元素不再作处理。其计算步骤为， (1)对于如1,2，“-1作 化及消元处理。即 ean/a→e+1,dJau中d, 15