SQLITE_NOTICE(283): recovered 5 frames from WAL file /data/mtt.fossil-wal
Differences From Artifact [5a83c53fd8]:
- Executable file mttroot/mtt/bin/trans/p/mtt_solve_lud.p — part of check-in [fa65177b54] at 1999-10-26 23:37:20 on branch origin/master — Put include files here. (user: gawthrop@users.sourceforge.net, size: 1237) [annotate] [blame] [check-ins using]
To Artifact [ec0698602b]:
- Executable file mtt/bin/trans/p/mtt_solve_lud.p — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 1315) [annotate] [blame] [check-ins using] [more...]
- Executable file mttroot/mtt/bin/trans/p/mtt_solve_lud.p — part of check-in [de96e54ef3] at 2000-08-01 09:30:16 on branch origin/master — Moved include files (user: gawthrop@users.sourceforge.net, size: 1315) [annotate] [blame] [check-ins using]
1 2 3 4 5 | PROCEDURE mtt_solve_lud(VAR x : StateVector; A : StateMatrix; B : StateVector; n : integer); | < < < > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
PROCEDURE mtt_solve_lud(VAR x : StateVector;
A : StateMatrix;
B : StateVector;
n : integer);
{
Linear equation solution via LU factorisation
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% % $Id$
% % $Log$
% % Revision 1.3 1999/10/26 23:37:20 peterg
% % Put include files here.
% %
% % Revision 1.2 1998/08/17 15:56:10 peterg
% % Uses LU decomposition - much faster than SVD when N>100
% %
% % Revision 1.1 1998/08/17 12:52:16 peterg
% % Initial revision
% %
% % Revision 1.1 1998/08/17 12:41:37 peterg
|
| ︙ | ︙ | |||
33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
}
VAR
i : integer;
d : real;
Index : StateVector;
BEGIN{mtt_solve_lud}
(* decompose matrix A using LU decomposition *)
mtt_ludcmp(A,n,Index,d);
(* backsubstitute for B *)
mtt_lubksb(A,n,Index,B);
| > > > | 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
}
VAR
i : integer;
d : real;
Index : StateVector;
(*$I $MTTPATH/trans/p/mtt_ludcmp.p *)
(*$I $MTTPATH/trans/p/mtt_lubksb.p *)
BEGIN{mtt_solve_lud}
(* decompose matrix A using LU decomposition *)
mtt_ludcmp(A,n,Index,d);
(* backsubstitute for B *)
mtt_lubksb(A,n,Index,B);
|
| ︙ | ︙ |