elipsoo1.m

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

% elipsoo1

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

figure(2);
clf;
set (gcf,'Position',[0.5 0.1 0.35 0.4],'Name','Elipsoid 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',[5 37 438 320]);
txt_tdir=uicontrol(gcf,...  
   'Style','text',...
   'String','X, Y, Z in Meters',...
   'Position',[30 260 200 20],'HorizontalAlignment','Left');

melipsoid1=melipsoid1+1;

txt_tdir=uicontrol(gcf,...  
'Style','text',...
'String',['Center of Elipsoid  -  (X Y Z)'],...
'Position',[10 230 200 20],'HorizontalAlignment','Left');
XEC=uicontrol(gcf,'Style','edit', ...
'String',num2str(xec(melipsoid1)), ...
'Position',[280 230 50 20]);
YEC=uicontrol(gcf,'Style','edit', ...
'String',num2str(yec(melipsoid1)), ...
'Position',[335 230 50 20]);
ZEC=uicontrol(gcf,'Style','edit', ...
'String',num2str(zec(melipsoid1)), ...
'Position',[390 230 50 20]);

txt_tdir2=uicontrol(gcf,...  
'Style','text',...
'String',['Elipsoid a b c '],...
'Position',[10 200 200 20],'HorizontalAlignment','Left');
A=uicontrol(gcf,'Style','edit', ...
'String',num2str(ae(melipsoid1)), ...
'Position',[280 200 50 20]);
B=uicontrol(gcf,'Style','edit', ...
'String',num2str(be(melipsoid1)), ...
'Position',[335 200 50 20]);
C=uicontrol(gcf,'Style','edit', ...
'String',num2str(ce(melipsoid1)), ...
'Position',[390 200 50 20]);


txt_tdir10=uicontrol(gcf,...  
'Style','text',...
'String',['Theta Start, Theta End, Phi Start, Phi End:'],...
'Position',[10 165 280 30],'HorizontalAlignment','Left');
TES=uicontrol(gcf,'Style','edit', ...
'String',num2str(tes(melipsoid1)), ...
'Position',[280 170 30 20]);
TEE=uicontrol(gcf,'Style','edit', ...
'String',num2str(tee(melipsoid1)), ...
'Position',[320 170 30 20]);
PES=uicontrol(gcf,'Style','edit', ...
'String',num2str(pes(melipsoid1)), ...
'Position',[360 170 30 20]);
PEE=uicontrol(gcf,'Style','edit', ...
'String',num2str(pee(melipsoid1)), ...
'Position',[400 170 30 20]);

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

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