20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
## Copyright (c) P.J.Gawthrop, 1996.
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% Version control history
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% $Id$
## %% $Log$
## %% Revision 1.16 2001/03/23 14:58:16 gawthrop
## %% Fixed cosmetic bugs -- component display
## %%
## %% Revision 1.15 2001/03/23 11:20:20 gawthrop
## %% Fixed bug with vector components --NB takes geometric info from _rbg.fig
## %%
## %% Revision 1.14 2000/09/14 12:07:15 peterg
|
>
>
>
|
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
## Copyright (c) P.J.Gawthrop, 1996.
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% Version control history
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% $Id$
## %% $Log$
## %% Revision 1.17 2004/09/12 22:27:27 geraint
## %% Appended 't' to fopen mode string to open in text mode.
## %%
## %% Revision 1.16 2001/03/23 14:58:16 gawthrop
## %% Fixed cosmetic bugs -- component display
## %%
## %% Revision 1.15 2001/03/23 11:20:20 gawthrop
## %% Fixed bug with vector components --NB takes geometric info from _rbg.fig
## %%
## %% Revision 1.14 2000/09/14 12:07:15 peterg
|
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
end;
if nargin<9
comp_colour_o = 4; %Red
end;
## Create a back slash '\' character.
bs = setstr(92);
## Create the (full) system name
if strcmp(full_name,'')
full_name = system_name;
else
full_name = [full_name, '_', system_name];
end;
|
|
|
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
end;
if nargin<9
comp_colour_o = 4; %Red
end;
## Create a back slash '\' character.
bs = char(92);
## Create the (full) system name
if strcmp(full_name,'')
full_name = system_name;
else
full_name = [full_name, '_', system_name];
end;
|
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
M_components = Columns;
N_rcomponents = Rows; # Number of raw components
[N_rports,junk] = size(port_list);
[N_components, Columns] = size(CBG.subsystemlist); # Number of derived
# components
if struct_contains(CBG,'portlist')
[N_ports, Columns] = size(CBG.portlist);
else
N_ports = 0;
end
## Rotation matrix
|
|
|
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
M_components = Columns;
N_rcomponents = Rows; # Number of raw components
[N_rports,junk] = size(port_list);
[N_components, Columns] = size(CBG.subsystemlist); # Number of derived
# components
if isfield(CBG,'portlist')
[N_ports, Columns] = size(CBG.portlist);
else
N_ports = 0;
end
## Rotation matrix
|