11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.3 2000/05/11 16:09:24 peterg
# %% Put in simpar.first parameter
# %%
# %% Revision 1.2 2000/05/11 12:16:46 peterg
# %% New version of simpar - with record
# %%
# %% Revision 1.1 2000/05/11 10:55:57 peterg
|
>
>
>
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.4 2000/05/18 12:05:42 peterg
# %% Replaced sympar by sympars in numpar rep
# %%
# %% Revision 1.3 2000/05/11 16:09:24 peterg
# %% Put in simpar.first parameter
# %%
# %% Revision 1.2 2000/05/11 12:16:46 peterg
# %% New version of simpar - with record
# %%
# %% Revision 1.1 2000/05/11 10:55:57 peterg
|
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#Create the $2 file complete with headers.
case $representation in
simpar)
lang_header -noglobals $1 simpar m '' mttsimpar > $1_simpar.m
;;
numpar)
lang_header $1 numpar m '' MTTpar > $1_numpar.m
;;
*)
echo "function $name = $1_$2$arg" > $1_$2.m
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
|
|
>
>
|
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
#Create the $2 file complete with headers.
case $representation in
simpar)
lang_header -noglobals $1 simpar m '' mttsimpar > $1_simpar.m
;;
numpar)
lang_header $1 numpar m '' MTTpar > $1_numpar.m;
echo "## Set parameters to zero" >> $1_numpar.m;
sympar2par_txt2m $1 zero >> $1_numpar.m;
;;
*)
echo "function $name = $1_$2$arg" > $1_$2.m
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
|
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
-e 's/u(/mttu(/g' \
-e 's/mttmtt/mtt/g' \
-e 's/#/%/g' \
>> $1_$2.m
if [ "$2" = "numpar" ]; then
awk '{
printf(" MTTpar(%i) \t= %s;\n",++i, tolower($1));
}'< $1_sympars.txt >>$1_numpar.m
|
<
<
|
>
|
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
-e 's/u(/mttu(/g' \
-e 's/mttmtt/mtt/g' \
-e 's/#/%/g' \
>> $1_$2.m
if [ "$2" = "numpar" ]; then
echo "## Set up the parameter vector" >> $1_numpar.m;
sympar2par_txt2m $1 set >> $1_numpar.m;
fi
|