8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
+
+
+
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.3 2000/10/11 08:59:15 peterg
## Added csex rep
##
## Revision 1.2 2000/10/11 08:01:42 peterg
## Added noglobal fudge
##
## Revision 1.1 2000/10/10 21:02:27 peterg
## Initial revision
##
###############################################################
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
+
+
+
+
+
+
+
+
+
+
+
|
Npar=`wc -l $system\_sympar.txt | awk '{print $1}'`
# Representation-specific stuff
case $rep in
cse)
states=yes;
inputs=yes;
parameters=yes;
;;
csex)
states=yes;
inputs=yes;
parameters=yes;
;;
cseo)
states=yes;
inputs=yes;
parameters=yes;
;;
ode)
states=yes;
inputs=yes;
parameters=yes;
;;
numpar)
states=no;
inputs=no;
parameters=no;
;;
odeo)
states=yes;
inputs=yes;
parameters=yes;
;;
sm)
states=no;
inputs=no;
parameters=yes;
;;
*)
esac
# Lanuage specific stuff
case $language in
m)
|
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
+
-
+
|
## Horrible fudge to make mtt_m2p work
global ...
mtt_no_globals ;
EOF
fi
# Parameters
if [ "$parameters" = "yes" ]; then
cat <<EOF
$Lc Parameters
EOF
sympar2par_txt2m $1
fi
# States
if [ "$states" = "yes" ]; then
cat <<EOF
$Lc States
EOF
N=`n2m 1 $Nx`
|