Overview
Comment:Put mtt or MTT in front of variable names to avoid clashes with
globals
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 8d8ebf28ffe6909bf391265f35f5a21a554610dff6cdbe7662ee1f61868872fc
User & Date: gawthrop@users.sourceforge.net on 1998-07-26 11:02:20
Other Links: branch diff | manifest | tags
Context
1998-07-26
11:11:32
i --> MTTi check-in: d0d26321ed user: gawthrop@users.sourceforge.net tags: origin/master, trunk
11:02:20
Put mtt or MTT in front of variable names to avoid clashes with
globals check-in: 8d8ebf28ff user: gawthrop@users.sourceforge.net tags: origin/master, trunk
11:00:18
Put in exits-- this all needs a good clean check-in: 3d8f53654f 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 [4c6ad3aaed] to [353e7b8d60]. 

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.4  1998/07/25 20:14:00  peterg
## update code added for flexibility and octave efficiency
##
###############################################################


# Bourne shell script: make_ode2odes

# Copyright (c) P.J.Gawthrop July 1998.
︙
33
34
35
36
37
38
39
40
41


42
43
44

45
46
47
48



49
50
51
52
53



54
55
56
57
58




59
60

61
62
63
64
65
66
67

36
37
38
39
40
41
42


43
44
45
46

47
48



49
50
51
52
53



54
55
56
57




58
59
60
61
62

63
64
65
66
67
68
69
70








-
-
+
+


-
+

-
-
-
+
+
+


-
-
-
+
+
+

-
-
-
-
+
+
+
+

-
+









# The rest of the program
cat << EOF >> $1_ode2odes.m

$1_simpar;			# Read in simulation parameters
$1_numpar;			# Read in parameters

iLast = round(LAST/DT);         # Total number of steps
DDT = DT/STEPFACTOR;
MTTiLast = round(mttLAST/mttDT);         # Total number of steps
mttDDT = mttDT/mttSTEPFACTOR;

#Initialise
t = 0.0;
MTTt = 0.0;
MTTx = $1_state;	        # Read in initial state
MTTu = $1_input(MTTx,t);        # Evaluate initial input
MTTy = $1_odeo(MTTx,MTTu,t);    # Evaluate initial output
mtt_write(t,MTTx,MTTy,$Nx,$Ny); # And write them
MTTu = $1_input(MTTx,MTTt);        # Evaluate initial input
MTTy = $1_odeo(MTTx,MTTu,MTTt);    # Evaluate initial output
mtt_write(MTTt,MTTx,MTTy,$Nx,$Ny); # And write them

#Integration loop
for it = 1:iLast
    for i = 1:STEPFACTOR
        [MTTu] = $1_input(MTTx,t);# Input
for MTTit = 1:MTTiLast
    for MTTi = 1:mttSTEPFACTOR
        [MTTu] = $1_input(MTTx,MTTt);# Input
        [MTTx] = $1_switch(MTTx); # Switches
        [MTTdx] = $1_ode(MTTx,MTTu,t);
        [MTTx] = mtt_update(MTTdx,MTTx,DDT,$Nx,METHOD);
        [MTTy] = $1_odeo(MTTx,MTTu,t);
	t = t + DDT;
        [MTTdx] = $1_ode(MTTx,MTTu,MTTt);
        [MTTx] = mtt_update(MTTdx,MTTx,mttDDT,$Nx,mttMETHOD);
        [MTTy] = $1_odeo(MTTx,MTTu,MTTt);
	MTTt = MTTt + mttDDT;
    end;
    mtt_write(t,MTTx,MTTy,$Nx,$Ny);
    mtt_write(MTTt,MTTx,MTTy,$Nx,$Ny);
end;

EOF

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