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