ttraio1.m

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

% ttraio1

figure(1)
set (txt_tdir1,'String',['T_Traingular Number: ',num2str(mttrai1+1)]);

figure(2);
clf;
set (gcf,'Position',[0.5 0.1 0.35 0.4],'Name','Trancated Triangular Input Data Window','NumberTitle','off','Units','normalized')
set (gcf,'Units','normalized','Position',[0.45 0.1 0.45 0.4]);
Frame2=uicontrol(gcf,...
'Style','frame',...
'Position',[15 38 420 265]);

mttrai1=mttrai1+1;

txt_tdir=uicontrol(gcf,...  
'Style','text',...
'String',['Start of T_Traingular Cylinder:'],...
'Position',[20 250 220 20]);
txt_tdir=uicontrol(gcf,...  
'Style','text',...
'String',['(X Y Z)'],...
'Position',[20 230 220 20]);

XTTS(1)=uicontrol(gcf,'Style','edit', ...
'String',num2str(xtts(mttrai1,1)), ...
'Position',[240 230 50 20]);
YTTS(1)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ytts(mttrai1,1)), ...
'Position',[300 230 50 20]);
ZTTS(1)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ztts(mttrai1,1)), ...
'Position',[360 230 50 20]);

XTTS(2)=uicontrol(gcf,'Style','edit', ...
'String',num2str(xtts(mttrai1,2)), ...
'Position',[240 200 50 20]);
YTTS(2)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ytts(mttrai1,2)), ...
'Position',[300 200 50 20]);
ZTTS(2)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ztts(mttrai1,2)), ...
'Position',[360 200 50 20]);

XTTS(3)=uicontrol(gcf,'Style','edit', ...
'String',num2str(xtts(mttrai1,3)), ...
'Position',[240 170 50 20]);
YTTS(3)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ytts(mttrai1,3)), ...
'Position',[300 170 50 20]);
ZTTS(3)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ztts(mttrai1,3)), ...
'Position',[360 170 50 20]);

txt_tdir10=uicontrol(gcf,...  
'Style','text',...
'String',['End of T_Traingular Cylinder:'],...
'Position',[20 160 220 20]);
txt_tdir10=uicontrol(gcf,...  
'Style','text',...
'String',['(X Y Z)'],...
'Position',[20 140 220 20]);

XTTE(1)=uicontrol(gcf,'Style','edit', ...
'String',num2str(xtte(mttrai1,1)), ...
'Position',[240 140 50 20]);
YTTE(1)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ytte(mttrai1,1)), ...
'Position',[300 140 50 20]);
ZTTE(1)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ztte(mttrai1,1)), ...
'Position',[360 140 50 20]);

XTTE(2)=uicontrol(gcf,'Style','edit', ...
'String',num2str(xtte(mttrai1,2)), ...
'Position',[240 110 50 20]);
YTTE(2)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ytte(mttrai1,2)), ...
'Position',[300 110 50 20]);
ZTTE(2)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ztte(mttrai1,2)), ...
'Position',[360 110 50 20]);

XTTE(3)=uicontrol(gcf,'Style','edit', ...
'String',num2str(xtte(mttrai1,3)), ...
'Position',[240 80 50 20]);
YTTE(3)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ytte(mttrai1,3)), ...
'Position',[300 80 50 20]);
ZTTE(3)=uicontrol(gcf,'Style','edit', ...
'String',num2str(ztte(mttrai1,3)), ...
'Position',[360 80 50 20]);

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

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