Overview
| Comment: | Start time at DT - the result at time zero is computed outside the loop |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
aa3caa35d4b5e600bbde0c9e1b5ffd77 |
| User & Date: | gawthrop@users.sourceforge.net on 1998-05-14 08:20:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
1998-05-14
| ||
| 08:25:52 | Corrected time skew. check-in: a2f2177bdb user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 08:20:29 |
Start time at DT - the result at time zero is computed outside the loop check-in: aa3caa35d4 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 08:14:28 | Now reads in data from the simpar file. check-in: 31f05bb19d user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/ode2odes_r2c from [3461562ea3] to [3256eab57b].
| ︙ | ︙ | |||
16 17 18 19 20 21 22 23 24 25 26 27 28 29 | # Copyright (c) P.J.Gawthrop 1997. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.13 1998/02/24 13:34:45 peterg ## Back under RCS ## # Revision 1.12 1997/05/15 08:39:56 peterg # Don't initialise states - now done in numpar file. # # Revision 1.11 1997/05/12 16:00:54 peterg | > > > | 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | # Copyright (c) P.J.Gawthrop 1997. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.14 1998/05/13 08:57:27 peterg ## Now uses simpar.h in place of odes.h ## ## Revision 1.13 1998/02/24 13:34:45 peterg ## Back under RCS ## # Revision 1.12 1997/05/15 08:39:56 peterg # Don't initialise states - now done in numpar file. # # Revision 1.11 1997/05/12 16:00:54 peterg |
| ︙ | ︙ | |||
162 163 164 165 166 167 168 | %Set up initial state write "/* Set up initial state */"$ write " $1_state();"$ %Initialise main (Euler) integration loop write "/* Initialise main (Euler) integration loop */"$ | | | 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 | %Set up initial state write "/* Set up initial state */"$ write " $1_state();"$ %Initialise main (Euler) integration loop write "/* Initialise main (Euler) integration loop */"$ write " time = DT;"$ write " dt = DT/STEPFACTOR;"$ %% write " for (i=1; i<=MTTNX; i++)"$ %% write " x[i] = 0.0;"$ %Set up system inputs write "/* Set up system inputs */"$ write " for (i=1; i<=", MTTNu, "; i++)"$ |
| ︙ | ︙ |