exa6_15.m

有关matlab r2007的实用教程

clf reset
% 产生图形窗口和轴位框
H=axes('unit','normalized','position',[0,0,1,1],'visible','off');
set(gcf,'currentaxes',H);
text(0.12,0.93,'\fontname{楷书}归一化二阶系统的阶跃响应曲线','fontsize',13);
H_fig=get(H,'parent');
set(H_fig,'unit','normalized','position',[0.1,0.2,0.7,0.4]);
 h_axes=axes('parent',H_fig,...
            'unit','normalized','position',[0.1,0.14,0.5,0.7],...
            'xlim',[0 15],'ylim',[0 1.8],'fontsize',8);
        

% 静态文本和编辑框的编写
h_text=uicontrol(H_fig,'style','text',...
                'unit','normalized','position',[0.67,0.74,0.25,0.14],...
                'horizontal','left','string',{'输入阻尼系数','zeata='});
 h_edit=uicontrol(H_fig,'style','edit',...
                'unit','normalized','position',[0.67,0.59,0.25,0.14],...
                'horizontal','left',...
                'callback',[...
                'z=str2num(get(gcbo,''string''));',...
                't=0:0.1:15;',...
                'for k=1:length(z);',...
                'y(:,k)=step(1,[1 2*z(k) 1],t);',...
                'plot(t,y(:,k));',...
                'if(length(z)>1),hold on,end,',...
                'end;',...
                'hold off,']);
 

% 坐标轴控制按钮的生成
h_push1=uicontrol(H_fig,'style','push',...
               'unit','normalized','position',[0.67, 0.37 ,0.12 ,0.15],...
               'string','grid on','callback','grid on');
h_push2=uicontrol(H_fig,'style','push',...
               'unit','normalized','position',[0.67, 0.15 ,0.12 ,0.15],...
               'string','grid off','callback','grid off');

           
% 添加用户菜单
uimenu('Label','grid','callback','grid on,set(gca,''box'',''on'')')