Overview
Comment:Added type definition for the SVD procedures
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: c7dffab088e2326f2eaebad882ac048d6f9fd6ef38017a1c42e388dd35a6c514
User & Date: gawthrop@users.sourceforge.net on 1998-08-12 15:21:12.000
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
Unified Diff Ignore Whitespace Patch
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
106
107
108
109




110
111
112
113
114
115
116

	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 "    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;"








|
|
|
|
>
>
>
>








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;"
︙︙
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]