somtoolbox2/sompak_gui.m
4dbef185
 function sompak_gui()
 
 %SOMPAK_GUI  A GUI for using SOM_PAK functions from Matlab.
 %
 %  sompak_gui
 %
 % Launches a GUI which allows the use of SOM_PAK functions from
 % Matlab. Notice that to use this function, the SOM_PAK programs must
 % be in your search path, or the variable 'SOM_PAKDIR' which is a
 % string containing the program path, must be defined in the
 % workspace. SOM_PAK programs can be found from:
 % http://www.cis.hut.fi/research/som_lvq_pak.shtml
 %  
 % See also SOM_GUI, SOMPAK_INIT_GUI, SOMPAK_SAMMON_GUI, SOMPAK_TRAIN_GUI.
 
 % Contributed to SOM Toolbox 2.0, February 2nd, 2000 by Juha Parhankangas
 % Copyright (c) by Juha Parhankangas
 % http://www.cis.hut.fi/projects/somtoolbox/
 
 % Juha Parhankangas 050100
 
 h=findobj(get(0,'Children'),'Tag','sompak_gui');
 if ~isempty(h)
   figure(h);
   return;
 end
 
 a = figure('Color',[0.8 0.8 0.8], ...
 	'PaperType','a4letter', ...
 	'Position',[689 536 210 70], ...
 	'Tag','sompak_gui');
 b = uicontrol('Parent',a, ...
 	'Units','points', ...
 	'BackgroundColor',[0.701961 0.701961 0.701961], ...
         'Callback','sompak_init_gui',...
 	'FontWeight','demi', ...
 	'Position',[8 30 50 20], ...
 	'String','INIT', ...
 	'Tag','Pushbutton1');
 b = uicontrol('Parent',a, ...
 	'Units','points', ...
 	'BackgroundColor',[0.701961 0.701961 0.701961], ...
         'Callback','sompak_train_gui',...
 	'FontWeight','demi', ...
 	'Position',[63 30 50 20], ...
 	'String','TRAIN', ...
 	'Tag','Pushbutton2');
 b = uicontrol('Parent',a, ...
 	'Units','points', ...
 	'BackgroundColor',[0.701961 0.701961 0.701961], ...
         'Callback','sompak_sammon_gui',...
 	'FontWeight','demi', ...
 	'Position',[118 30 50 20], ...
 	'String','SAMMON', ...
 	'Tag','Pushbutton3');
 b = uicontrol('Parent',a, ...
 	'Units','points', ...
 	'BackgroundColor',[0.701961 0.701961 0.701961], ...
 	'Callback','close gcf', ...
 	'FontSize',9, ...
 	'FontWeight','demi', ...
 	'Position',[128 5 40 15], ...
 	'String','Close', ...
 	'Tag','Pushbutton4');