Overview
| Comment: | Removed calls to _switch.m |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ca97b27284de3d9584746defb86c0235 |
| User & Date: | gawthrop@users.sourceforge.net on 1999-04-20 06:16:46 |
| Other Links: | branch diff | manifest | tags |
Context
|
1999-04-20
| ||
| 06:17:15 | Fudge to avoid a bizzare bug (?) in p2c which corrupts "zero_matrix" check-in: 9c178547d3 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 06:16:46 | Removed calls to _switch.m check-in: ca97b27284 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 06:16:07 |
Removed initialisation of AA and AAx Remove _switch calls -- uses _switchopen exclusively check-in: aa71639d76 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_m2p from [e89332e133] to [0a6a616a87].
| ︙ | ︙ | |||
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.28 1999/02/17 02:59:54 peterg ## Added -q switch to mtt ## ## Revision 1.27 1999/02/16 21:56:52 peterg ## Now gets standard include files directly from source, ## ## Revision 1.26 1999/02/16 21:43:54 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.29 1999/04/02 06:27:55 peterg ## Modified for new implicit method with swoitches ## ## Revision 1.28 1999/02/17 02:59:54 peterg ## Added -q switch to mtt ## ## Revision 1.27 1999/02/16 21:56:52 peterg ## Now gets standard include files directly from source, ## ## Revision 1.26 1999/02/16 21:43:54 peterg |
| ︙ | ︙ | |||
178 179 180 181 182 183 184 |
echo " mtty : OutputVector;"
echo " mttAA : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast,mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
echo " mttMETHOD : IntegrationMethod;"
echo " MTTopen : StateVector;"
echo ""
;;
| < < < < < | 181 182 183 184 185 186 187 188 189 190 191 192 193 194 |
echo " mtty : OutputVector;"
echo " mttAA : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast,mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
echo " mttMETHOD : IntegrationMethod;"
echo " MTTopen : StateVector;"
echo ""
;;
switchopen)
echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
*) echo "PROCEDURE $Sys_rep;"
echo "VAR"
|
| ︙ | ︙ | |||
282 283 284 285 286 287 288 |
printf("{%s $MTTPATH/trans/p/zero_vector.p}\n",inc)
printf("{%s %s_simpar.p}\n",inc,Sys)
printf("{%s %s_numpar.p}\n",inc,Sys)
printf("{%s %s_state.p}\n",inc,Sys)
printf("{%s %s_input.p}\n",inc,Sys)
printf("{%s %s_ode.p}\n",inc,Sys)
printf("{%s %s_odeo.p}\n",inc,Sys)
| < | 280 281 282 283 284 285 286 287 288 289 290 291 292 293 |
printf("{%s $MTTPATH/trans/p/zero_vector.p}\n",inc)
printf("{%s %s_simpar.p}\n",inc,Sys)
printf("{%s %s_numpar.p}\n",inc,Sys)
printf("{%s %s_state.p}\n",inc,Sys)
printf("{%s %s_input.p}\n",inc,Sys)
printf("{%s %s_ode.p}\n",inc,Sys)
printf("{%s %s_odeo.p}\n",inc,Sys)
printf("{%s %s_switchopen.p}\n\n",inc,Sys)
printf("\n{%s %s_smx.p}\n",inc,Sys)
for (k=1;k<=j;k++) printf("%s\n", comment[k])
printf("\n")
printf("\nBEGIN{%s}\n", Sys_rep)
}
|
| ︙ | ︙ |