Overview
Comment:Removed zeroing.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: c9711f796288417d46d461117a4507a43c0f6b37bf7c5fcd3e997b4ea731428d
User & Date: gawthrop@users.sourceforge.net on 1998-07-30 10:49:55
Other Links: branch diff | manifest | tags
Context
1998-07-30
11:27:33
Initial revision check-in: 474c15ca50 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
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
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/ode2smx_lang from [da25b0b03d] to [61ba98ca6f].

︙
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.2  1998/07/30 10:49:02  peterg
## Put [] round output of zeros.
##
## Revision 1.1  1998/07/19 16:59:56  peterg
## Initial revision
##
###############################################################

# Language
if [ -n "$2" ]; then
︙
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89

71
72
73
74
75
76
77








78
79
80
81
82
83
84








-
-
-
-
-
-
-
-








    BEGIN
      write "matrix mtta(", mttnx, ",", mttnx, ");";    
      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, ");";    
    end;



% find MTTA : the A matrix
  FOR j := 1:MTTNx DO
    BEGIN
    xj := MTTX(j,1);
    FOR i := 1:MTTNx DO
︙

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