Overview
Comment:Now does cse version -- but not needed now exept for Euler integration
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: e414853868559e102efced91c9f9d8fbdd772239c1c08cb608ae09f5981afad5
User & Date: gawthrop@users.sourceforge.net on 1999-10-27 07:38:30
Other Links: branch diff | manifest | tags
Context
1999-10-28
05:08:48
Added elseif check-in: 80e1d032bc user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1999-10-27
07:38:30
Now does cse version -- but not needed now exept for Euler integration check-in: e414853868 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
01:47:36
Removed the mtt_solve include directive check-in: 02a0439217 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/mtt_r2m from [a2fa014777] to [133da0004f].

12
13
14
15
16
17
18



19
20
21
22
23
24
25
# Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996, 1998

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$



## Revision 1.8  1999/07/26 06:07:19  peterg
## Reinstated removal of the odeo.p file
##
## Revision 1.7  1999/03/16 00:38:06  peterg
## Done some more tidying up
##
## Revision 1.6  1999/03/15 07:29:25  peterg







>
>
>







12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
# Copyright (c) P.J.Gawthrop 1991, 1994, 1995, 1996, 1998

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.9  1999/10/26 23:47:58  peterg
## Now does cse.m file
##
## Revision 1.8  1999/07/26 06:07:19  peterg
## Reinstated removal of the odeo.p file
##
## Revision 1.7  1999/03/16 00:38:06  peterg
## Done some more tidying up
##
## Revision 1.6  1999/03/15 07:29:25  peterg
164
165
166
167
168
169
170

171



172
173
174
175
176
177
178
179
180
181
182

183
184
185
186
187
188
189

END;;

EOF

  fi


touch mtt_odee



sed 's/mtt_matrix/mttdx/' <mtt_ode  >> $1_$2.p
sed 's/mtt_matrix/mtte/'  <mtt_odee >> $1_$2.p
sed 's/mtt_matrix/mtty/'  <mtt_odeo >> $1_$2o.p

if [ "$rep" = "cse" ]; then
cat <<EOF >>$1_$2.p

   ## Solve E dx = dxe;;
   mtt_solve(mttdx,mttE,mttdx,$Nx);; 
EOF
fi

rm -f mtt_odeo mtt_ode mtt_odee

# Convert from Pascal syntax to Octave syntax 
 mtt_p2m<$1_$2o.p > $1_$2o.m 

 rm -f    $1_odeo.p
fi







>

>
>
>






<




>







167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184

185
186
187
188
189
190
191
192
193
194
195
196

END;;

EOF

  fi

if [ "$rep" = "cse" ]; then
touch mtt_odee
  touch mtt_odee
fi

sed 's/mtt_matrix/mttdx/' <mtt_ode  >> $1_$2.p
sed 's/mtt_matrix/mtte/'  <mtt_odee >> $1_$2.p
sed 's/mtt_matrix/mtty/'  <mtt_odeo >> $1_$2o.p

if [ "$rep" = "cse" ]; then
cat <<EOF >>$1_$2.p

   ## Solve E dx = dxe;;
   mtt_solve(mttdx,mttE,mttdx,$Nx);; 
EOF
fi

rm -f mtt_odeo mtt_ode mtt_odee

# Convert from Pascal syntax to Octave syntax 
 mtt_p2m<$1_$2o.p > $1_$2o.m 

 rm -f    $1_odeo.p
fi


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]