Overview
Comment:*** empty log message ***
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: b9e3c0ebd6a2c3334b292799225355f10c91750d98ea2d33dbd68f9288e053c1
User & Date: gawthrop@users.sourceforge.net on 2000-12-04 10:59:40
Other Links: branch diff | manifest | tags
Context
2000-12-04
12:19:12
Changed $() to `` and $() to expr for sh compatibility -- geraint check-in: 13b715d5b4 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:59:40
*** empty log message *** check-in: b9e3c0ebd6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
08:52:40
Zapped () in functions for sh compatibility check-in: daf52efc94 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/make_ode2odes from [0075b8f053] to [7cda0137f2]. 

1
2
3
4
5
6
7
8
9
10
11



12
13
14
15
16
17
18

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21












+
+
+








#! /bin/sh

     ###################################### 
     ##### Model Transformation Tools #####
    ######################################

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.42  2000/11/10 14:19:50  peterg
## Corrected the csex and cseo functions
##
## Revision 1.41  2000/11/09 17:06:39  peterg
## Now does euler for cc
##
## Revision 1.40  2000/10/17 09:55:00  peterg
## Replaced switchopen by logic
##
## Revision 1.39  2000/10/14 08:04:40  peterg
︙
186
187
188
189
190
191
192
193
194


195
196
197
198
199
200

201
202
203
204
205
206
207

189
190
191
192
193
194
195


196
197
198
199
200
201

202
203
204
205
206
207
208
209
210








-
-
+
+




-

+








  ## Initialise
  t = 0.0;
  ddt = simpar.dt/simpar.stepfactor;
  ilast = round(simpar.last/ddt)+1; # Total number of steps

## Following removed due to p2c bug
##  [u]  = zero_input($Nu);		# Zero the input
  for MTTi=1:$Nu
    u(MTTi) = 0;
  for MTTi=1:$Ny
    y(MTTi) = 0;
  endfor;

  mttj = 0;
    for it = 1:ilast		#Integration loop
    [y] = ${sys}_$odeo(x,u,t,par);  # Output 
    [u] = ${sys}_input(x,y,t,par);	# Input
    [y] = ${sys}_$odeo(x,u,t,par);  # Output 
    if mttj==0
     mtt_write(t,x,y,$Nx,$Ny);   # Write it out
    endif
    [dx] = ${sys}_$ode(x,u,t,par);	# State derivative
EOF

if [ "$method" = "implicit" ]; then
︙

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