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.33 1999/09/17 04:25:01 peterg
## END --> END; in translation
##
## Revision 1.32 1999/08/29 06:54:42 peterg
## Added code (mtt_parameters, get args etc) to allow arguments to the
## a.out file
##
## Revision 1.31 1999/08/02 13:40:03 peterg
## Added zero-state and zero_input to include list
## Removed zero_matrix
|
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
|
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
-
+
|
echo ""
echo "VAR"
echo " MTTt,mttLAST,mttDT,mttDDT : REAL;"
echo " MTTWMIN,mttWMAX : REAL;"
echo " mttx,mttdx,mttxx,mttAAx : StateVector;"
echo " mttu : InputVector;"
echo " mtty : OutputVector;"
echo " mttAA : StateMatrix;"
echo " mttAA, mttE : StateMatrix;"
echo " MTTi,MTTj,MTTit,MTTjt,MTTiLast: INTEGER;"
echo " mttSTEPFACTOR,mttWSTEPS,mttSTEPS,mttINPUT : INTEGER;"
echo " mttMETHOD : IntegrationMethod;"
echo " MTTopen : StateVector;"
echo " mtt_parameters : ARRAY[1..MTT_MaxParameters] OF REAL;"
echo " mtt_n_parameters : INTEGER;"
echo ""
|
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
|
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
|
-
-
-
+
+
+
+
|
else
{
if (doing_header==1){
if (rep=="ode2odes"){
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("x",Nx);
# printvar("u",Nu);
# printvar("y",Ny);
printvar("_t",Nt);
printf("\n{%s $MTTPATH/trans/p/mtt_write.p}\n",inc)
printf("{%s $MTTPATH/trans/p/sign.p}\n",inc)
printf("{%s $MTTPATH/trans/p/mtt_euler.p}\n",inc)
printf("{%s $MTTPATH/trans/p/mtt_solve.p}\n",inc)
printf("{%s $MTTPATH/trans/p/mtt_implicit.p}\n",inc)
# printf("{%s $MTTPATH/trans/p/zero_matrix.p}\n",inc)
printf("{%s $MTTPATH/trans/p/zero_input.p}\n",inc)
printf("{%s $MTTPATH/trans/p/zero_state.p}\n",inc)
printf("{%s $MTTPATH/trans/p/mtt_getargs.p}\n",inc)
printf("{%s %s_simpar.p}\n",inc,Sys)
printf("{%s %s_numpar.p}\n",inc,Sys)
|
335
336
337
338
339
340
341
342
343
344
345
346
347
348
|
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
|
+
|
sub(/=/,":=",$0)
printf("%s DO BEGIN\n", $0)
}
else{
sub(/=/,":=",$0)
sub(/endif/,"END;{IF}",$0)
sub(/endfor/,"END;{FOR}",$0)
sub(/elseif/,"END ELSEIF BEGIN",$0)
sub(/else/,"END ELSE BEGIN",$0)
gsub(/\^/,"**",$0)
gsub(/&&/," AND ",$0)
gsub(/\|\|/," OR ",$0)
printf("%s\n",$0)
}
}
|