ttraio.m

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

% ttraio

if (mttrai==0), 
   txt_tdir1=uicontrol(gcf,...  
   'Style','text',...
   'String',['Ther are no T_Traingulars defined'],...
   'Position',[60 230 240 20]);

   pb_OK =uicontrol(gcf,...
   'Style','push',...
   'String','OK','Position',[80 5 90 20],...
   'CallBack','set(txt_tdir1,''visible'',''off''); set(pb_OK,''visible'',''off'');');

end;

if (mttrai>0),
   mttrai1=0;
   figure(1);
   Frame1=uicontrol(gcf,...
   'Style','frame',...
   'Position',[45 40 375 220]);
   txt_tdir1=uicontrol(gcf,...  
   'Style','text',...
   'String',['T_Traingular Number: ',num2str(mttrai1)],...
   'Position',[60 230 240 20]);
   ttraio1;
   figure(1);  
   pb_OK3 =uicontrol(gcf,...
   'Style','push',...
   'String','Next T_Traingular','Position',[60 85 130 20],...
   'CallBack','if (mttrai1+1>0), if (mttrai1+1<=mttrai), ttraio1; else mttrai1=mttrai+1; disp(''no more T_Traingulars''); end; end; ');
   pb_OK1 =uicontrol(gcf,...
   'Style','push',...
   'String','Pre T_Traingular','Position',[200 85 130 20],...
   'CallBack',' if (mttrai1-1<=mttrai), if (mttrai1-1>0), mttrai1=mttrai1-2; ttraio1; else mttrai1=0; disp(''number of T_Traingulars below 1''); end; end;');
   pb_OK2 =uicontrol(gcf,...
   'Style','push',...
   'String','Cancel','Position',[340 85 60 20],...
   'CallBack','figure(1); set(pb_OK3,''visible'',''off'');set(pb_OK1,''visible'',''off'');set(pb_OK2,''visible'',''off''); set(txt_tdir1,''visible'',''off''); set(Frame1,''visible'',''off'');');
   figure(2);
   
end;