11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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.56 2000/10/14 09:14:24 peterg
## *** empty log message ***
##
## Revision 1.55 2000/10/11 09:06:17 peterg
## New csex rep (uses scope optimisation)
##
## Revision 1.54 2000/09/30 14:10:06 peterg
## Zap lines containing "Remove in mtt_m2p"
##
## Revision 1.53 2000/08/24 17:10:59 peterg
|
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
|
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
|
-
-
-
+
+
+
+
|
echo "PROCEDURE $Sys_rep(VAR mttpar : ParameterVector);"
;;
simpar)
echo "PROCEDURE $Sys_rep(VAR mttsimpar : SimulationParameters);"
;;
input)
echo "PROCEDURE $Sys_rep(VAR mttu : InputVector;"
echo " mttt : REAL;"
echo " mttx : StateVector;"
echo " mtty : OutputVector);"
echo " mttx : StateVector;"
echo " mtty : OutputVector;"
echo " mttt : REAL;"
echo " mttpar : ParameterVector);"
;;
ode)
echo "PROCEDURE $Sys_rep(VAR mttdx: StateVector;"
echo " mttx : StateVector;"
echo " mttu : InputVector;"
echo " mttt : REAL;"
echo " mttpar : ParameterVector);"
|
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
|
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
|
+
-
+
|
echo " AA,mtte : StateMatrix;"
echo " MTTi,MTTj,it,iLast: INTEGER;"
##echo " mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
## echo " mttMETHOD : IntegrationMethod;"
echo " open_switches : StateVector;"
echo " numparfile, statefile, simparfile : TEXT;"
echo ""
mtt_txt2declare $Sys sympar p
sympar_txt2declare $Sys p
mtt_txt2declare $Sys struc p
;;
switchopen)
echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
*) echo "PROCEDURE $Sys_rep;"
|
464
465
466
467
468
469
470
471
472
473
474
475
476
477
|
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
|
+
|
printf("VAR \n");
for (k=1;k<i;k++) printf(" %s,\n",global[k])
printf("%s : REAL;\n", global[i])
printvar("x",Nx);
printvar("u",Nu);
printvar("y",Ny);
printvar("_tmp",N_tmp);
printvar("_s",N_tmp);
printf("VAR mtt_i, mtt_j : INTEGER;\n");
#if ( (rep=="smxa")||(rep=="smxax") ) {
# printvar("_t",Nt);
#}
printf("\nBEGIN{%s}\n", Sys_rep)
if (rep=="smxa"){
printf("FOR mtt_i:= 1 to %i DO\n\tFOR mtt_j:= 1 to %i DO\n\tmtta[mtt_i,mtt_j] := 0;\n", Nx,Nx);
|