%
%  Name: mcmenu.m
% 
%  Usage: mcmenu
% 
%  Description:
%     Initializes model correlation menus
%

%  Version SWD970402
%
%  Author(s): Scott W. Doebling, doebling@lanl.gov
%
%  Institution: Los Alamos National Laboratory,
%		ESA-EA
%
%  Copyright (c) 1997, The Regents of the University
%     	of California. (See top level of code for
%        full copyright statement)
%

%=============================================
% Model based Load/Save menu
%=============================================
hmmenu(9)=uimenu(figNumber,'Label','Load/Save','enable','on');  
   uimenu(hmmenu(9),'Label','Load Undamaged Modes','Callback', ...
	['[filename,pathname,error]=loadfile(1,pathname);', ...
  	 'if error==0,',...
	    'damsuf = ''_u''; lddammo;',...
	    'disp(''Undamaged Modes Loaded''),',...
	 'end;']);
   uimenu(hmmenu(9),'Label','Load Damaged Modes','Callback', ...
	['[filename,pathname,error]=loadfile(1,pathname);', ...
         'if error==0,',...
	      'damsuf = ''_d''; lddammo;',...
	    'disp(''Damaged Modes Loaded''),',...
	   'end;']);
   uimenu(hmmenu(9),'Label','Load Undamaged Model','Callback', ...
	['[filename,pathname,error]=loadfile(1,pathname);', ...
         'if error==0,',...
		'damsuf = ''_u''; loadmat;',...
		'disp(''Undamaged Model Matrices Loaded''),',...
	   'end;']);
	uimenu(hmmenu(9),'Label','Load Geometry','Callback', ...
             ['[filename,pathname,error]=loadfile(1,pathname);', ...
                'if error==0,',...
                '   loadgeom,',...
                'end;']);


%=============================================
% Methods menu
%=============================================
hmmenu(10)=uimenu(figNumber,'Label','Methods','enable','on');
   uimenu(hmmenu(10),'Label','Mode Shape Expansion',...
	'Callback','msewind');  
   uimenu(hmmenu(10),'Label','Min. Rank Perturbation (MRPT)',...
	'Callback','mrptwind');
   uimenu(hmmenu(10),'Label','Method 2','Callback', ...
	'disp(''This option is not operational yet'')','enable','off');

