%%example74index
%==============
%==============

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

%界面說明
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string','例4．用PCA方法分析模式向量并驗(yàn)證PCA網(wǎng)絡(luò)','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');
%框架
uicontrol(Hcomp4,'style','frame','units','normalized','position',[0.1 0.1 0.45 0.7],...
   'back',[0.8 0.8 0.8]);

uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.68 0.42 0.1],...
   'string','有4個(gè)模式向量： x1= [ 1  0  1 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.63 0.42 0.1],...
  'string','                               x2= [ 2  3  1 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.58 0.42 0.1],...
  'string','                               x3= [ 0  1  1 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.53 0.42 0.1],...
  'string','                               x4= [ 1  4  1 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.48 0.42 0.1],...
   'string','用統(tǒng)計(jì)PCA方法進(jìn)行分析：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.43 0.42 0.1],...
   'string','協(xié)方差矩陣COV(A)的特征向量為','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.38 0.42 0.1],...
   'string','u1= [  0.2298   0.9732  0 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);


uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.33 0.42 0.1],...
   'string','u2= [ -0.9732   0.2298  0 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.28 0.42 0.1],...
   'string','u3= [       0             0        1 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.23 0.42 0.1],...
   'string','其對(duì)應(yīng)的特征值為 a1= 2.618  a2= 0.382 a3= 0','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.18 0.42 0.1],...
   'string','前兩個(gè)最大特征值的方差貢獻(xiàn)率為100%，第一個(gè)最大特征值的方差貢獻(xiàn)率為87.27%','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.12 0.18 0.42 0.1],...
   'string','分別驗(yàn)證由基于oja算法和sanger算法的PCA網(wǎng)絡(luò)','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);


%網(wǎng)絡(luò)參數(shù)設(shè)置
uicontrol(Hcomp4,'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(Hcomp4,'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 );
Hcomp4_epoch=uicontrol(Hcomp4,'style','edit','units','normalized','position',[0.58 0.62 0.13 0.05],...
   'string','150','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp4,'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);
Hcomp4_rate=uicontrol(Hcomp4,'style','edit','units','normalized','position',[0.58 0.50 0.13 0.05],...
   'string','5e-2','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
% uicontrol(Hcomp4,'style','text','units','normalized','position',[0.58 0.37 0.2 0.1],...
%    'string','網(wǎng)絡(luò)測(cè)試輸入：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
% Hcomp4_test=uicontrol(Hcomp4,'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(Hcomp4,'style','push','units','normalized','position',[0.79 0.7 0.18 0.1],...
   'string','Oja 算法','fontsize',12,'callback',[...
                                              'epoch=get(Hcomp4_epoch,''string'');'...
                                              'rate=get(Hcomp4_rate,''string'');'...                                         
                                               'example74_oja']);
uicontrol(Hcomp4,'style','push','units','normalized','position',[0.79 0.57 0.18 0.1],...
   'string','Sanger 算法','fontsize',12,'callback',[...
                                              'epoch=get(Hcomp4_epoch,''string'');'...
                                              'rate=get(Hcomp4_rate,''string'');'...                                         
                                               'example74_sanger']);

% uicontrol(Hcomp4,'style','push','units','normalized','position',[0.78 0.44 0.20 0.1],...
%    'string','分 類 結(jié) 果','callback','example73_result','fontsize',12);

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


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

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