1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
function structure = SS_eqn(bond_number,bonds,direction,cr,args, ...
structure,filenum);
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% 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
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
function structure = SS_eqn(bond_number,bonds,direction,cr,args, ...
structure,filenum);
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% 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
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
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
|
if length(flow_attribute)==0
flow_attribute = 'external';
end;
inputs = structure(3);
outputs = structure(4);
% 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);
else % Sensor
outputs = outputs+1;
fprintf(filenum, 'MTTy(%1.0f,1) := %s;\n', ...
outputs, varname(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);
% THIS STILL NEEDS DOING!
mtt_info('Constant outputs not implemented yet!');
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);
else % Sensor
outputs = outputs+1;
fprintf(filenum, 'MTTy(%1.0f,1) := %s;\n', outputs, ...
varname(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);
else % Sensor
% THIS STILL NEEDS DOING!
mtt_info('Zero outputs not implemented yet!');
|
>
|
|
|
>
>
>
>
>
>
>
<
|
>
>
>
>
>
>
>
>
|
|
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
|
if length(flow_attribute)==0
flow_attribute = 'external';
end;
inputs = structure(3);
outputs = structure(4);
zero_outputs = structure(5);
% 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);
else % Sensor
outputs = outputs+1;
fprintf(filenum, 'MTTy(%1.0f,1) := %s;\n', ...
outputs, varname(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);
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));
fprintf(filenum, '%s := MTTUi%1.0f;\n', ...
varname(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);
else % Sensor
outputs = outputs+1;
fprintf(filenum, 'MTTy(%1.0f,1) := %s;\n', outputs, ...
varname(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);
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));
fprintf(filenum, '%s := MTTUi%1.0f;\n', ...
varname(bond_number,1), zero_outputs);
else
mtt_info([effort_attribute, ' not appropriate for an output ']);
end;
end;
end;
structure(3) = inputs;
structure(4) = outputs;
structure(5) = zero_outputs;
|