Overview
Comment:Initial revision
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: f8fd113135044a82e643f0909ec355030c5170c78535e13af759e828deb0eb07
User & Date: gawthrop@users.sourceforge.net on 1999-02-16 21:55:45
Other Links: branch diff | manifest | tags
Context
1999-02-16
21:56:52
Now gets standard include files directly from source, check-in: f94c3897cd user: gawthrop@users.sourceforge.net tags: origin/master, trunk
21:55:45
Initial revision check-in: f8fd113135 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
21:44:38
Revised smx generation check-in: 0d694c4f97 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Added mttroot/mtt/bin/trans/p/mtt_implicit.p version [61c5d96355].







































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PROCEDURE mtt_implicit(VAR xnew,x,dx : StateVector;
		       VAR AA	     : StateMatrix;
		       VAR AAx	     : StateVector;
			   dt	     : REAL;
			   Nx	     : INTEGER);

VAR
   i : INTEGER;
   BB  : StateVector;

(*$I $MTTPATH/trans/p/mtt_ludcmp.p *)
(*$I $MTTPATH/trans/p/mtt_lubksb.p *)
(*$I $MTTPATH/trans/p/mtt_solve_lud.p *)

BEGIN{mtt_implicit}
   FOR i := 1 TO  Nx DO {BB is (1-A*dt)*x +dx*dt}
      BB[i] := AAx[i] + dt*dx[i];
   mtt_solve_lud(xnew,AA,BB,Nx); {Solve AAx=BB}
END;{mtt_implicit}			  


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]