cg1.m

来自「This software gave volume MoM solution b」· M 代码 · 共 15 行

mone=mone+1;
txt_tdir=uicontrol(gcf,...
'Style','text',...
'String',['Object Number: ',num2str(mone)],...
'Position',[60 190 240 20]);
Type_Obj=uimenu(gcf,'Label',' Choose Object ');
   Box=uimenu(Type_Obj,'Label','Rectangular Box','CallBack','box');
   Elipsoid=uimenu(Type_Obj,'Label','Elipsoid');
   T_Cone=uimenu(Type_Obj,'Label','Trancated Cone');
pb_OK =uicontrol(gcf,...
'Style','push',...
'String','OK','Position',[160 10 190 25],...
'CallBack','box1');