wrls_main.m

这是一个用于语音信号处理的工具箱

%Main Callback function for Weighted Recursive Least Squares Algorithm 
%with Variable Forgetting Factor
%Author : Karthik
clc;

%Some variables and their default values

wrls_num_poles = 14;
wrls_num_zeros = 4;
vec_length = wrls_num_poles + wrls_num_zeros;
lambda_min = (1-1/vec_length);
e1 = 100;


% Set position and size of analysis window
PV=[2 169 287 219];
s2 = 'WRLS - VFF Analysis';

% Open analysis window	
while exist('wrls_an_win_h')==1
   try1 = 'get(wrls_an_win_h,''position'');';
   eval(try1,catch2);
   if check ==0
      clear wrls_an_win_h;
      check = 1;
      break;
   end
   s1 = get(wrls_an_win_h,'Name');
   if ~strcmp(s1,s2)
      clear wrls_an_win_h;
      break;
   end;
   figure(wrls_an_win_h);
   break;
end;

if exist('wrls_an_win_h') ~= 1
   wrls_an_win_h=figure('Position',PV,...
      'Resize','on',...
      'Numbertitle','off',...
      'Color',BACK_COLOR,...
      'Name',s2);
   

   wrls_np_txt_h = uicontrol('Style','Pushbutton',...
      'Position',[10 170 130 30],...
      'String','Number of Poles');
   
   wrls_np_edit_h=uicontrol('Style','edit',...
      'Position',[150 175 40 20],...
      'String',num_poles,...
      'Callback','wrls_np_edit');
   
   wrls_np_slider_h =uicontrol('Style','slider',...
      'Position',[190 175 90 20],...
      'Max',14,...
      'Min',2,...
      'Value', wrls_num_poles,...
      'Callback','wrls_np_slider');
   
   wrls_nz_txt_h=uicontrol('Style','Pushbutton',...
      'Position',[10 120 130 30],...
      'String','Number of zeros');
   
   wrls_nz_edit_h=uicontrol('Style','edit',...
      'Position',[150 125 40 20],...
      'String',wrls_num_zeros,...
      'Callback','wrls_nz_edit');
   
   wrls_nz_slider_h=uicontrol('Style','slider',...
      'Position',[190 125 90 20],...
      'Max',10,...
      'Min',0,...
      'Value', wrls_num_zeros,...
      'Callback','wrls_nz_slider');
   
   wrls_lambda_txt_h=uicontrol('Style','Pushbutton',...
      'Position',[10 70 70 30],...
      'String','Lambda min');
   
   wrls_lambda_edit_h = uicontrol('Style','edit',...
      'Position',[90 70 50 30],...
      'String',lambda_min);
   
   wrls_e1_txt_h=uicontrol('Style','Pushbutton',...
      'Position',[150 70 70 30],...
      'String','Error( >100)');
   
   wrls_e1_edit_h = uicontrol('Style','edit',...
      'Position',[230 70 50 30],...
      'String',e1);

       
   wrls_go_h = uicontrol('Style','pushbutton',...
      'Position',[10 20 130 30],...
      'String','Go',...
      'Callback','wrls_go');
   
   wrls_cancel_h=uicontrol('Style','pushbutton',...
      'Position',[150 20 130 30],...
      'String','Cancel',...
      'Callback','wrls_ca');
end;