tconeo1.m

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

%tconeo1

figure(1)
set (txt_tdir1,'String',['Trancated Cone Number: ',num2str(mtcone1+1)]);
figure(2);
clf;
set (gcf,'Position',[0.5 0.1 0.35 0.4],'Name','Trancated Cone Input Data Window','NumberTitle','off','Units','normalized')
set (gcf,'Units','normalized','Position',[0.45 0.1 0.45 0.4]);

mtcone1=mtcone1+1;

Frame2=uicontrol(gcf,...
'Style','frame',...
'Position',[5 37 420 300]);
txt_tdir=uicontrol(gcf,...  
'Style','text',...
'String',['Start of tcone  -  (X Y Z):'],...
'Position',[10 230 200 20],'HorizontalAlignment','Left');
XTCS=uicontrol(gcf,'Style','edit', ...
'String',num2str(xtcs(mtcone1)), ...
'Position',[240 230 50 20]);
YTCS=uicontrol(gcf,'Style','edit', ...
'String',num2str(ytcs(mtcone1)), ...
'Position',[300 230 50 20]);
ZTCS=uicontrol(gcf,'Style','edit', ...
'String',num2str(ztcs(mtcone1)), ...
'Position',[360 230 50 20]);

txt_tdir10=uicontrol(gcf,...  
'Style','text',...
'String',['End of tcone  -  (X Y Z):'],...
'Position',[10 200 200 20],'HorizontalAlignment','Left');
XTCE=uicontrol(gcf,'Style','edit', ...
'String',num2str(xtce(mtcone1)), ...
'Position',[240 200 50 20]);
YTCE=uicontrol(gcf,'Style','edit', ...
'String',num2str(ytce(mtcone1)), ...
'Position',[300 200 50 20]);
ZTCE=uicontrol(gcf,'Style','edit', ...
'String',num2str(ztce(mtcone1)), ...
'Position',[360 200 50 20]);

txt_tdir2=uicontrol(gcf,...  
'Style','text',...
'String',['Tcone Start and end radius: '],...
'Position',[10 170 200 20],'HorizontalAlignment','Left');
RS=uicontrol(gcf,'Style','edit', ...
'String',num2str(rtcs(mtcone1)), ...
'Position',[240 170 50 20]);
RE=uicontrol(gcf,'Style','edit', ...
'String',num2str(rtce(mtcone1)), ...
'Position',[300 170 50 20]);

txt_tdir3=uicontrol(gcf,...  
'Style','text',...
'String',['Tcone Start and End Theta:'],...
'Position',[10 140 210 20],'HorizontalAlignment','Left');
txt_tdir30=uicontrol(gcf,...  
'Style','text',...
'String',['(Symetric from Z positive axis) '],...
'Position',[10 120 200 20],'HorizontalAlignment','Left');
PS=uicontrol(gcf,'Style','edit', ...
'String',num2str(ptcs(mtcone1)), ...
'Position',[240 140 40 20]);
PE=uicontrol(gcf,'Style','edit', ...
'String',num2str(ptce(mtcone1)), ...
'Position',[290 140 40 20]);

txt_tdir9=uicontrol(gcf,...  
'Style','text',...
'String',['EP1 EP2 '],...
'Position',[60 40 140 20]);
EP1=uicontrol(gcf,'Style','edit', ...
'String',num2str(eptc1(mtcone1)), ...
'Position',[ 270 40 50 20]);
EP2=uicontrol(gcf,'Style','edit', ...
'String',num2str(eptc2(mtcone1)), ...
'Position',[ 330 40 50 20]);

pb_OK =uicontrol(gcf,...
'Style','push',...
'String','OK','Position',[80 10 90 25],...
'CallBack','tconeo2');