%example35index
%==============
%==============

clc;
clear;
close;
%BP網(wǎng)絡實驗
Hbp3=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example3.5','numbertitle','off');

%界面說明
uicontrol(Hbp3,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string','例5. 試用BP網(wǎng)絡進行0～9十個數(shù)字字符的識別','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');

%框架
%uicontrol(Hbp3,'style','frame','units','normalized','position',[0.08 0.08 0.37 0.78],...
 %  'back',[0.8 0.8 0.8]);

uicontrol(Hbp3,'style','text','units','normalized','position',[0.12 0.75 0.32 0.1],...
   'string','待識別數(shù)字：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
%uicontrol(Hbp3,'style','frame','units','normalized','position',[0.12 0.5 0.28 0.27],...
 %  'back',[0.8 0.8 0.8]);
Hbp3_axes=axes('position',[0.12 0.5 0.28 0.27]);


uicontrol(Hbp3,'style','text','units','normalized','position',[0.12 0.33 0.32 0.1],...
  'string','  識別結果：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hbp3,'style','frame','units','normalized','position',[0.12 0.11 0.28 0.27],...
   'back',[0.8 0.8 0.8]);
Hbp3_recog=uicontrol(Hbp3,'style','text','units','normalized','position',[0.121 0.112 0.278 0.266],...
   'back',[0.8 0.8 0.8]);

%網(wǎng)絡參數(shù)設置
uicontrol(Hbp3,'style','text','units','normalized','position',[0.54 0.7 0.3 0.1],...
   'string','網(wǎng)絡參數(shù)設置','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hbp3,'style','text','units','normalized','position',[0.54 0.62 0.2 0.1],...
   'string','最大訓練步數(shù)：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hbp3_step=uicontrol(Hbp3,'style','edit','units','normalized','position',[0.54 0.62 0.13 0.05],...
   'string','2000','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hbp3,'style','text','units','normalized','position',[0.54 0.50 0.2 0.1],...
   'string','學習速率：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hbp3_learn=uicontrol(Hbp3,'style','edit','units','normalized','position',[0.54 0.50 0.13 0.05],...
   'string','0.0005','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hbp3,'style','text','units','normalized','position',[0.54 0.37 0.2 0.1],...
   'string','期望誤差：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hbp3_error=uicontrol(Hbp3,'style','edit','units','normalized','position',[0.54 0.37 0.13 0.05],...
   'string','0.02','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hbp3,'style','text','units','normalized','position',[0.54 0.24 0.2 0.1],...
   'string','隱層神經(jīng)元數(shù)：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12 );
Hbp3_num=uicontrol(Hbp3,'style','edit','units','normalized','position',[0.54 0.24 0.13 0.05],...
   'string','16','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);



%按鈕
uicontrol(Hbp3,'style','push','units','normalized','position',[0.78 0.75 0.16 0.08],...
   'string','訓練網(wǎng)絡','fontsize',12,'callback',[...
                                              'S1=get(Hbp3_num,''string'');'...
                                              'max_epoch=get(Hbp3_step,''string'');'...
                                              'err_goal=get(Hbp3_error,''string'');'...
                                              'lr=get(Hbp3_learn,''string'');'...
                                              'example35Tr']);
                                      
uicontrol(Hbp3,'style','push','units','normalized','position',[0.78 0.65 0.16 0.08],...
   'string','待識別圖像','fontsize',12,'callback', 'example35_figure;');                             
                                                                                       

uicontrol(Hbp3,'style','push','units','normalized','position',[0.78 0.55 0.16 0.08],...
   'string','顯示識別','fontsize',12,'callback', 'example35Re');                     
                                                                                 
uicontrol(Hbp3,'style','push','units','normalized','position',[0.78 0.45 0.16 0.08],...
   'string','清除顯示','callback','example35_clear','fontsize',12);


%查看函數(shù)
uicontrol(Hbp3,'style','push','units','normalized','position',[0.77 0.3 0.18 0.1],...
   'string','查看網(wǎng)絡函數(shù)','callback','NNfunctionindex','fontsize',12);

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