bdrwcopy.m

AFD - Advanced Filter Design using MATLABMiroslav D. Lutovac, Dejan V. Tosicversion 1.00 released 15

function matrixEn = bdrwcopy(matrixE)
% matrixE = bdrwcopy(matrixE);

% bdrwcopy.m    BUTTON copy
%
% 10:08PM  9/16/99
%
%            Drawing Digital Filter Realizations
%
%   Authors: Miroslav D. Lutovac, Dejan V. Tosic, 1999.02.21
%                 [e-mail]
%                 [e-mail]
%
%   Copyright (c) 1999 by Lutovac & Tosic
%   $Revision: 1.0 $  $Date: 1999/08/21 02:17:42 $
%
%   References:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica
%

clc
matrixEold = matrixE;

[s1,s2] = size(matrixE);

title('GO TO  -->  COMMAND WINDOW')

disp(' ')

 yoffset  = input(' y - offset ? ','s');

for indEp = 1:s1-1

indE = indEp+1;

if (indE>1)&(indE<s1+1)

t1 = matrixE(indE,:);

abi=[];abi = find(t1-' '==0); 
if isempty(abi) == 0
  for ind = length(abi):-1:1
    t1(abi(ind)) =[];
    t1(length(t1)+1)=' ';
  end
end

indxi = 0;
i1 =1; i1 =[];
for inda = 1:length(t1)-1
  if abs(t1(inda:inda+1)-'y(')==0
    indxi = indxi+1;
    i1(indxi) = inda;
  end
end

newa=t1;
if length(i1)==2
  msi1 =  max(size(i1));
  msi2 =  max(size(t1));
  if     msi1 > 0
    a01 = t1(1:i1(2)-1);
    a1 = t1(i1(2)+2:(61-4));
    msi3 =  max(size(a01));
    newa = [];
    if     msi3 > 0
      newa = [a01 'y(' yoffset '+' a1];
    end
  end
end

t1 = newa;
msi1 =  max(size(i1));
msi2 =  max(size(t1));
if     msi1 > 0
  a01 = t1(1:i1(1)-1);
  a1 = t1(i1(1)+2:(61-4));
  msi3 =  max(size(a01));
  newa = [];
  if     msi3 > 0
    newa = [a01 'y(' yoffset '+' a1];
  end
end

matrixE(indE,1:61) ='                                                             ';
matrixE(indE,1:length(newa))=newa;

end

end

matrixEn = [matrixEold;matrixE];

[s1,s2] = size(matrixEn);
for indE = s1:-1:2
  if abs(matrixEn(indE,1:5)-'     ') ==0
    matrixEn(indE,:) = [];
  end
end

figure(1)