演示IIR滤波器的频带变换.docVIP

演示 IIR 滤波器的频带变换 % G031.M % 本程序演示 IIR 滤波器的频带变换 % 模拟低通原型滤波器可以是以下 4 种滤波器中的任意一种，即 ： 巴特沃思、切比雪夫 1 型、切比雪夫 2 型和椭圆滤波器 % 目标数字滤波器可以是以下 4 种滤波器中的任意一种，即 ： 低通、高通、带通和带阻 % h_fig1 = figure; set(h_fig1, unit, normalized, position, [0.0, 0.0, 0.99, 0.94]); set(h_fig1, defaultuicontrolunits, normalized); h_text1 = uicontrol(gcf, Style, text, Position, [0.0, 0.91, 0.92, 0.07],... String, IIR 滤波器的频带变换 , FontName, 黑体, ForegroundColor, r, ... FontSize, 35, FontWeight, Bold, BackgroundColor, [1, 1, 1]); set(gcf, color, w) hlist1 = uicontrol(gcf, Style, list, FontSize, 14, FontWeight, Bold,... position,[0.76,0.53,0.2,0.15],... string,巴特沃思|切比雪夫 1 型|切比雪夫 2 型|椭圆,...% 22 Max,2); hlist2 = uicontrol(gcf, Style, list, FontSize, 14, FontWeight, Bold,... position,[0.76,0.23,0.2,0.15],... string,低通数字滤波器|高通数字滤波器|带通数字滤波器|带阻数字滤波器,...% 22 Max,2)% 23 htext1 = uicontrol(gcf, Style, text, FontSize, 14, FontWeight, Bold,... position,[0.76,0.684,0.2,0.05],... string,滤波器类型); htext2 = uicontrol(gcf, Style, text, FontSize, 14, FontWeight, Bold,... position,[0.76,0.384,0.2,0.05],... string,频带选择); h_axes00 = axes(Box, on, Position, [0.08, 0.52, 0.65, 0.32], FontSize, 8) h_axes01 = axes(Box, on, Position, [0.08, 0.07, 0.65, 0.32], FontSize, 8) h_pushbutton1 = uicontrol(h_fig1, Style, PushButton, Position, [0.76, 0.1, 0.06, 0.06],... string, 运行, BackgroundColor, [0.8 0.9 0.8], ForegroundColor, r, FontSize, 14, FontWeight, Bold,... callback, cb03(hlist1, hlist2, h_axes00, h_axes01)) h_pushbutton2 = uicontrol(h_fig1, Style, PushButton, Position, [0.9, 0.1, 0.06, 0.06],... string, 退出, BackgroundColor, [0.8 0.9 0.8], ForegroundColor, r, FontSize, 14, FontWeight, Bold,... callback, delete(h_fig1),) set(gcf,color,w); wp = 0.2*pi; ws = 0.3*pi; Rp = 1; As = 30; Ts = 1; Fs = 1/Ts; OmigaP = (2/Ts)*tan(wp/2); OmigaS = (2/Ts)*tan(ws/2); [cs, ds] = afd_butt(OmigaP,Omiga