%hf7index
%==============
%==============clc;
clear;
close;
%Hopfield網絡實驗
Hhf7=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example5.7','numbertitle','off');

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


%框架
uicontrol(Hhf7,'style','frame','units','normalized','position',[0.1 0.3 0.45 0.5],...
   'back',[0.8 0.8 0.8]);
uicontrol(Hhf7,'style','text','units','normalized','position',[0.12 0.65 0.42 0.1],...
   'string','待識別的形狀:','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hhf7,'style','text','units','normalized','position',[0.12 0.58 0.42 0.1],...
   'string','1. 三角形','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hhf7,'style','text','units','normalized','position',[0.12 0.51 0.42 0.1],...
   'string','2. 四邊形','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hhf7,'style','text','units','normalized','position',[0.12 0.44 0.42 0.1],...
   'string','3. 八邊形','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);


%按鈕
uicontrol(Hhf7,'style','push','units','normalized','position',[0.78 0.7 0.16 0.1],...
   'string','訓練樣本','callback','example57_trainfigure','fontsize',12);

uicontrol(Hhf7,'style','text','units','normalized','position',[0.58 0.64 0.2 0.1],...
   'string','待識別形狀:','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hhf7_figure=uicontrol(Hhf7,'style','popup','units','normalized','position',[0.58 0.62 0.13 0.05],...
   'string','1|2|3','value',1,'UserData',['example57_1';'example57_2';'example57_3']);
uicontrol(Hhf7,'style','push','units','normalized','position',[0.78 0.59 0.16 0.1],...
   'string','形狀識別','fontsize',12,'callback',[...                                              
                                              'UD=get(Hhf7_figure,''UserData'');',...
                                           'eval(UD(get(Hhf7_figure,''value''),:))']);


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

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