function butdz(data)
border=4;
bfreq=.75;
while border~=0 & bfreq~=0
[butterB,butterA]=butter(border,bfreq);
temp2=data(:);
data(:)=filtfilt(butterB,butterA,data(:));
%Plot the original and filtered data
figure, plot(temp2), hold on
plot(data(:),'r')
legend('Original','Filtered')
title(['Butterworth Filter [Order=' num2str(border) ', w_n=' num2str(bfreq) ']'])
b=input('Enter the Butterworth order and wn [border wn] : ');
border=b(1);
bfreq=b(2);
data(:)=temp2;
end
if (1==menu('Close All','Yes','No'))
    close all
end