Overview
Comment:cse --> csex
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 5f75209ddf42de12800f802595861d31fc02bb862e6eda57f6ad38da07f4dc6a
User & Date: gawthrop@users.sourceforge.net on 2000-10-11 09:08:08.000
Other Links: branch diff | manifest | tags
Context
2000-10-11
09:08:20
Initial revision check-in: c3b2147ee1 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:08:08
cse --> csex check-in: 5f75209ddf user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:07:53
Vectorisation
csex rep. check-in: 42c317bf42 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified mttroot/mtt/bin/trans/make_ode2odes from [be1e48d6ab] to [8e1bc6b73a]. 
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.37  2000/08/01 12:25:06  peterg
## Now includes euler
##
## Revision 1.36  2000/05/19 17:48:16  peterg
## Argument to state
##
## Revision 1.35  2000/05/18 18:59:40  peterg
## Removed the First time stuff
##
## Revision 1.34  2000/05/16 18:56:14  peterg
︙
134
135
136
137
138
139
140
141

142
143
144
145
146
147
148

137
138
139
140
141
142
143

144
145
146
147
148
149
150
151








-
+









# Find system constants
Nx=`mtt_getsize $Sys x` # States
Nu=`mtt_getsize $Sys u` # Inputs 
Ny=`mtt_getsize $Sys y` # Inputs  

if [ "$method" = "implicit" ]; then
    ode=cse
    ode=csex
    odeo=cseo
    algorithm="mtt_implicit(x,dx,AA,AAx,ddt,$Nx,open_switches)"
else
    ode=ode
    odeo=odeo
    algorithm="mtt_euler(x,dx,ddt,$Nx,open_switches)"
fi
︙
172
173
174
175
176
177
178
179
180






181
182
183
184
185
186
187

175
176
177
178
179
180
181


182
183
184
185
186
187
188
189
190
191
192
193
194








-
-
+
+
+
+
+
+








  endif

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

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

  mttj = 0;
    for it = 1:ilast		#Integration loop
    [y] = $1_$odeo(x,u,t,par);# Output 
    [u] = $1_input(t,x,y);	# Input
    if mttj==0
     mtt_write(t,x,y,$Nx,$Ny);   # Write it out
    endif
︙
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]