unit2.pas

来自「1、说明： 本书中所有的常用数值算法子过程按书中的章数分别放在以C开头」· PAS 代码 · 共 25 行

unit Unit2;

interface
procedure TRIDAG(A, B, C, R:array of real;var U:array of real; N:integer);
implementation
procedure TRIDAG(A, B, C, R:array of real;var U:array of real; N:integer);
var
    GAM:array[0..100] of real;
    J:integer;  BET:real;
begin
    If B[1] = 0 Then Exit;
    BET:=B[1];
    U[1]:=R[1] / BET;
    For J:=2 To N do
    begin
        GAM[J]:=C[J - 1] / BET;
        BET:=B[J] - A[J] * GAM[J];
        If BET = 0 Then Exit;
        U[J]:=(R[J] - A[J] * U[J - 1]) / BET;
    end;
    For J:=N - 1 DownTo 1 do
        U[J]:=U[J] - GAM[J + 1] * U[J + 1];
end;
end.