example24index.m

该系统使用极其简便

%perc4index
%==============
%==============
clc;
clear;
close;
%感知器实验
Hper4=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example2.4','numbertitle','off');

%界面说明
uicontrol(Hper4,'style','text','units','normalized','position',[0.1 0.8 0.6 0.15],...
   'horizontal','center','string','例4. 线性不可分输入矢量。','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');

%框架
uicontrol(Hper4,'style','frame','units','normalized','position',[0.1 0.1 0.45 0.7],...
   'back',[0.8 0.8 0.8]);

uicontrol(Hper4,'style','text','units','normalized','position',[0.12 0.68 0.42 0.1],...
   'string','将二维的5组输入矢量分成2类：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hper4,'style','text','units','normalized','position',[0.12 0.54 0.42 0.1],...
   'string','输入矢量 P=[-0.5 0.5 0.3 0 0.8;','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hper4,'style','text','units','normalized','position',[0.12 0.47 0.42 0.1],...
   'string','                          -0.5 0.5 -0.5 1 0]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hper4,'style','text','units','normalized','position',[0.12 0.30 0.42 0.2],...
   'string','目标矢量 T=[1 1 0 0 0]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

%网络参数设置
uicontrol(Hper4,'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(Hper4,'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);
Hper4_step=uicontrol(Hper4,'style','edit','units','normalized','position',[0.58 0.62 0.13 0.05],...
   'string','20','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

%按钮
uicontrol(Hper4,'style','push','units','normalized','position',[0.78 0.7 0.16 0.1],...
   'string','输入输出图示','callback','example24_figure','fontsize',12);

uicontrol(Hper4,'style','push','units','normalized','position',[0.78 0.57 0.16 0.1],...
   'string','运行程序','fontsize',12,'callback',[...
       'max_epoch=get(Hper4_step,''string'');'...
       'example24']);
uicontrol(Hper4,'style','push','units','normalized','position',[0.78 0.44 0.16 0.1],...
   'string','单步运行程序','fontsize',12,'callback',[...
       'max_epoch=get(Hper4_step,''string'');'...       
       'example24a']);

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

%退出
uicontrol(Hper4,'style','push','units','normalized','position',[0.77 0.13 0.18 0.1],...
   'string','返       回','callback','close(Hper4);NNindex11','fontsize',12);
uicontrol(Hper4,'style','push','units','normalized','position',[0.77 0.01 0.18 0.1],...
   'string','退出系统','callback','close(Hper4)','fontsize',12);