comparison toolboxes/MIRtoolbox1.3.2/somtoolbox/sompak_gui.m @ 0:e9a9cd732c1e tip

first hg version after svn
author wolffd
date Tue, 10 Feb 2015 15:05:51 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:e9a9cd732c1e
1 function sompak_gui()
2
3 %SOMPAK_GUI A GUI for using SOM_PAK functions from Matlab.
4 %
5 % sompak_gui
6 %
7 % Launches a GUI which allows the use of SOM_PAK functions from
8 % Matlab. Notice that to use this function, the SOM_PAK programs must
9 % be in your search path, or the variable 'SOM_PAKDIR' which is a
10 % string containing the program path, must be defined in the
11 % workspace. SOM_PAK programs can be found from:
12 % http://www.cis.hut.fi/research/som_lvq_pak.shtml
13 %
14 % See also SOM_GUI, SOMPAK_INIT_GUI, SOMPAK_SAMMON_GUI, SOMPAK_TRAIN_GUI.
15
16 % Contributed to SOM Toolbox 2.0, February 2nd, 2000 by Juha Parhankangas
17 % Copyright (c) by Juha Parhankangas
18 % http://www.cis.hut.fi/projects/somtoolbox/
19
20 % Juha Parhankangas 050100
21
22 h=findobj(get(0,'Children'),'Tag','sompak_gui');
23 if ~isempty(h)
24 figure(h);
25 return;
26 end
27
28 a = figure('Color',[0.8 0.8 0.8], ...
29 'PaperType','a4letter', ...
30 'Position',[689 536 210 70], ...
31 'Tag','sompak_gui');
32 b = uicontrol('Parent',a, ...
33 'Units','points', ...
34 'BackgroundColor',[0.701961 0.701961 0.701961], ...
35 'Callback','sompak_init_gui',...
36 'FontWeight','demi', ...
37 'Position',[8 30 50 20], ...
38 'String','INIT', ...
39 'Tag','Pushbutton1');
40 b = uicontrol('Parent',a, ...
41 'Units','points', ...
42 'BackgroundColor',[0.701961 0.701961 0.701961], ...
43 'Callback','sompak_train_gui',...
44 'FontWeight','demi', ...
45 'Position',[63 30 50 20], ...
46 'String','TRAIN', ...
47 'Tag','Pushbutton2');
48 b = uicontrol('Parent',a, ...
49 'Units','points', ...
50 'BackgroundColor',[0.701961 0.701961 0.701961], ...
51 'Callback','sompak_sammon_gui',...
52 'FontWeight','demi', ...
53 'Position',[118 30 50 20], ...
54 'String','SAMMON', ...
55 'Tag','Pushbutton3');
56 b = uicontrol('Parent',a, ...
57 'Units','points', ...
58 'BackgroundColor',[0.701961 0.701961 0.701961], ...
59 'Callback','close gcf', ...
60 'FontSize',9, ...
61 'FontWeight','demi', ...
62 'Position',[128 5 40 15], ...
63 'String','Close', ...
64 'Tag','Pushbutton4');
65
66
67
68
69