%[exm11432_1.m]
clf reset
set(gcf, 'unit' , 'normalized' , 'position' ,[0.1,0.2,0.64,0.35]);
set(gcf, 'defaultuicontrolunits' , 'normalized' );
set(gcf, 'defaultuicontrolfontsize' ,12);
set(gcf, 'defaultuicontrolfontname' , ' 隸書 ' );
set(gcf, 'defaultuicontrolhorizontal' , 'left' );
str= ' 歸一化二階系統階躍響應曲線 ' ;
set(gcf, 'name' ,str, 'numbertitle' , 'off' ); % 書寫圖形窗名
h_axes=axes( 'position' ,[0.05,0.2,0.6,0.7]); % 定義軸位框位置
set(h_axes, 'xlim' ,[0,15]); % 設置時間軸長度
str1= ' 當前阻尼比 =' ;
t=0:0.1:10;z=0.5;y=step(1,[1 2*z 1],t);
hline=plot(t,y);
htext=uicontrol(gcf, 'style' , 'text' , ... % 制作靜態說明文本框 <14>
'position' ,[0.67,0.8,0.33,0.1], ...
'string' ,[str1,sprintf( '%1.4g\' ,z)]);
hslider=uicontrol(gcf, 'style' , 'slider' , ... % 創建滑動鍵 <17>
'position' ,[0.67,0.65,0.33,0.1], ...
'max' ,2.02, 'min' ,0.02, ... % 設最大阻尼比為 2 ，最小阻尼比為 0.02 <19>
'sliderstep' ,[0.01,0.05], ... % 箭頭操縱滑動步長 1% ，游標滑動步長 5% <20>
'Value' ,0.5); % 缺省取阻尼比等于 0.5 <21>
hcheck1=uicontrol(gcf, 'style' , 'checkbox' , ... % 創建峰值檢錄框 <22>
'string' , ' 最大峰值 ' , ...
'position' ,[0.67,0.50,0.33,0.11]);
vchk1=get(hcheck1, 'value' ); % 獲得峰值檢錄框的狀態值 <25>
hcheck2=uicontrol(gcf, 'style' , 'checkbox' , ... % 創建上升時間檢錄框 <26>
'string' , ' 上升時間 (0->0.95)' , ...
'position' ,[0.67,0.35,0.33,0.11]);

vchk2=get(hcheck2, 'value' ); % 獲得上升時間檢錄框的狀態值 <29>
set(hslider, 'callback' ,[ ... % 操作滑動鍵 , 引起回調 <30>
'z=get(gcbo,''value'');' , ... % 獲得滑動鍵狀態值 <31>
'callcheck(htext,str1,z,vchk1,vchk2)' ]); % 被回調的函數文件 <32>
set(hcheck1, 'callback' ,[ ... % 操作峰值檢錄框 , 引起回調 <33>
'vchk1=get(gcbo,''value'');' , ... % 獲得峰值檢錄框狀態值 <34>
'callcheck(htext,str1,z,vchk1,vchk2)' ]); % 被回調的函數文件 <35>
set(hcheck2, 'callback' ,[ ... % 操作峰值檢錄框 , 引起回調 <36>
'vchk2=get(gcbo,''value'');' , ... % 獲得峰值檢錄框狀態值 <37>
'callcheck(htext,str1,z,vchk1,vchk2)' ]); % 被回調的函數文件 <38>