elipsoo.m

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

% elipsoo

% Viewing/Changing Old Elipsoid Data.

if (melipsoid==0), 
   txt_tdir1=uicontrol(gcf,...  
   'Style','text',...
   'String',['Ther are no Elipsoids 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 (melipsoid>0),
   melipsoid1=0;
   figure(1);
   Frame1=uicontrol(gcf,...
   'Style','frame',...
   'Position',[45 40 360 220]);
   txt_tdir1=uicontrol(gcf,...  
   'Style','text',...
   'String',['Elipsoid Number: ',num2str(melipsoid1)],...
   'Position',[60 230 240 20],'HorizontalAlignment','Left');
   elipsoo1;
   figure(1);
  
   pb_OK3 =uicontrol(gcf,...
   'Style','push',...
   'String','Next Elipsoid','Position',[80 85 100 20],...
   'CallBack','if (melipsoid1+1>0), if (melipsoid1+1<=melipsoid), elipsoo1; else melipsoid1=melipsoid+1; disp(''No more Elipsoids''); end; end; ');
    pb_OK1 =uicontrol(gcf,...
   'Style','push',...
   'String','Previous Elipsoid','Position',[195 85 125 20],...
   'CallBack','if (melipsoid1-1<=melipsoid), if (melipsoid1-1>0), melipsoid1=melipsoid1-2; elipsoo1; else melipsoid1=0; disp(''Elipsoid No, below 1'');  end; end;');
    pb_OK2 =uicontrol(gcf,...
   'Style','push',...
   'String','Cancel','Position',[335 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;