example74index.m

该系统使用极其简便

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

clc;
clear;
close;
%竞争神经网络
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方法分析模式向量并验证PCA网络','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个模式向量： 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','用统计PCA方法进行分析：','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','协方差矩阵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','其对应的特征值为 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','前两个最大特征值的方差贡献率为100%，第一个最大特征值的方差贡献率为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','分别验证由基于oja算法和sanger算法的PCA网络','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);


%网络参数设置
uicontrol(Hcomp4,'style','text','units','normalized','position',[0.58 0.7 0.3 0.1],...
   'string','网络参数设置','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','最大训练步数：','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','学习速率：','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','网络测试输入：','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','分 类 结 果','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']);


%查看函数
uicontrol(Hcomp4,'style','push','units','normalized','position',[0.78 0.25 0.20 0.1],...
   'string','查看网络函数','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','退出系统','callback','close(Hcomp4)','fontsize',12);