% 《數字信號處理教程——MATLAB釋義與實現》第四章演示程序
%  電子工業出版社出版  陳懷琛編著 2004年9月
%  數字濾波器頻帶變換演示
%
clear
handles=figure('name','數字濾波器設計演示');
set(handles,'unit','normalized','position',[0.1,0.2,0.5,0.5]);
set(handles,'defaultuicontrolunits','normalized');

%坐標軸y一用來繪制低通濾波器
haxes1=axes('position',[0.15,0.55,0.45,0.4],...
             'ylim',[-1.2,1.2]);               
         
haxes2=axes('position',[0.15,0.1,0.45,0.4]);

hpushbutton1=uicontrol(handles,'style','pushbutton',...
                       'position',[0.7,0.8,0.2,0.1],...
                       'string','數字低通到低通',...
                      'callback',['call_dlp2lp(haxes1,haxes2);']);
hpushbutton2=uicontrol(handles,'style','pushbutton',...
                       'position',[0.7,0.6,0.2,0.1],...
                       'string','數字低通到高通',...
                      'callback',['call_dlp2hp(haxes1,haxes2);']);
hpushbutton3=uicontrol(handles,'style','pushbutton',...
                       'position',[0.7,0.4,0.2,0.1],...
                       'string','數字低通到帶通',...
                      'callback',['call_dlp2bp(haxes1,haxes2);']);
hpushbutton4=uicontrol(handles,'style','pushbutton',...
                       'position',[0.7,0.2,0.2,0.1],...
                       'string','數字低通到帶阻',...
                       'callback',['call_dlp2bs(haxes1,haxes2);']);