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