1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
|
function structure = SS_eqn(bond_number,bonds,direction,cr,args, ...
structure,filenum);
function structure = SS_eqn(name,bond_number,bonds,direction,cr,args, ...
structure,filenum);
% SS_eqn - equations for SS component
%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %%%%% Model Transformation Tools %%%%%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% Matlab function SS_eqn
% structure = SS_eqn(name,bond_number,bonds,direction,cr,args, ...
% structure,filenum);
% Copyright (c) P.J. Gawthrop, 1996.
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.4 1996/08/18 20:06:21 peter
% %% Included zero outputs.
% %%
% %% Revision 1.3 1996/08/09 14:08:04 peter
% %% Empty effort and flow attributes replaced by 'external'.
% %%
% %% Revision 1.2 1996/08/08 16:38:19 peter
% %% Changed to filenumer type of fprintf
% %%
% %% Revision 1.1 1996/08/08 16:19:08 peter
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% The string 'cr' contains the effort attributes;
% 'arg' contains the flow attributes.
% external indicates an external variable
% internal indicates an internal variable
% anything else is the name of a constant.
% Blank is taken to be external
% If its a numbered port:
% cr contains 'MTT_port'
% arg contains port number
effort_attribute = cr;
flow_attribute = args;
effort_attribute = cr
flow_attribute = args
if length(effort_attribute)==0
effort_attribute = 'external';
end;
if length(flow_attribute)==0
flow_attribute = 'external';
end;
inputs = structure(3);
outputs = structure(4);
zero_outputs = structure(5);
if strcmp(effort_attribute, 'MTT_port') % Its a numbered port
port_number = sprintf('%1.0f',flow_attribute);
% Effort
if bonds(1,1)==-1 % Source
fprintf(filenum, '%s := %s_MTTu%1.0f;\n', ...
varname(name, bond_number,1), name, port_number);
else % Sensor
fprintf(filenum, '%s_MTTy%1.0f := %s;\n', ...
name, port_number, varname(name, bond_number,1));
end;
% Flow
if bonds(1,2)==1 % Source
fprintf(filenum, '%s := %s_MTTu%1.0f;\n', ...
varname(name, bond_number,-1), name, port_number);
else % Sensor
fprintf(filenum, '%s_MTTy%1.0f := %s;\n', ...
name, port_number, varname(name, bond_number,-1));
end;
return
end;
% Effort
if strcmp(effort_attribute, 'external')
if bonds(1,1)==-1 % Source
inputs = inputs+1;
fprintf(filenum, '%s := MTTu(%1.0f,1);\n', ...
varname(bond_number,1),inputs);
varname(name, bond_number,1),inputs);
else % Sensor
outputs = outputs+1;
fprintf(filenum, 'MTTy(%1.0f,1) := %s;\n', ...
outputs, varname(bond_number,1));
outputs, varname(name, bond_number,1));
end;
elseif strcmp(effort_attribute, 'internal')
% Do nothing
else % named constant
if bonds(1,1)==-1 % Source
fprintf(filenum, '%s := %s;\n', ...
varname(bond_number,1), effort_attribute);
varname(name, bond_number,1), effort_attribute);
else % Sensor
if strcmp(effort_attribute, 'zero') %Zero output
zero_outputs = zero_outputs + 1;
fprintf(filenum, 'MTTyz%1.0f := %s;\n', ...
zero_outputs, varname(bond_number,1));
zero_outputs, varname(name, bond_number,1));
fprintf(filenum, '%s := MTTUi%1.0f;\n', ...
varname(bond_number,-1), zero_outputs);
varname(name, bond_number,-1), zero_outputs);
else
mtt_info([effort_attribute, ' not appropriate for an output ']);
end;
end;
end;
% Flow
if strcmp(flow_attribute, 'external')
if bonds(1,2)==1 % Source
inputs = inputs+1;
fprintf(filenum, '%s := MTTu(%1.0f,1);\n', varname(bond_number,-1),inputs);
fprintf(filenum, '%s := MTTu(%1.0f,1);\n', varname(name, bond_number,-1),inputs);
else % Sensor
outputs = outputs+1;
fprintf(filenum, 'MTTy(%1.0f,1) := %s;\n', outputs, ...
varname(bond_number,-1));
varname(name, bond_number,-1));
end;
elseif strcmp(flow_attribute, 'internal')
% Do nothing
else % Named constant
if bonds(1,2)==1 % Source
fprintf(filenum, '%s := %s;\n', ...
varname(bond_number,-1), flow_attribute);
varname(name, bond_number,-1), flow_attribute);
else % Sensor
if strcmp(flow_attribute, 'zero') %Zero output
zero_outputs = zero_outputs + 1;
fprintf(filenum, 'MTTyz%1.0f := %s;\n', ...
zero_outputs, varname(bond_number,-1));
zero_outputs, varname(name, bond_number,-1));
fprintf(filenum, '%s := MTTUi%1.0f;\n', ...
varname(bond_number,1), zero_outputs);
varname(name, bond_number,1), zero_outputs);
else
mtt_info([effort_attribute, ' not appropriate for an output ']);
end;
end;
end;
|