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.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
## Revises smx generation.
##
## Revision 1.25 1999/02/16 04:38:09 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.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
## Revises smx generation.
##
## Revision 1.25 1999/02/16 04:38:09 peterg
|
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
# Heading
(case $rep in
state)
echo "PROCEDURE $Sys_rep(VAR mttx : StateVector);"
;;
input)
echo "PROCEDURE $Sys_rep(VAR mttu : InputVector;"
echo " mttx : StateVector;"
echo " mttt : REAL);"
;;
ode)
echo "PROCEDURE $Sys_rep(VAR mttdx: StateVector;"
echo " mttx : StateVector;"
echo " mttu : InputVector;"
echo " mttt : REAL);"
;;
|
>
|
|
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
# Heading
(case $rep in
state)
echo "PROCEDURE $Sys_rep(VAR mttx : StateVector);"
;;
input)
echo "PROCEDURE $Sys_rep(VAR mttu : InputVector;"
echo " mttt : REAL;"
echo " mttx : StateVector;"
echo " mtty : OutputVector);"
;;
ode)
echo "PROCEDURE $Sys_rep(VAR mttdx: StateVector;"
echo " mttx : StateVector;"
echo " mttu : InputVector;"
echo " mttt : REAL);"
;;
|
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
echo " MTTWMIN,mttWMAX : REAL;"
echo " mttx,mttdx,mttxx,mttAAx : StateVector;"
echo " mttu : InputVector;"
echo " mtty : OutputVector;"
echo " mttAA : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast,mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
echo " mttMETHOD : IntegrationMethod;"
echo ""
;;
switch)
echo "PROCEDURE $Sys_rep(VAR mttx : StateVector);"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
switcha)
echo "PROCEDURE $Sys_rep(VAR mttAA : StateMatrix;"
echo " mttx : StateVector);"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
*) echo "PROCEDURE $Sys_rep;"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
|
>
|
|
<
|
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
|
echo " MTTWMIN,mttWMAX : REAL;"
echo " mttx,mttdx,mttxx,mttAAx : StateVector;"
echo " mttu : InputVector;"
echo " mtty : OutputVector;"
echo " mttAA : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast,mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
echo " mttMETHOD : IntegrationMethod;"
echo " MTTopen : StateVector;"
echo ""
;;
switch)
echo "PROCEDURE $Sys_rep(VAR mttx : StateVector);"
echo "VAR"
echo " MTTi,MTTj : INTEGER;"
;;
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;"
;;
|
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
|
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_switch.p}\n\n",inc,Sys)
printf("{%s %s_switcha.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)
}
else{
|
|
|
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
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_switch.p}\n\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)
}
else{
|