example32index.m

是一个用MATLAB编的一个系统

%example32index
%==============
%==============

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

%界面说明
uicontrol(Hrbf1,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string','例2. 试用RBF网络解决"异或"问题','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');

%框架
uicontrol(Hrbf1,'style','frame','units','normalized','position',[0.1 0.39 0.43 0.41],...
   'back',[0.8 0.8 0.8]);

uicontrol(Hrbf1,'style','text','units','normalized','position',[0.12 0.68 0.4 0.1],...
   'string',' RBF网络实现异或功能:','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf1,'style','text','units','normalized','position',[0.12 0.61 0.4 0.1],...
   'string',' 可将问题转化为：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf1,'style','text','units','normalized','position',[0.12 0.54 0.4 0.1],...
   'string',' 输入矢量　P=[0　0　1　1','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf1,'style','text','units','normalized','position',[0.12 0.47 0.4 0.1],...
   'string','  　　　　　　 0　1　0　1]；','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf1,'style','text','units','normalized','position',[0.12 0.40 0.4 0.1],...
   'string',' 目标矢量　T=[0　1　1　0]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

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

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

uicontrol(Hrbf1,'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);
Hrbf1_error=uicontrol(Hrbf1,'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(Hrbf1,'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 );
Hrbf1_disp=uicontrol(Hrbf1,'style','edit','units','normalized','position',[0.58 0.24 0.13 0.05],...
   'string','1','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

%验证网络
% uicontrol(Hrbf1,'style','text','units','normalized','position',[0.10 0.24 0.2 0.1],...
%    'string','验证异或问题：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
% 
% uicontrol(Hrbf1,'style','text','units','normalized','position',[0.14 0.22 0.13 0.05],...
%    'string','测试输入：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
% input=uicontrol(Hrbf1,'style','edit','units','normalized','position',[0.26 0.23 0.13 0.05],...
%    'string','','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
% 
% uicontrol(Hrbf1,'style','text','units','normalized','position',[0.14 0.12 0.13 0.05],...
%    'string','测试输出：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
% output=uicontrol(Hrbf1,'style','edit','units','normalized','position',[0.26 0.13 0.13 0.05],...
%    'string','','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);



%按钮
uicontrol(Hrbf1,'style','push','units','normalized','position',[0.78 0.75 0.16 0.08],...
   'string','输入输出图示','callback','example32_figure','fontsize',12);

uicontrol(Hrbf1,'style','push','units','normalized','position',[0.78 0.65 0.16 0.08],...
   'string','训练网络','fontsize',12,'callback',[...
                                              'M=get(Hrbf1_num,''string'');'...
                                              'Sc=get(Hrbf1_Sc,''string'');'...
                                              'err_goal=get(Hrbf1_error,''string'');'...
                                              'disp_freq=get(Hrbf1_disp,''string'');'...
                                              'example32']);

uicontrol(Hrbf1,'style','push','units','normalized','position',[0.78 0.55 0.16 0.08],...
   'string','显示误差曲线','callback','example32_error','fontsize',12);

uicontrol(Hrbf1,'style','push','units','normalized','position',[0.78 0.45 0.16 0.08],...
   'string','验证网络','fontsize',12,'callback',['example32_test']);

% uicontrol(Hrbf1,'style','push','units','normalized','position',[0.26 0.02 0.13 0.06],...
%    'string','清除','fontsize',12,'callback','example32_clear');
   

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

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