Overview
Comment:Put [] round output of zeros.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 8b03c82ca8318699e126377db2c10039751fdd6ebd3799ba48ef1bd5d2e3a58d
User & Date: gawthrop@users.sourceforge.net on 1998-07-30 10:49:02.000
Other Links: branch diff | manifest | tags
Context
1998-07-30
10:49:55
Removed zeroing. check-in: c9711f7962 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:49:02
Put [] round output of zeros. check-in: 8b03c82ca8 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:44:37
INcluded othe integration methods. check-in: 6ce2193e91 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified mttroot/mtt/bin/trans/ode2smx_lang from [8fd5adf261] to [da25b0b03d].
︙
10
11
12
13
14
15
16



17
18
19
20
21
22
23

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26








+
+
+








# Copyright (c) P.J.Gawthrop, 1991, 1994, 1998

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1  1998/07/19 16:59:56  peterg
## Initial revision
##
###############################################################

# Language
if [ -n "$2" ]; then
    lang=$2
else
    lang="r"
︙
67
68
69
70
71
72
73
74
75
76
77




78
79
80
81
82
83
84

70
71
72
73
74
75
76




77
78
79
80
81
82
83
84
85
86
87








-
-
-
-
+
+
+
+








      write "matrix mttb(", mttnx, ",", mttnu, ");";    
      write "matrix mttc(", mttny, ",", mttnx, ");";    
      write "matrix mttd(", mttny, ",", mttnu, ");";    
    END;

    IF (lang = m) THEN 
    BEGIN
      write "mtta = zeros(", mttnx, ",", mttnx, ");";    
      write "mttb = zeros(", mttnx, ",", mttnu, ");";    
      write "mttc = zeros(", mttny, ",", mttnx, ");";    
      write "mttd = zeros(", mttny, ",", mttnu, ");";    
      write "[mtta] = zeros(", mttnx, ",", mttnx, ");";    
      write "[mttb] = zeros(", mttnx, ",", mttnu, ");";    
      write "[mttc] = zeros(", mttny, ",", mttnx, ");";    
      write "[mttd] = zeros(", mttny, ",", mttnu, ");";    
    end;



% find MTTA : the A matrix
  FOR j := 1:MTTNx DO
    BEGIN
︙
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]