sustraetrama12a.asv

matlab在通信原理中的应用

function y = sustraetrama12(u)
blk1=([gcs,'/','Sustraetrama']);
pl=get_param(blk1,'s');
[a b]=size(u);
tr=zeros(a,7656);
switch (pl)
    case '12'    
      tr=u(:,1:7656);
    case '11'
      tr(:,1:6960)=u(:,1:6960);
      tr(:,6961:7656)=u(:,7657:8352);
    case '10'    
      tr(:,1:6264)=u(:,1:6264);
      tr(:,6265:7656)=u(:,6961:8352);
    case '9'    
      tr(:,1:5568)=u(:,1:5568);
      tr(:,5569:7656)=u(:,6265:8352);
    case '8'   
      tr(:,1:4872)=u(:,1:4872);
      tr(:,4873:7656)=u(:,5569:8352);
    case '7'   
      tr(:,1:4176)=u(:,1:4176);
      tr(:,4177:7656)=u(:,4873:8352);
    case '6'   
      tr(:,1:3480)=u(:,1:3480);
      tr(:,3481:7656)=u(:,4177:8352);
    case '5'    
      tr(:,1:2784)=u(:,1:2784);
      tr(:,2785:7656)=u(:,3481:8352);
    case '4'    
      tr(:,1:2088)=u(:,1:2088);
      tr(:,2089:7656)=u(:,2785:8352);
    case '3'    
      tr(:,1:1392)=u(:,1:1392);
      tr(:,1393:7656)=u(:,2089:8352);
    case '2'
      tr(:,1:696)=u(:,1:696);
      tr(:,697:7656)=u(:,1393:8352);
    case '1'    
      tr(:,1:7656)=u(:,697:8352);
end
y=tr;
end