Overview
Comment: | Added type definition for the SVD procedures |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
c7dffab088e2326f2eaebad882ac048d |
User & Date: | gawthrop@users.sourceforge.net on 1998-08-12 15:21:12 |
Other Links: | branch diff | manifest | tags |
Context
1998-08-12
| ||
15:53:38 | More on concatenating lines - keeps going until ; or $ found. check-in: 87b97b367a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
15:21:12 | Added type definition for the SVD procedures check-in: c7dffab088 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
14:15:13 | Implicit integration - c implemetation now included. check-in: d6b93f19e6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_m2p from [0aca255e89] to [fdd2d8ef52].
︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.12 1998/07/30 11:30:42 peterg ## Included zeros function ## ## Revision 1.11 1998/07/29 14:18:34 peterg ## Reorganised rep dependednt output ## ## Revision 1.10 1998/07/27 20:26:15 peterg | > > > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.13 1998/08/11 09:32:07 peterg ## Added comments at procedure begin and end. ## ## Revision 1.12 1998/07/30 11:30:42 peterg ## Included zeros function ## ## Revision 1.11 1998/07/29 14:18:34 peterg ## Reorganised rep dependednt output ## ## Revision 1.10 1998/07/27 20:26:15 peterg |
︙ | ︙ | |||
99 100 101 102 103 104 105 | echo "PROCEDURE $Sys_rep(VAR mtta : StateMatrix;" echo " mttx : StateVector;" echo " mttu : InputVector);" ;; ode2odes) echo "PROGRAM $Sys_rep;" echo "TYPE" | | | | | > > > > | 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 | echo "PROCEDURE $Sys_rep(VAR mtta : StateMatrix;" echo " mttx : StateVector;" echo " mttu : InputVector);" ;; ode2odes) echo "PROGRAM $Sys_rep;" echo "TYPE" echo " StateVector = ARRAY[1..$Nx] OF REAL;" echo " InputVector = ARRAY[1..$Nu] OF REAL;" echo " OutputVector = ARRAY[1..$Ny] OF REAL;" echo " StateMatrix = ARRAY[1..$Nx,1..$Nx] OF REAL;" echo " glnparray = StateVector;" echo " glmparray = StateVector;" echo " glnpbynp = StateMatrix;" echo " glmpbynp = StateMatrix;" echo " IntegrationMethod = 1..3;" echo "VAR" echo " MTTt,mttLAST,mttDT,mttDDT : REAL;" echo " MTTWMIN,mttWMAX : REAL;" echo " mttx,mttdx : StateVector;" echo " mttu : InputVector;" echo " mtty : OutputVector;" |
︙ | ︙ |