Index: mttroot/mtt/lib/comp/simple/FP_cause.m ================================================================== --- mttroot/mtt/lib/comp/simple/FP_cause.m +++ mttroot/mtt/lib/comp/simple/FP_cause.m @@ -10,10 +10,13 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.1 1998/06/29 09:56:02 peterg +% %% Initial revision +% %% % %% Revision 1.1 1997/09/04 08:34:53 peterg % %% Initial revision % %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -27,7 +30,8 @@ return end % Same causality as TF [bonds,status] = TF_cause(bonds); + Index: mttroot/mtt/lib/comp/simple/comp_ports.m ================================================================== --- mttroot/mtt/lib/comp/simple/comp_ports.m +++ mttroot/mtt/lib/comp/simple/comp_ports.m @@ -12,10 +12,13 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.5 1998/04/12 15:01:53 peterg +% %% Converted to uniform port notation - always use [] +% %% % %% Revision 1.4 1998/03/31 08:39:31 peterg % %% Added EBTF % %% % %% Revision 1.3 1997/11/21 11:32:57 peterg % %% N ports numbered 1..N @@ -41,11 +44,11 @@ ports = ['[in]']; elseif length(findstr(comp_type,two_ports))==1 ports = ['[in]';'[out]']; elseif length(findstr(comp_type,'[-EMTF-]'))==1 ports = ['[in]';'[out]';'[mod]']; -elseif length(findstr(comp_type,'[-ES-]'))==1 +elseif length(findstr(comp_type,'[-FP-]'))==1 ports = ['[e]';'[s]']; elseif length(findstr(comp_type,'[-PS-]'))==1 ports = ['[in]';'[out]';'[power]']; elseif length(findstr(comp_type,N_ports))==1 if N==1 @@ -53,12 +56,12 @@ elseif N==2 ports = ['[in]';'[out]']; elseif N>2 ports = '[1]'; for i=2:N - ports = [ports; sprintf("%i",i)]; + ports = [ports; sprintf("[%i]",i)]; end; end; end;