11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% Version control history
# %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
# %% $Id$
# %% $Log$
# %% Revision 1.15 1999/02/16 21:44:38 peterg
# %% Revised smx generation
# %%
# %% Revision 1.14 1999/02/16 04:38:22 peterg
# %% Now forces creation of _smx file if METHOD=IMPLICIT in simpar.txt
# %%
# %% Revision 1.13 1998/08/31 11:43:37 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.16 1999/03/06 02:18:10 peterg
# %% Changed argument list.
# %%
# %% Revision 1.15 1999/02/16 21:44:38 peterg
# %% Revised smx generation
# %%
# %% Revision 1.14 1999/02/16 04:38:22 peterg
# %% Now forces creation of _smx file if METHOD=IMPLICIT in simpar.txt
# %%
# %% Revision 1.13 1998/08/31 11:43:37 peterg
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
if [ "$representation" = "input" ]; then
name='mttu';
arg='(mttt,mttx,mtty)'
fi
if [ "$representation" = "simpar" ]; then
# Check if implicit method and generate xmx.m if
implicit=`grep -i METHOD $1_simpar.txt | grep -i -c IMPLICIT`
if [ "$implicit" = "1" ]; then
mtt -q $1 smx m
else
echo Creating dummy $1_smx.m
cat<<EOF > $1_smx.m
%% No code as implicit method not used here %%
EOF
fi
fi
# Inform user
echo Creating $1_$2.m
#Create the $2 file complete with headers.
|
|
<
<
>
>
|
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
if [ "$representation" = "input" ]; then
name='mttu';
arg='(mttt,mttx,mtty)'
fi
if [ "$representation" = "simpar" ]; then
# Check if implicit method and generate xmx.m if
implicit=`grep -i METHOD $1_simpar.txt | grep -i -c IMPLICIT`
if [ "$implicit" = "0" ]; then
echo Creating dummy $1_smx.m
cat<<EOF > $1_smx.m
%% No code as implicit method not used here %%
EOF
else
# mtt -q $1 smx m
fi
fi
# Inform user
echo Creating $1_$2.m
#Create the $2 file complete with headers.
|
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
}
{
N=split($1,a,"=");
if (N==2) {
LHS = a[1];
RHS = a[2];
gsub(quote, doublequote, RHS);
sub(/^LAST/, "mttLAST", LHS);
sub(/^DT/, "mttDT", LHS);
sub(/^STEPFACTOR/, "mttSTEPFACTOR", LHS);
sub(/^METHOD/, "mttMETHOD", LHS);
sub(/^WMIN/, "mttWMIN", LHS);
sub(/^WMAX/, "mttWMAX", LHS);
sub(/^WSTEPS/, "mttWSTEPS", LHS);
sub(/^INPUT/, "mttinput", LHS);
LHS = tolower(LHS);
RHS = tolower(RHS);
sub(/["]*euler["]*/, 1, RHS);
sub(/["]*implicit["]*/, 2, RHS);
statement = sprintf("%s= %s",LHS,RHS);
if ( (match(statement,";")==0)&&\
((match(statement,"if ")==0))&&\
|
|
|
|
|
|
|
|
|
|
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
|
}
{
N=split($1,a,"=");
if (N==2) {
LHS = a[1];
RHS = a[2];
gsub(quote, doublequote, RHS);
sub(/^[ ]*LAST/, "mttLAST", LHS);
sub(/^[ ]*DT/, "mttDT", LHS);
sub(/^[ ]*STEPFACTOR/, "mttSTEPFACTOR", LHS);
sub(/^[ ]*METHOD/, "mttMETHOD", LHS);
sub(/^[ ]*WMIN/, "mttWMIN", LHS);
sub(/^[ ]*WMAX/, "mttWMAX", LHS);
sub(/^[ ]*WSTEPS/, "mttWSTEPS", LHS);
sub(/^[ ]*INPUT/, "mttinput", LHS);
LHS = tolower(LHS);
RHS = tolower(RHS);
sub(/["]*euler["]*/, 1, RHS);
sub(/["]*implicit["]*/, 2, RHS);
statement = sprintf("%s= %s",LHS,RHS);
if ( (match(statement,";")==0)&&\
((match(statement,"if ")==0))&&\
|