Overview
Comment:Removed causality & port info when no constitutive relationship.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 6004cf1aea338583f0d7a430ba275f42200c4be2b045f347a25668fd971fb1e8
User & Date: gawthrop@users.sourceforge.net on 1996-09-10 11:29:47.000
Other Links: branch diff | manifest | tags
Context
1996-09-10
16:18:37
Uses default constitutive relationship mtt/cr/r check-in: a45b58af3e user: gawthrop@users.sourceforge.net tags: origin/master, trunk
11:29:47
Removed causality & port info when no constitutive relationship. check-in: 6004cf1aea user: gawthrop@users.sourceforge.net tags: origin/master, trunk
11:11:11
Initial revision check-in: 9d350271b5 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified mttroot/mtt/bin/trans/m/equation.m from [0559c2668c] to [87f1ebc4fa].
︙
12
13
14
15
16
17
18



19
20
21
22
23
24
25

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28








+
+
+










% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1  1996/09/10 11:11:11  peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



% Find the number of inports
nports = length(inports);
︙
51
52
53
54
55
56
57
58
59
60








61
62
63
64
65
66
67
68
69
70
71
72
73

54
55
56
57
58
59
60



61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81








-
-
-
+
+
+
+
+
+
+
+














RHS1 = sprintf('%s%s%s%s%s%s%s%s\n', ...
    cr, lp, args, a_comma, cause_name, c_comma, port_name, c_comma);


% Set up rest of RHS - the input variables, causality and ports.
RHS2 = '';
for i=1:nports
  RHS2 = sprintf('%s\t%s,%s,%1.0f', ...
      RHS2, varname(name, inbonds(i), incauses(i)), ...
      cause2name(incauses(i)), inports(i));
  RHS2 = sprintf('%s\t%s', ...
      RHS2, varname(name, inbonds(i), incauses(i)))
  
  if length(cr)>0 % add the causality & port info
    RHS2 = sprintf('%s,%1.0f', ...
	RHS2, cause2name(incauses(i)), inports(i));
  end;
  
  if i<nports % Add a comma
    RHS2 = sprintf('%s,\n',RHS2);
  else
    RHS2 = sprintf('%s\n',RHS2);
  end;
end;
 
  

% Set up equation
eqn = sprintf('%s := %s%s\t%s;\n', LHS, RHS1, RHS2, rp);
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]