© 1999-2048 dssz.net 粤ICP备11031372号
[其它] Delphi常用数值算法源代码
说明: Delphi常用数值算法源代码 procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real); var I,J:integer; SUM:real; begin For I:=1 To N do begin Sum:=B[I]; For J:=1 To I - 1 do Sum:=Sum - A[I, J] * B[J]; B[I]: =Sum; end; For I:=N DownTo 1 do begi<onlyou13> 上传 | 大小:1mb