example31index.m

NNDemo2.0是对神经网络实验演示系统NNDemo1.0的进一步增强与扩充

%example31index
%==============
%==============

clc;
clear;
close;
%BP网络实验
Hbp1=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example3.1','numbertitle','off');

%界面说明
uicontrol(Hbp1,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string','例1. 试用多层感知器解决"异或"问题','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');

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

uicontrol(Hbp1,'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(Hbp1,'style','text','units','normalized','position',[0.12 0.61 0.42 0.1],...
  'string','  可将问题转化为：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp1,'style','text','units','normalized','position',[0.12 0.54 0.42 0.1],...
   'string','  输入矢量　P=[0　0　1　1；','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp1,'style','text','units','normalized','position',[0.12 0.47 0.42 0.1],...
   'string','  　　　　　　 0　1　0　1]；','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp1,'style','text','units','normalized','position',[0.12 0.40 0.42 0.1],...
   'string','  目标矢量　T=[0　1　1　0]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

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

uicontrol(Hbp1,'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);
Hbp1_learn=uicontrol(Hbp1,'style','edit','units','normalized','position',[0.58 0.50 0.13 0.05],...
   'string','0.98','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hbp1,'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);
Hbp1_error=uicontrol(Hbp1,'style','edit','units','normalized','position',[0.58 0.37 0.13 0.05],...
   'string','0.02','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hbp1,'style','text','units','normalized','position',[0.58 0.24 0.2 0.1],...
   'string','隐层神经元数：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12 );
Hbp1_num=uicontrol(Hbp1,'style','edit','units','normalized','position',[0.58 0.24 0.13 0.05],...
   'string','2','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hbp1,'style','text','units','normalized','position',[0.58 0.11 0.2 0.1],...
   'string','显示划分结果：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp1,'style','push','units','normalized','position',[0.58 0.11 0.08 0.06],...
   'string','确 定','fontsize',12,'callback','example31_test');


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

uicontrol(Hbp1,'style','push','units','normalized','position',[0.78 0.57 0.16 0.1],...
   'string','运行程序','fontsize',12,'callback',[...
                                              'S1=get(Hbp1_num,''string'');'...
                                              'max_epoch=get(Hbp1_step,''string'');'...
                                              'err_goal=get(Hbp1_error,''string'');'...
                                              'lr=get(Hbp1_learn,''string'');'...
                                              'example31']);

uicontrol(Hbp1,'style','push','units','normalized','position',[0.78 0.44 0.16 0.1],...
   'string','显示误差曲线','callback','example31_error','fontsize',12);


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

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