example61index.m

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

%%example61index
%==============
%==============
clc;
clear;
close;

%随机网络实验
Hsa1=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example6.1','numbertitle','off');

%界面说明
uicontrol(Hsa1,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string','例1. 仿真3个神经元的Boltzmann机的运行过程','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');

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

uicontrol(Hsa1,'style','text','units','normalized','position',[0.12 0.68 0.42 0.1],...
   'string','仿真Boltzmann机的运行过程：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hsa1,'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(Hsa1,'style','text','units','normalized','position',[0.12 0.35 0.42 0.3],...
   'string','权值矩阵W＝[0 0.55 0.45; 0.55 0 0.2; 0.45 0.2 0]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hsa1,'style','text','units','normalized','position',[0.12 0.25 0.42 0.3],...
   'string','阈值矩阵B＝[-0.65 -0.3 -0.4]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

%网络参数设置
uicontrol(Hsa1,'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(Hsa1,'style','text','units','normalized','position',[0.58 0.65 0.2 0.1],...
   'string','V1初始状态:','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12 );
Hsa1_va=uicontrol(Hsa1,'style','edit','units','normalized','position',[0.58 0.65 0.13 0.05],...
   'string','0','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hsa1,'style','text','units','normalized','position',[0.58 0.53 0.2 0.1],...
   'string','V2初始状态:','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hsa1_vb=uicontrol(Hsa1,'style','edit','units','normalized','position',[0.58 0.53 0.13 0.05],...
   'string','0','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hsa1,'style','text','units','normalized','position',[0.58 0.40 0.2 0.1],...
   'string','V3初始状态:','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hsa1_vc=uicontrol(Hsa1,'style','edit','units','normalized','position',[0.58 0.40 0.13 0.05],...
   'string','0','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hsa1,'style','text','units','normalized','position',[0.58 0.27 0.2 0.1],...
   'string','网络初始温度To:','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hsa1_T0=uicontrol(Hsa1,'style','edit','units','normalized','position',[0.58 0.27 0.13 0.05],...
   'string','5','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hsa1,'style','text','units','normalized','position',[0.58 0.14 0.2 0.1],...
   'string','降温系数:','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hsa1_Lanmda=uicontrol(Hsa1,'style','edit','units','normalized','position',[0.58 0.14 0.13 0.05],...
   'string','0.8','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

%按钮
uicontrol(Hsa1,'style','push','units','normalized','position',[0.78 0.7 0.16 0.1],...
   'string','运行程序','fontsize',12,'callback',[...            　　　　　　　　　　　　　　　　　       
                                              'va=get(Hsa1_va,''string'');'...
                                              'vb=get(Hsa1_vb,''string'');'...
                                              'vc=get(Hsa1_vc,''string'');'...
                                              'T_start=get(Hsa1_T0,''string'');'...
                                              'lanmda=get(Hsa1_Lanmda,''string'');'...                                         
                                               'example61']);

uicontrol(Hsa1,'style','push','units','normalized','position',[0.78 0.59 0.16 0.1],...
   'string','显示结果','callback',[...
                                  'disp(''网络神经元最终状态为：'');'...
                                        'disp(v)'],'fontsize',12);




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

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