init

FOTF Toolbox/fotf2sl.m

@@ -0,0 +1,55 @@
+function key=fotf2sl(G,str0)
+% fotf2sl - construct multivariable FOTF block, called internally
+%           in FOTFLIB blockset
+
+% Copyright (c) Dingyu Xue, Northeastern University, China
+% Last modified 28 March, 2017 
+ik=strfind(str0,'|'); sG=str0(1:ik(1)-1);
+key=1; M=[gcb '/FOTF_matx'];
+if exist('G') & strcmp(class(G),'fotf')
+   [m,n]=size(G); open_system(M,'loadonly');
+   set_param(M,'Location',[100,100,500,400]);
+   ll=get_param(M,'lines');
+   bb=get_param(M,'blocks');
+   for i=1:length(ll), delete_line(ll(i).Handle); end
+   for i=1:length(bb), str=char(bb(i));
+      if ~strcmp(str,'In1') & ~strcmp(str,'Out1'),
+         delete_block([M,'/',str]);
+   end, end
+   set_param([M '/In1'],'Position',[40,80,70,94]);
+   add_block('built-in/Demux',[M '/Demux'],...
+        'Position',[140,80,145,120],...
+        'Outputs',int2str(n));
+   add_block('built-in/Mux',[M '/Mux'],...
+        'Position',[170+200*n,80,175+200*n,120],...
+        'Inputs',int2str(m));
+   set_param([M '/Out1'],'Position',...
+        [200+200*n,80,230+200*n,94]);
+   pos=zeros(n*m,4); s='+'; ss=repmat(s,1,n);
+   add_line(M,'In1/1','Demux/1','autorouting','on');
+   add_line(M,'Mux/1','Out1/1','autorouting','on');
+   for i=1:m, i1=int2str(i);
+      add_block('built-in/Sum',[M '/Add' i1],...
+         'Inputs',ss,'Position',[110+200*n,...
+         100+80*(i-1),125+200*n,100+80*(i-1)+10*n]);
+      for j=1:n, j1=int2str(j);
+         blkname=[M,'/' sG,i1,j1];
+         pos(i+(j-1)*n,:)=[180+10*n+160*(j-1),...
+            80+80*(i-1)+40*(j-1),300+10*n+160*(j-1),...
+            120+80*(i-1)+40*(j-1)];
+         add_block('fotflib/Approximate FOTF model',...
+            blkname,'Position',pos(i+(j-1)*n,:));
+         str=get_param(blkname,'MaskValueString');
+         ii=strfind(str,'|');
+         str=[sG '(' i1,',',j1 ')' str(ii(1):ii(4)),... 
+             str0(ik(1)+1:end) str(ii(7):end)]; 
+         set_param(blkname,'MaskValueString',str)
+         add_line(M,['Demux/',j1],[sG i1 j1 '/1'],...
+             'autorouting','on')
+         add_line(M,[sG i1 j1 '/1'],...
+             ['Add' i1 '/',j1],'autorouting','on')
+      end
+      add_line(M,['Add' i1 '/1'],['Mux/' i1],...
+          'autorouting','on')
+   end
+else, key=0; end