example72index.m

该系统使用极其简便

%%example72index
%==============
%==============

clc;
clear;
close;
%竞争神经网络
Hcomp2=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example7.2','numbertitle','off');

%界面说明
uicontrol(Hcomp2,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string','例2. 自组织特征映射模拟','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');
%框架
uicontrol(Hcomp2,'style','frame','units','normalized','position',[0.1 0.1 0.45 0.7],...
   'back',[0.8 0.8 0.8]);

uicontrol(Hcomp2,'style','text','units','normalized','position',[0.12 0.68 0.42 0.1],...
   'string','利用自组织特征映射进行模式映射：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hcomp2,'style','text','units','normalized','position',[0.12 0.61 0.42 0.1],...
  'string','输入矢量为二维矢量X，其分量x1，x2均匀地分布在区域{ (0<x1<1), (0<x2<1) }中','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
% uicontrol(Hcomp2,'style','text','units','normalized','position',[0.12 0.56 0.42 0.1],...
%    'string','均匀地分布在区域｛（０<Ｘ１<１）,','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
% uicontrol(Hcomp2,'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(Hcomp2,'style','text','units','normalized','position',[0.12 0.52 0.42 0.1],...
    'string','对具有8个输入节点，2个输出神经元的 SOM 网络进行训练，并观察网络的特征映射能力','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
% uicontrol(Hcomp2,'style','text','units','normalized','position',[0.12 0.41 0.42 0.1],...
%    'string','映射能力。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
%网络参数设置
uicontrol(Hcomp2,'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(Hcomp2,'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 );
Hcomp2_epoch=uicontrol(Hcomp2,'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(Hcomp2,'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);
Hcomp2_rate=uicontrol(Hcomp2,'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(Hcomp2,'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);
Hcomp2_test=uicontrol(Hcomp2,'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(Hcomp2,'style','push','units','normalized','position',[0.79 0.7 0.18 0.1],...
   'string','产生输入矢量','callback','example72_figure','fontsize',12);

uicontrol(Hcomp2,'style','push','units','normalized','position',[0.79 0.57 0.18 0.1],...
   'string','运行程序','fontsize',12,'callback',[...
                                              'epoch=get(Hcomp2_epoch,''string'');'...
                                              'rate=get(Hcomp2_rate,''string'');'...                                         
                                               'example72']);

uicontrol(Hcomp2,'style','push','units','normalized','position',[0.79 0.44 0.18 0.1],...
   'string','分类结果','callback','example72_result','fontsize',12);

uicontrol(Hcomp2,'style','push','units','normalized','position',[0.58 0.28 0.08 0.06],...
   'string','确 定','fontsize',12,'callback',[...
                                  'input=get(Hcomp2_test,''string'');'... 
                                  'example72_test']);


%查看函数
uicontrol(Hcomp2,'style','push','units','normalized','position',[0.78 0.25 0.20 0.1],...
   'string','查看网络函数','callback','NNfunctionindex','fontsize',12);

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