?? mprove.txt
字號:
procedure MPROVE(A,ALUD:matrx2; N:integer;
INDX:array of real; B:array of real;var X:array of real);
var
R:array [0..100] of real;
I,J:integer;
SDP:real;
begin
For I:=1 To N do
begin
SDP:=-B[I];
For J:=1 To N do
SDP:=SDP + A[I, J] * X[J];
R[I]:=SDP;
end;
LUBKSB(ALUD, N, INDX, R);
For I:=1 To N do
X[I]:=X[I] - R[I];
end;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -