%perc1index
%==============
%==============
clc;
clear;
close;
%感知器實驗
Hper1=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example2.1','numbertitle','off');

%界面說明
uicontrol(Hper1,'style','text','units','normalized','position',[0.1 0.8 0.6 0.15],...
   'horizontal','center','string','例1. 用單層感知器實現邏輯"與"和"或"運算。','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');

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

uicontrol(Hper1,'style','text','units','normalized','position',[0.12 0.68 0.42 0.1],...
   'string','  邏輯"與"運算','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hper1,'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(Hper1,'style','text','units','normalized','position',[0.12 0.54 0.42 0.1],...
   'string','  輸入矢量　P=[0 0 1 1;','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hper1,'style','text','units','normalized','position',[0.12 0.47 0.42 0.1],...
   'string','  　　　　　　0 1 0 1]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hper1,'style','text','units','normalized','position',[0.12 0.40 0.42 0.1],...
   'string','  目標矢量　T=[0 0 0 1]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hper1,'style','text','units','normalized','position',[0.12 0.33 0.42 0.1],...
   'string','  邏輯"或"運算相類似','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);


%網絡參數設置
uicontrol(Hper1,'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(Hper1,'style','text','units','normalized','position',[0.58 0.62 0.2 0.1],...
   'string','最大訓練步數：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hper1_step=uicontrol(Hper1,'style','edit','units','normalized','position',[0.58 0.62 0.13 0.05],...
   'string','20','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hper1,'style','text','units','normalized','position',[0.58 0.37 0.2 0.1],...
   'string','驗證訓練后的網絡','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hper1,'style','push','units','normalized','position',[0.62 0.35 0.08 0.06],...
   'string','確 定','fontsize',12,'callback','example21_test');



%按鈕
uicontrol(Hper1,'style','push','units','normalized','position',[0.78 0.7 0.16 0.1],...
   'string','輸入輸出圖示','callback','example21_figure','fontsize',12);

uicontrol(Hper1,'style','push','units','normalized','position',[0.78 0.57 0.16 0.1],...
   'string','運行程序','fontsize',12,'callback',[...
       'max_epoch=get(Hper1_step,''string'');'...
       'example21']);
uicontrol(Hper1,'style','push','units','normalized','position',[0.78 0.44 0.16 0.1],...
   'string','單步運行程序','fontsize',12,'callback',[...
       'max_epoch=get(Hper1_step,''string'');'...       
       'example21a']);

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

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