含噪語(yǔ)音matlab界面處理

1、大連理工大學(xué)實(shí)驗(yàn)報(bào)告學(xué)院（系）:電子信息與電氣工程學(xué)部專業(yè)：生物醫(yī)學(xué)工程班級(jí):電醫(yī)1001姓 名:張 穎學(xué)號(hào):201081623組:實(shí)驗(yàn)時(shí)間:實(shí)驗(yàn)室:C221實(shí)驗(yàn)臺(tái):指導(dǎo)教師簽字:成績(jī):實(shí)驗(yàn)名稱含噪語(yǔ)音信號(hào)的分析一、實(shí)驗(yàn)?zāi)康暮鸵?. 理解并掌握系統(tǒng)的理念；2. 掌握濾波的概念和基本應(yīng)用的方法；3. 提咼分析和解決實(shí)際問(wèn)題的能力？二？實(shí)驗(yàn)原理和內(nèi)容詳見試驗(yàn)講義三、主要儀器設(shè)備Matlab仿真軟件四？實(shí)驗(yàn)步驟與操作方法 五？試驗(yàn)題目及程序代碼？結(jié)果程序代碼:gui_S in glet on = 1; gui_State = struct('gui_Name' 'gui_S

2、 in glet on' 'gui_Ope nin gFc n' 'gui_OutputFc n'function varargout = no isedeal(vararg in)mfile name,.,gui_S in glet on,no isedeal_Ope nin gFc n,no isedeal_OutputFc n,'gui_LayoutFc n' ,'gui_Callback',);if nargin && ischar(varargin1)gui_State.gui_Callback

3、= str2fu nc(vararg in 1);endif n argoutvarargout1: nargout = gui_ma infcn( gui_State, vararg in :); elsegui_ma infcn( gui_State, vararg in :);endfunctionno isedeal_Ope nin gFc n( hObject, even tdata, han dles, vararg in)han dles.output = hObject;guidata(hObject, han dles);function varargout = no ise

4、deal_OutputFc n( hObject, even tdata, han dles) varargout1 = han dles.output;fun ctio nUn titled_1_Callback(hObject, even tdata, han dles)function ope n_Callback(hObject, even tdata, han dles)a= 'part1.wav' ;p=mfile name('fullpath')i=fin dstr(p,'')p=(1:i(e nd);b=cd;y,fs, nbit

5、e=wavread(fullfile(b,a);han dles.y=y;han dles.fs=fs;axes(ha ndles.axes1) subplot(121);plot(y);len=len gth(y); han dlesen=len;ts=(le n-1)/fs;t=0:1/fs:ts;y1=y;fy=fft(y1);f=(0:le ngth(t)-1)*fs/le ngth(t)-fs/2;subplot(122);plot(f,fftshift(abs(fy);axes(ha ndles.axes2);guidata(hObject,ha ndles);functionsa

6、ve_Callback(hObject, even tdata, han dles)wavwrite(ha ndles.q,'n ew');function fir_Callback(hObject, even tdata, han dles) han dles.k1=get(ha ndles.fir,'value' );if han dles.k1=1'visible''visible''value' ,0);,'on');,'off);set(ha ndles .li stbox1, s

7、et(ha ndles .li stbox2, set(ha ndles.iir, else end ;guidata(hObject,ha ndles);functioniir_Callback(hObject, eve ntdata, han dies) if han dles.k2=1'visible', 'off )'visible', 'on');'value' ,0);set(ha ndles .li stboxl,set(ha ndles .li stbox2,set(ha ndles.fir, else e

8、nd ; guidata(hObject,ha ndles);fun ctio nfun ctio nifget(0, set(hObject, endlistbox1_Callback(hObject, even tdata, ha ndles) listbox1_CreateFc n( hObject, even tdata, han dles) ispc&&'defaultUico ntrolBackgro un dColor' 'Backgro un dColor'isequal(get(hObject,);'Backgrou n

9、dColor'),'white'functionsure_Callback(hObject, eve ntdata, han dles)k=get(ha ndles.fir,'value' );if k=1runParameter;elserunsett ingendfunctionsoun d_Callback(hObject, even tdata, han dles)functionregi on al_Callback(hObject, eve ntdata, han dles)wavplay(ha ndles.y,ha ndles.fs);fu

10、nction dials_Callback(hObject, eve ntdata, han dles) wavplay(ha ndles.q,ha ndles.fs);functionpain t_Callback(hObject, eve ntdata, han dles)k1=get(ha ndles.fir,'value');k2=get(ha ndles.iir,'value');if k1>k2han dles .l=getappdata(0,'l');han dles.f=str2 nu m(getappdata(O,'

11、;f);han dles.kp1=str2 nu m(getappdata(O,'pk1');ha ndles.kp2=str2 num(getappdata(O,'pk2');han dles.sk1=str2 nu m(getappdata(O,'ski');ha ndles.sk2=str2 num(getappdata(O,'sk2');han dles.apl=str2 nu m(getappdata(O,'apl');han dles.asl=str2 nu m(getappdata(O,'as

12、l');choose=getappdata(0,'choose' );if choose= '3'wp=ha ndles.kpl han dles.kp2;wr=ha ndles.ski han dles.sk2;elsewp=ha ndles.kpl;wr=ha ndles.skl;endch=get(ha ndles .li stboxl,'value' );switch chcase 1N,Wn=buttord(wp/pi,wr/pi,ha ndles.apl,ha ndles.asl); b,a= butter(N,Wn,ha n

13、dles.l);case 2N,Wn=cheb1ord(wp/pi,wr/pi,ha ndles.apl,ha ndles.asl);b,a= cheby1(N,ha ndles.apl,Wn,ha ndles.l);case 3endf,w=freqz(b,a);f_mag=abs(f);plot(w/pi,abs(f_mag);han dles.a=a;han dles.b=b;elsehan dles.h=getappdata(0,'h');han dles .n=str2 nu m(getappdata(O,'n');han dles.wc=str2 n

14、u m(getappdata(O,'wc');cl=get(ha ndles .li stbox2,'value' );if handles.h=1chr='low'elsechr='high' ;endswitch clcase 1b=fir1(ha ndles .n ,ha ndles.wc,chr,boxcar(ha ndles .n+1); case 2b=fir1(ha ndles .n ,ha ndles.wc,chr,ham min g(ha ndles .n+1);case 3endstem(b); han dle

15、s.b=b; endguidata(hObject,ha ndles); fun ctio nfun ctio nifget(0,set(hObject,listbox2_Callback(hObject, even tdata, ha ndles) listbox2_CreateFc n( hObject, even tdata, han dles) ispc&&'defaultUico ntrolBackgro un dColor' 'Backgro un dColor'isequal(get(hObject,),'white'

16、; );'Backgrou ndColor'),endfunction effect_Callback(hObject, even tdata, han dies) q=filtfilt(ha ndles.b,ha ndles.a,ha ndles .no s);figure;subplot(121);plot(q);ts=(ha ndlesen-1)/ha ndles.fs;t=0:1/ha ndles.fs:ts;fy=fft(q);f=(0:le ngth(t)-1)*ha ndles.fs/le ngth(t)-ha ndles.fs/2; subplot(122);p

17、lot(f,fftshift(abs(fy);han dles.q=q;guidata(hObject,ha ndles);function noi s_Callback(hObject, even tdata, han dles) function gaosi_Callback(hObject, eve ntdata, han dles) functionbai_Callback(hObject, eve ntdata, han dles)nos=0.001*ra nd(ha ndles.le n,1);han dles .no s=ha ndles.y+nos;subplot(121);p

18、lot(ha ndles .no s);ts=(ha ndles .len-1)/ha ndles.fs;t=0:1/ha ndles.fs:ts;fy=fft(ha ndles .no s);f=(0:le ngth(t)-1)*ha ndles.fs/le ngth(t)-ha ndles.fs/2; subplot(122);plot(f,fftshift(abs(fy);axes(ha ndles.axes3);guidata(hObject,guidata);functionnon e_Callback(hObject, even tdata, han dles)han dles .

19、no s=ha ndles.y;subplot(121);plot(ha ndles .no s);ts=(ha ndles .len-1)/ha ndles.fs;t=0:1/ha ndles.fs:ts;fy=fft(ha ndles .no s);f=(0:le ngth(t)-1)*ha ndles.fs/le ngth(t)-ha ndles.fs/2; subplot(122);plot(f,fftshift(abs(fy);axes(ha ndles.axes3);guidata(hObject,guidata);function db1_Callback(hObject, ev

20、en tdata, han dles) no s=wg n(han dles .len ,1,-10);han dles .no s=ha ndles.y+nos;4X 10subplot(121); plot(ha ndles .no s);ts=(ha ndles.le n-1)/ha ndles.fs;t=0:1/ha ndles.fs:ts;fy=fft(ha ndles .no s);subplot(122); plot(f,fftshift(abs(fy); axes(ha ndles.axes3); guidata(hObject,ha ndles); fun ctio n4X

21、10db2_Callback(hObject, even tdata,x hn dles) no s=wg n(han dles .len ,1,-40); han dles .no s=ha ndles.y+nos;subplot(121);plot(ha ndles .no s);ts=(ha ndles .len-1)/ha ndles.fs;t=0:1/ha ndles.fs:ts;fy=fft(ha ndles .no s);f=(0:le ngth(t)-1)*ha ndles.fs/le ngth(t)-ha ndles.fs/2; subplot(122);plot(f,fft

22、shift(abs(fy);axes(ha ndles.axes3);guidata(hObject,ha ndles);程序主界面：程序處理后結(jié)果圖程序子界面1:子程序1代碼：function varargout = Parameter(vararg in)gui_S in glet on = 1;gui_State = struct('gui_Name' ,mfile name,.'gui_S in glet on',gui_S in glet on,'gui_Ope nin gFc n',Parameter_Ope nin gFc n,&#

23、39;gui_OutputFc n',Parameter_OutputFc n,'gui_LayoutFc n', .'gui_Callback',);if nargin && ischar(varargin1)gui_State.gui_Callback = str2fu nc(vararg in 1);endif n argoutvarargout1: nargout = gui_ma infcn( gui_State, vararg in :); elsegui_ma infcn( gui_State, vararg in :);e

24、ndfun ctio nParameter_Ope nin gFc n( hObject, eve ntdata, han dles, vararg in) han dles.output = hObject;ch=getappdata(0, 'ch') guidata(hObject, han dles);function varargout = Parameter_OutputFc n( hObject, even tdata, han dles)varargout1 = han dles.output; fun ctio nfun ctio nifget(0,set(hO

25、bject,f_Callback(hObject, even tdata, han dles) f_CreateFc n( hObject, eve ntdata, han dles) ispc&&'defaultUico ntrolBackgro un dColor' 'Backgro un dColor'isequal(get(hObject,),'white' );'Backgrou ndColor'),endfunctionfp1_Callback(hObject, even tdata, han dies

26、)functionfp1_CreateFc n( hObject, even tdata, han dies)ifispc&&get(0,'defauitUico ntrolBackgrou ndColor'isequal(get(hObject,)'Backgrou ndColor'),set(hObject,'BackgroundColor' , 'white' );endfunction fp2_Callback(hObject, even tdata, han dles)fun ctio nifget(0,

27、set(hObject,fp2_CreateFc n( hObject, even tdata, han dles) ispc&&'defaultUico ntrolBackgro un dColor''Backgro un dColor'isequal(get(hObject,),'white' );'Backgrou ndColor'),isequal(get(hObject,),'white' );'Backgrou ndColor'),endfunction ap_Callb

28、ack(hObject, eve ntdata, han dles) functionap_CreateFc n( hObject, even tdata, han dles)ifispc&&get(0, 'defaultUico ntrolBackgrou ndColor' set(hObject,'Backgro un dColor'endfun ctio nfun ctio nifget(0, set(hObject, endas_Callback(hObject, even tdata, han dles) as_CreateFc n(

29、hObject, even tdata, han dles) ispc&&'defaultUico ntrolBackgro un dColor''Backgro un dColor'isequal(get(hObject,),'white' );'Backgrou ndColor'),fun ctio n fun ctio n ifget(0,set(hObject,fs1_Callback(hObject, even tdata, han dles) fs1_CreateFc n( hObject, eve n

30、tdata, han dles) ispc&&'defaultUico ntrolBackgro un dColor''Backgro un dColor'isequal(get(hObject,),'white' );'Backgrou ndColor'),endfunction fs2_Callback(hObject, eve ntdata, han dles)functionfs2_CreateFc n( hObject, eve ntdata, han dles)ifispc&&get(0

31、,'defaultUico ntrolBackgrou ndColor'isequal(get(hObject,)'Backgrou ndColor'),set(hObject,'BackgroundColor' , 'white' );endfunction yes_Callback(hObject, even tdata, han dles) choose=get(ha ndles.me nu,'value' );switch choosecase 1l= 'low'case 2'hig

32、h'case 3case'ba ndpass'4IIcaseIIend f=get(ha ndles.f, pk仁get(ha ndles.fp1, pk2=get(ha ndles.fp2, sk1=get(ha ndles.fs1, sk2=get(ha ndles.fs2, apl=get(ha ndles.ap, asl=get(ha ndles.as, setappdata(0, setappdata(0,'choose''stri ng' );'stri ng''stri ng''str

33、i ng''stri ng''stri ng':'stri ng':,choose);,l);）；）；）；）；）；）；setappdata(0,'f,f);setappdata(0,'pk1',pk1);setappdata(0,'pk2',pk2);setappdata(0,'sk1',sk1);setappdata(0,'sk2',sk2);setappdata(0,'apl',apl);setappdata(0,'asl',asl

34、);Tdelete(Parameter);functioncan cel_Callback(hObject, even tdata, han dles)functionmenu _Callback(hObject, even tdata, han dles)l=get(ha ndles.me nu,'value');if l=1|l=2set(ha ndles.fp2,'visible', 'off);set(ha ndles.fs2,'visible', 'off);set(ha ndles.text7,'visible

35、', 'off);set(ha ndles.text8,'visible', 'off);elseset(ha ndles.fp2,'visible', 'on');set(ha ndles.fs2,'visible', 'on');set(ha ndles.text7,'visible', 'on');set(ha ndles.text8,'visible', 'on');endfunctionmenu _CreateFc n

36、( hObject, eve ntdata, han dles)ifispc&&isequal(get(hObject,'Backgro un dColor')get(0,'defaultUico ntrolBackgrou ndColor')set(hObject,'BackgroundColor', 'white');endfunctionyes_Butt on Dow nFcn( hObject, even tdata, han dles)程序子界面2:M setting濾波器參數(shù)設(shè)定址謹(jǐn)器類型選擇高通譴讖器

37、曲枝器階數(shù)設(shè)定10子程序代碼2:fun ctio nvarargout=sett in g(vararg in)gui_S in glet on = 1;gui_State =struct('gui_Name' ,mfile name,.'gui_S in glet on',gui_S in glet on,'gui_Ope nin gFc n',sett in g_Ope nin gFc n,'gui_OutputFc n',sett in g_OutputFc n,'gui_LayoutFc n', .'

38、;gui_Callback',);if nargin && ischar(varargin1) gui_State.gui_Callback = str2fu nc(vararg in 1);endif n argoutvarargout1: nargout = gui_ma infcn( gui_State, vararg in :); elsegui_ma infcn( gui_State, varargi n:); endfunctionsett in g_Ope nin gFc n( hObject, even tdata, han dles, vararg i

39、n)han dles.output = hObject;guidata(hObject, han dles);function varargout = sett in g_OutputFc n( hObject, eve ntdata, han dles) varargout1 = han dles.output;functionn _Callback(hObject, even tdata, han dles)functionn _CreateFc n( hObject, even tdata, han dles)ifispc&&isequal(get(hObject,

40、9;Backgrou ndColor'),get(0,'defaultUico ntrolBackgrou ndColor')set(hObject,'BackgroundColor' , 'white' );end function fc_Callback(hObject, even tdata, han dles)functionfc_CreateFc n( hObject, even tdata, han dles)ifispc&&get(0,'defaultUico ntrolBackgrou ndColo

41、r'set(hObject,'Backgro un dColor'end fun ctio nisequal(get(hObject,),'white' );'Backgro un dColor'),fun ctio n if get(0,set(hObject, end fun ctio n fun ctio n ifap1_Callback(hObject, even tdata, han dles) ap1_CreateFc n( hObject, eve ntdata, han dles) ispc&&'d

42、efaultUico ntrolBackgro un dColor' 'Backgro un dColor'isequal(get(hObject,),'white' );'Backgro un dColor'),get(0, set(hObject,endfun ctio n fun ctio nas1_Callback(hObject, even tdata, han dles) as1_CreateFc n( hObject, even tdata, han dles) ispc&&'defaultUico ntrolBackgro un dColor''Backgro un dColor'isequal(get(hObject,),'white' );'Backgro un dColor'),iffs1_Callback(hObject, even tdata, han dles) fs1_CreateFc n( hObject, eve ntdata,