Overview
| Comment: | Input only changed one per print interval No effect if stepfactor=1 Fixes bug when _input.m is compiled using -stdin option and stepfactor>1 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
b473da72486525b9fe79a7c2d282bde7 |
| User & Date: | gawthrop@users.sourceforge.net on 2003-06-25 12:46:06 |
| Other Links: | branch diff | manifest | tags |
Context
|
2003-06-26
| ||
| 07:52:24 |
Added e_e to argout Tidy check-in: 9735dda4eb user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
2003-06-25
| ||
| 12:46:06 |
Input only changed one per print interval No effect if stepfactor=1 Fixes bug when _input.m is compiled using -stdin option and stepfactor>1 check-in: b473da7248 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
2003-06-23
| ||
| 21:56:07 | Added units as a dependency. check-in: c669643bf6 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/make_ode2odes from [2efe87b571] to [f5ac5ee2db].
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.83 2002/08/07 14:27:14 geraint
## Changes to make "-i dassl" work again.
##
## Revision 1.82 2002/07/24 14:00:12 geraint
## Corrected arguments passed to mtt_write when dumping data (sigint).
##
## Revision 1.81 2002/07/11 13:00:23 geraint
| > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
#! /bin/sh
######################################
##### Model Transformation Tools #####
######################################
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.84 2003/04/17 20:57:29 geraint
## Added -sort option to allow direct generation of ode2odes.m using sese.m
## instead of ode/csex.
##
## "mtt -sort rc odeso view" works without Reduce installed!!!
##
## Revision 1.83 2002/08/07 14:27:14 geraint
## Changes to make "-i dassl" work again.
##
## Revision 1.82 2002/07/24 14:00:12 geraint
## Corrected arguments passed to mtt_write when dumping data (sigint).
##
## Revision 1.81 2002/07/11 13:00:23 geraint
|
| ︙ | ︙ | |||
398 399 400 401 402 403 404 |
## [u] = zero_input($Nu); # Zero the input
for MTTi=1:$Ny
y(MTTi) = 0;
endfor;
mttj = 0;
for it = 1:ilast #Integration loop
| > > > > | > | | < > < | | 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 |
## [u] = zero_input($Nu); # Zero the input
for MTTi=1:$Ny
y(MTTi) = 0;
endfor;
mttj = 0;
for it = 1:ilast #Integration loop
EOF
cat <<EOF >> $filename
if mttj==0
[u] = ${sys}_input(x,y,t,par); # Input
EOF
if [ "$method" = "sorted_euler" ]; then
cat <<EOF >> $filename
[dx,y] = ${sys}_sese(x,u,t,par); # Output
EOF
else
cat <<EOF >> $filename
[y] = ${sys}_$odeo(x,u,t,par); # Output
EOF
fi
cat <<EOF >> $filename
mtt_write(t,x,y,$Nx,$Ny,simpar.first); # Write it out
endif
EOF
if [ "$method" = "rk4" ]; then
cat << EOF >> $filename
[k1] = ddt * ${sys}_${ode}(x,u,t,par);
[k2] = ddt * ${sys}_${ode}(x+k1/2,u,t+ddt/2,par);
|
| ︙ | ︙ |