Overview
Comment:Put [] round output of zeros.
Downloads: Tarball | ZIP archive | SQL 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
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

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
# Copyright (c) P.J.Gawthrop, 1991, 1994, 1998

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$



###############################################################

# Language
if [ -n "$2" ]; then
    lang=$2
else
    lang="r"







>
>
>







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
      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







|
|
|
|







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, ");";    
    end;



% find MTTA : the A matrix
  FOR j := 1:MTTNx DO
    BEGIN


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