Overview
| Comment: | Changed arguments to _inout for consistency |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
36aa713d93ca5fa8b3a146e81939f02d |
| User & Date: | gawthrop@users.sourceforge.net on 2000-10-14 08:04:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2000-10-14
| ||
| 08:50:07 | Use new mtt_header check-in: 0e31cd627c user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 08:04:40 | Changed arguments to _inout for consistency check-in: 36aa713d93 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 07:58:56 | Put in leading spaces to prettify code check-in: 36b44e894f user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/make_ode2odes from [8e1bc6b73a] to [6ea960f185].
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.37 2000/08/01 12:25:06 peterg
## Now includes euler
##
## Revision 1.36 2000/05/19 17:48:16 peterg
## Argument to state
##
## Revision 1.35 2000/05/18 18:59:40 peterg
| > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.38 2000/10/11 09:08:08 peterg
## cse --> csex
##
## Revision 1.37 2000/08/01 12:25:06 peterg
## Now includes euler
##
## Revision 1.36 2000/05/19 17:48:16 peterg
## Argument to state
##
## Revision 1.35 2000/05/18 18:59:40 peterg
|
| ︙ | ︙ | |||
183 184 185 186 187 188 189 |
## [u] = zero_input($Nu); # Zero the input
for MTTi=1:$Nu
u(MTTi) = 0;
endfor;
mttj = 0;
for it = 1:ilast #Integration loop
| | | | 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 |
## [u] = zero_input($Nu); # Zero the input
for MTTi=1:$Nu
u(MTTi) = 0;
endfor;
mttj = 0;
for it = 1:ilast #Integration loop
[y] = $1_$odeo(x,u,t,par); # Output
[u] = $1_input(x,y,t,par); # Input
if mttj==0
mtt_write(t,x,y,$Nx,$Ny); # Write it out
endif
[dx] = $1_$ode(x,u,t,par); # State derivative
EOF
if [ "$method" = "implicit" ]; then
|
| ︙ | ︙ |