tconeo.m

This software gave volume MoM solution by the CG-FFT method

% tconeo

if (mtcone==0), 
   txt_tdir1=uicontrol(gcf,...  
   'Style','text',...
   'String',['Ther are no T_cones 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 (mtcone>0),
   mtcone1=0;
   figure(1);
   Frame1=uicontrol(gcf,...
   'Style','frame',...
   'Position',[45 40 380 220]);
   txt_tdir1=uicontrol(gcf,...  
   'Style','text',...
   'String',['Trancated Cone Number: ',num2str(mtcone1)],...
   'Position',[60 230 240 20]);
   tconeo1;
   figure(1);
  
    pb_OK3 =uicontrol(gcf,...
   'Style','push',...
   'String','Next T_Cone','Position',[80 85 110 20],...
   'CallBack','if (mtcone1+1>0), if (mtcone1+1<=mtcone), tconeo1; else mtcone1=mtcone+1;  disp(''no more T_Cones''); end; end; ');
    pb_OK1 =uicontrol(gcf,...
   'Style','push',...
   'String','Previous T_Cone','Position',[200 85 140 20],...
   'CallBack',' if (mtcone1-1<=mtcone), if (mtcone1-1>0), mtcone1=mtcone1-2; tconeo1; else mtcone1=0;  disp(''number of box below 1''); end; end;');
    pb_OK2 =uicontrol(gcf,...
   'Style','push',...
   'String','Cancel','Position',[350 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;