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
|
+
+
+
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.8 2000/09/30 13:53:07 peterg
# %% Default to empty matix in numpar.m -- avoids probs for parameter-free systems
# %%
# %% Revision 1.7 2000/05/19 17:46:17 peterg
# %% Give argument to state
# %%
# %% Revision 1.6 2000/05/19 14:59:03 peterg
# %% MTT --> mtt in fun output
# %%
# %% Revision 1.5 2000/05/19 14:05:10 peterg
|
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
+
|
echo "%% $2 file ($1_$2.m)" >> $1_$2.m
echo "%% Generated by MTT at `date`" >> $1_$2.m
echo "% Global variable list" >> $1_$2.m
sympar2global_txt2m $1 >> $1_$2.m
;;
esac
if [ "$representation" = "simpar" ]; then
#Write out the variables in m format.
cat $1_$2.txt | grep -v METHOD |\
awk -F# 'BEGIN{
quote = "\047";
doublequote = "\042";
}
{
|
188
189
190
191
192
193
194
195
196
197
198
199
200
|
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
|
+
+
+
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
-e 's/\([^a-zA-Z_]\)t\([^a-zA-Z_]\)/\1mttt\2/g' \
-e 's/x(/mttx(/g' \
-e 's/u(/mttu(/g' \
-e 's/mttmtt/mtt/g' \
-e 's/#/%/g' \
>> $1_$2.m
exit
fi
if [ "$2" = "numpar" ]; then
echo "## Set up the parameter vector" >> $1_numpar.m;
echo "mttpar = []; # Default to empty matrix (Remove in mtt_m2p)" >> $1_numpar.m;
sympar2par_txt2m $1 set >> $1_numpar.m;
#if [ "$2" = "numpar" ]; then
# echo "## Set up the parameter vector" >> $1_numpar.m;
# echo "mttpar = []; # Default to empty matrix (Remove in mtt_m2p)" >> $1_numpar.m;
# sympar2par_txt2m $1 set >> $1_numpar.m;
#fi
case $2 in
numpar)
name=mttpar
;;
state)
name=mttx
;;
input)
name=mttu
;;
*)
esac
new_style=`strip_comments < $1_$2.txt| grep "$name(">/dev/null; echo $?`
if [ "$new_style" = "1" ]; then
echo "## Set up the $name vector" >> $1_$2.m;
echo "name = []; # Default to empty matrix (Remove in mtt_m2p)" >> $1_$2.m;
mtt_name2array $1 $2 set >> $1_$2.m
else
echo "Old-style file detected: not creating array translations"
fi
|