main.m

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

%  Mind-MACHINE INTERACTION RESEARCH CENTER	         
% 									                                          
%  Programmer     :  Ching-Jang Wu	                    
%  Advisor	     :   Dr. Childers		                              
%
% Rewritten completely : Karthik
% Mofified by D. G. Childers 5/20/98

close all;
clear;
clc;

%Setting the path
%path(path,'.\Ribbon1');
%path(path,'.\Twomass');
%path(path,'.\Twomass\uicontrols');
%path(path,'.\Twomass\temp');
%path(path,'.\Utilities');
path('.\Ribbon1',path);
path('.\Twomass',path);
path('.\Twomass\uicontrols',path);
path('.\Twomass\temp',path);
path('.\Utilities',path);

BACK_COLOR = [1 1 1];
TEXT_COLOR = [0 0 0];
fcolor = [0.5 0.5 0.5];

global check;
check = 1;
global catch2;
global catch1;
catch2 = 'check = 0;';
catch1 = 'break;';


PV = [2 294 300 190];
s2 = 'Flexible 3-D Models of Vocal Fold Vibrations';

% Open analysis window

while exist('main_window')==1

   try1 = 'get(main_window,''position'');';
   eval(try1,catch2);
   if check ==0
      clear main_window;
      check = 1;
      break;
   end

   s1 = get(main_window,'Name');
   if ~strcmp(s1,s2)
      clear main_window;
      break;
   end

   figure(main_window);
   break;
end;


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

   
   % The CONSOLE frame

   main_frame = uicontrol('Style','frame', ...
      'Position',[15 20 270 270],...
      'BackGroundColor',BACK_COLOR);


   % The Source Model Push buttons 

   uicontrol('Style','Pushbutton',...
      'String','Two-Mass Model',...
      'Position', [25 140 250 30], ...
      'CallBack','twomass_main');

   
   uicontrol('Style','Pushbutton',...
      'String','Ribbon Model',...
      'Position', [25 90 250 30],...
      'CallBack','Ribbon1_main');

   uicontrol('Style','Pushbutton',...
      'String','Quit',...
      'Position', [25 40 250 30],...
      'CallBack','close_main');

end