nnindex11.m

神经网络VC++代码 人工神经网络原理及仿真实例.

%
%==============
%==============

clc;
clear;
%单层前向网络实验
Hbp=figure('color',[0.8 0.8 0.8],'position',[150 150 750 500],'name',...
   '单层前向网络实验仿真','numbertitle','off');

%界面说明
uicontrol(Hbp,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string','单层前向网络实验仿真','back',[0.8 0.8 0.8],...
   'fontsize',18,'fontWeight','bold');

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

uicontrol(Hbp,'style','text','units','normalized','position',[0.12 0.68 0.42 0.1],...
   'string','例1. 试用单层感知器，实现"与"和"或"运算。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp,'style','text','units','normalized','position',[0.12 0.61 0.42 0.1],...
   'string','例2. 用单层感知器解决一个简单的分类问题。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp,'style','text','units','normalized','position',[0.12 0.54 0.42 0.1],...
   'string','例3. 用单层感知器实现多个神经元的分类。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp,'style','text','units','normalized','position',[0.12 0.47 0.42 0.1],...
   'string','例4. 线性不可分输入矢量。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp,'style','text','units','normalized','position',[0.12 0.40 0.42 0.1],...
   'string','例5. 设计自适应元件，实现输入输出的变换关系。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp,'style','text','units','normalized','position',[0.12 0.33 0.42 0.1],...
   'string','例6. 用自适应线性元件解决多神经元网络的模式联想问题。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp,'style','text','units','normalized','position',[0.12 0.26 0.42 0.1],...
   'string','例7. 研究学习速率因子不同对LMS算法的影响。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);


%按钮与菜单
uicontrol(Hbp,'style','text','units','normalized','position',[0.57 0.70 0.4 0.1],...
   'string','请选择例题：','back',[0.8 0.8 0.8],'horizontal','center','fontsize',12);

Hbp_exp=uicontrol(Hbp,'style','popup','units','normalized','position',[0.7 0.63 0.14 0.1],...
   'string','例1|例2|例3|例4|例5|例6|例7','value',1,'UserData',['example21index';'example22index';'example23index';...
       'example24index';'example25index';'example26index';'example27index']);
uicontrol(Hbp,'style','push','units','normalized','position',[0.86 0.67 0.08 0.07],...
   'string','确 定','fontsize',12,'callback',[...
       'UD=get(Hbp_exp,''UserData'');',...
       'eval(UD(get(Hbp_exp,''value''),:))']);


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

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