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.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
|
>
>
>
|
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.57 2000/10/15 10:35:35 peterg
## Fixed _input.p header
##
## 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
|
244
245
246
247
248
249
250
251
252
253
254
255
256
257
|
input)
echo "PROCEDURE $Sys_rep(VAR mttu : InputVector;"
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);"
;;
|
>
>
>
>
>
>
>
|
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
|
input)
echo "PROCEDURE $Sys_rep(VAR mttu : InputVector;"
echo " mttx : StateVector;"
echo " mtty : OutputVector;"
echo " mttt : REAL;"
echo " mttpar : ParameterVector);"
;;
logic)
echo "PROCEDURE $Sys_rep(VAR open : StateVector;"
echo " mttx : StateVector;"
echo " mttu : InputVector;"
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);"
;;
|
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
|
## echo " mttMETHOD : IntegrationMethod;"
echo " open_switches : StateVector;"
echo " numparfile, statefile, simparfile : TEXT;"
echo ""
mtt_txt2declare $Sys sympar 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;"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
esac) > $Filename
cat<<EOF >> $Filename
|
|
|
|
|
|
|
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
|
## echo " mttMETHOD : IntegrationMethod;"
echo " open_switches : StateVector;"
echo " numparfile, statefile, simparfile : TEXT;"
echo ""
mtt_txt2declare $Sys sympar 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;"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
esac) > $Filename
cat<<EOF >> $Filename
|
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
|
}
if (Method=="implicit") {
printf("{%s %s_csex.p}\n",inc,Sys)
printf("{%s %s_cseo.p}\n",inc,Sys)
printf("\n{%s %s_smxa.p}\n",inc,Sys);
printf("\n{%s %s_smxax.p}\n",inc,Sys);
}
printf("{%s %s_switchopen.p}\n\n",inc,Sys)
for (k=1;k<=j;k++) printf("%s\n", comment[k])
printf("\n")
printf("\nBEGIN{%s}\n", Sys_rep)
printf(" open(statefile,\"%s_state.dat\");\n", Sys)
printf(" open(simparfile,\"%s_simpar.dat\");\n", Sys)
printf(" open(numparfile,\"%s_numpar.dat\");\n", Sys)
|
|
|
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
|
}
if (Method=="implicit") {
printf("{%s %s_csex.p}\n",inc,Sys)
printf("{%s %s_cseo.p}\n",inc,Sys)
printf("\n{%s %s_smxa.p}\n",inc,Sys);
printf("\n{%s %s_smxax.p}\n",inc,Sys);
}
printf("{%s %s_logic.p}\n\n",inc,Sys)
for (k=1;k<=j;k++) printf("%s\n", comment[k])
printf("\n")
printf("\nBEGIN{%s}\n", Sys_rep)
printf(" open(statefile,\"%s_state.dat\");\n", Sys)
printf(" open(simparfile,\"%s_simpar.dat\");\n", Sys)
printf(" open(numparfile,\"%s_numpar.dat\");\n", Sys)
|