sbparset.m

来自「这是一个用于语音信号处理的工具箱」· M 代码 · 共 43 行

% subparset.m
% created by D. G. Childers 7/16/98


%set(curres_h,'Value',currsub(sfno));
set(curres_e_h,'String',currsub(sfno));
%set(totres_h,'Value',totfsub(sfno));
set(totres_e_h,'String',totfsub(sfno));
set(subresi_h,'Value',R(sfno));
set(subresi_e_h,'String',R(sfno));
set(subindu_h,'Value',L(sfno));
set(subindu_e_h,'String',L(sfno));
set(subcapa_h,'Value',C(sfno));
set(subcapa_e_h,'String',C(sfno));
%set(pole_e_h,'Value',pole(sfno));
%set(be_e_h,'Value',BW(sfno));

set(gloaream_h,'Value',Ag_model(sfno));
%set(gloaream_e_h,'String',Ag_model(sfno));
set(maxglo_area_h,'Value',Agmax(sfno));
set(maxglo_area_e_h,'String',Agmax(sfno));
set(wavedur_h,'Value',Ag_Td(sfno));
set(wavedur_e_h,'String',Ag_Td(sfno));
set(opendur_h,'Value',Ag_To(sfno));
set(opendur_e_h,'String',Ag_To(sfno));
set(closedur_h,'Value',Ag_Tc(sfno));
set(closedur_e_h,'String',Ag_Tc(sfno));

Re=get(subresi_h,'Value')*0.1;
In=get(subindu_h,'Value')*1e-5;
Ca=get(subcapa_h,'Value')*1e-7;
b=1.0/(Re*Ca);
c=1.0/(In*Ca);
d=1.0/Ca;
pole=round(sqrt(c)/(2*pi));
set(pole_e_h,'String',pole);
A = 2*c + 2*d^2 / Re^2 - b^2;
x1 =(A + sqrt(A^2-4*c^2)) / 2.0;
x2 =(A - sqrt(A^2-4*c^2)) / 2.0;
BW =round(abs(sqrt(x1)-sqrt(x2))/(2.0*pi));
set(bw_e_h,'String',BW);