boxo1.m

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

% boxo1

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

figure(2);
clf;
set (gcf,'Position',[0.5 0.1 0.35 0.4],'Name','Box View/Change 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',[25 28 400 275]);
txt_tdir=uicontrol(gcf,...  
   'Style','text',...
   'String','X, Y, Z in Meters',...
   'Position',[30 260 200 20]);

mbox1=mbox1+1;

for j=1:8,
   txt_tdir(j)=uicontrol(gcf,...  
   'Style','text',...
   'String',['Corner No ',num2str(j),'  (X Y Z)'],...
   'Position',[60 230-(j-1)*25 140 20]);
   X(j)=uicontrol(gcf,'Style','edit', ...
   'String',num2str(x(mbox1,j)), ...
   'Position',[ 240 230-(j-1)*25 50 20]);
   Y(j)=uicontrol(gcf,'Style','edit', ...
   'String',num2str(y(mbox1,j)), ...
   'Position',[ 300 230-(j-1)*25 50 20]);
   Z(j)=uicontrol(gcf,'Style','edit', ...
   'String',num2str(z(mbox1,j)), ...
   'Position',[ 360 230-(j-1)*25 50 20]);

end;

txt_tdir9=uicontrol(gcf,...  
'Style','text',...
'String',['EP1 EP2 '],...
'Position',[60 30 140 20]);
EP1=uicontrol(gcf,'Style','edit', ...
'String',num2str(ep1(mbox1)), ...
'Position',[ 270 30 50 20]);
EP2=uicontrol(gcf,'Style','edit', ...
'String',num2str(ep2(mbox1)), ...
'Position',[ 330 30 50 20]);


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