%%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);