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