%%example73index
%==============
%==============

clc;
clear;
close;
%競爭神經(jīng)網(wǎng)絡(luò)
Hcomp3=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example7.3','numbertitle','off');

%界面說明
uicontrol(Hcomp3,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string','例3．用學(xué)習(xí)矢量量化進行分類實驗','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');
%框架
uicontrol(Hcomp3,'style','frame','units','normalized','position',[0.1 0.1 0.45 0.7],...
   'back',[0.8 0.8 0.8]);

uicontrol(Hcomp3,'style','text','units','normalized','position',[0.12 0.68 0.42 0.1],...
   'string','輸入矢量P是平面上的10個點，','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp3,'style','text','units','normalized','position',[0.12 0.61 0.42 0.1],...
  'string','P= [ -3  -2  -2    0     0    0    0  +2  +2  +3 ;','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp3,'style','text','units','normalized','position',[0.12 0.56 0.42 0.1],...
    'string','          0  +1  -1  +2  +1   -1  -2  +1  -1    0 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp3,'style','text','units','normalized','position',[0.12 0.51 0.42 0.1],...
    'string','將其分成兩類','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp3,'style','text','units','normalized','position',[0.12 0.46 0.42 0.1],...
     'string','c= [ 1  1  1  2  2  2  2  1  1  1 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp3,'style','text','units','normalized','position',[0.12 0.41 0.42 0.1],...
    'string','用學(xué)習(xí)矢量量化通過有監(jiān)督學(xué)習(xí)實現(xiàn)分類功能。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
%網(wǎng)絡(luò)參數(shù)設(shè)置
uicontrol(Hcomp3,'style','text','units','normalized','position',[0.58 0.7 0.3 0.1],...
   'string','網(wǎng)絡(luò)參數(shù)設(shè)置','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hcomp3,'style','text','units','normalized','position',[0.58 0.62 0.2 0.1],...
   'string','最大訓(xùn)練步數(shù)：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12 );
Hcomp3_epoch=uicontrol(Hcomp3,'style','edit','units','normalized','position',[0.58 0.62 0.13 0.05],...
   'string','500','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp3,'style','text','units','normalized','position',[0.58 0.50 0.2 0.1],...
   'string','學(xué)習(xí)速率：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hcomp3_rate=uicontrol(Hcomp3,'style','edit','units','normalized','position',[0.58 0.50 0.13 0.05],...
   'string','0.5','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp3,'style','text','units','normalized','position',[0.58 0.37 0.2 0.1],...
   'string','網(wǎng)絡(luò)測試輸入：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hcomp3_test=uicontrol(Hcomp3,'style','edit','units','normalized','position',[0.58 0.37 0.13 0.06],...
   'string','[1 ; 0]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12,'Max',10);



%按鈕
uicontrol(Hcomp3,'style','push','units','normalized','position',[0.79 0.7 0.18 0.1],...
   'string','產(chǎn)生輸入矢量','callback','example73_figure','fontsize',12);

uicontrol(Hcomp3,'style','push','units','normalized','position',[0.79 0.57 0.18 0.1],...
   'string','運行程序','fontsize',12,'callback',[...
                                              'epoch=get(Hcomp3_epoch,''string'');'...
                                              'rate=get(Hcomp3_rate,''string'');'...                                         
                                               'example73']);

uicontrol(Hcomp3,'style','push','units','normalized','position',[0.79 0.44 0.18 0.1],...
   'string','分類結(jié)果','callback','example73_result','fontsize',12);

uicontrol(Hcomp3,'style','push','units','normalized','position',[0.58 0.28 0.08 0.06],...
   'string','確 定','fontsize',12,'callback',[...
                                  'input=get(Hcomp3_test,''string'');'... 
                                  'example73_test']);


%查看函數(shù)
uicontrol(Hcomp3,'style','push','units','normalized','position',[0.78 0.25 0.20 0.1],...
   'string','查看網(wǎng)絡(luò)函數(shù)','callback','NNfunctionindex','fontsize',12);

%退出
uicontrol(Hcomp3,'style','push','units','normalized','position',[0.78 0.13 0.20 0.1],...
   'string','返       回','callback','close(Hcomp3);NNindex16','fontsize',12);
uicontrol(Hcomp3,'style','push','units','normalized','position',[0.78 0.01 0.20 0.1],...
   'string','退出系統(tǒng)','callback','close(Hcomp3)','fontsize',12);