%example36index
%==============
%==============

clc;
clear;
close;

%BP網絡實驗
Hrbf3=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example3.6','numbertitle','off');

%界面說明
uicontrol(Hrbf3,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string','例6. 試用RBF網絡進行簡單的形狀識別','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');

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

uicontrol(Hrbf3,'style','text','units','normalized','position',[0.12 0.75 0.32 0.08],...
   'string','待識別形狀：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
%uicontrol(Hrbf3,'style','frame','units','normalized','position',[0.12 0.5 0.28 0.27],...
 %  'back',[0.8 0.8 0.8]);
Hrbf3_axes=axes('position',[0.12 0.5 0.28 0.27]);

uicontrol(Hrbf3,'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(Hrbf3,'style','frame','units','normalized','position',[0.12 0.11 0.28 0.27],...
   'back',[0.8 0.8 0.8]);
Hrbf3_recog=uicontrol(Hrbf3,'style','text','units','normalized','position',[0.121 0.112 0.278 0.266],...
   'back',[0.8 0.8 0.8]);

%網絡訓練說明
uicontrol(Hrbf3,'style','text','units','normalized','position',[0.5 0.70 0.3 0.1],...
   'string','自組織映射法訓練網絡','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hrbf3,'style','push','units','normalized','position',[0.53 0.65 0.16 0.08],...
   'string','訓練網絡','fontsize',12,'callback','example36Tr');

uicontrol(Hrbf3,'style','text','units','normalized','position',[0.5 0.45 0.2 0.1],...
   'string','網絡參數說明：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hrbf3,'style','text','units','normalized','position',[0.53 0.38 0.2 0.1],...
   'string','輸入層神經元32個;','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf3,'style','text','units','normalized','position',[0.53 0.33 0.2 0.1],...
   'string','隱含層神經元2個;','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf3,'style','text','units','normalized','position',[0.53 0.28 0.2 0.1],...
   'string','輸出層神經元3個。','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);



%按鈕

uicontrol(Hrbf3,'style','push','units','normalized','position',[0.78 0.75 0.16 0.08],...
   'string','待識別圖像','fontsize',12,'callback','example36_figure');
                                      
uicontrol(Hrbf3,'style','push','units','normalized','position',[0.78 0.65 0.16 0.08],...
   'string','Hough變換','fontsize',12,'callback','example36_Hough');
                                 
uicontrol(Hrbf3,'style','push','units','normalized','position',[0.78 0.55 0.16 0.08],...
   'string','顯示識別','fontsize',12,'callback', 'example36Re');                                             

%uicontrol(Hrbf3,'style','push','units','normalized','position',[0.78 0.55 0.16 0.08],...
 %  'string','顯示識別','fontsize',12,'callback',[...
  %                                             'set(Hrbf3_recog,''String'',''▲'',''fontsize'',65);']);
                                               
uicontrol(Hrbf3,'style','push','units','normalized','position',[0.78 0.45 0.16 0.08],...
   'string','清除顯示','fontsize',12,'callback','example36_clear');


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

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