cg_fft.m

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

clear all;
figure(1);
clf;
set (gcf,'Name','CG - FFT, File: Nonname','NumberTitle','off')
set(gcf,'Units','normalized','Position',[0.2 0.4 0.6 0.48],'MenuBar','none');
figure(1);
U=1;
U_Old=U;
mbox=0;
melipsoid=0;
mtcone=0;
mttrai=0;
x=[];
y=[];
z=[];
ep1=[];
ep2=[];
xec=[];
yec=[];
zec=[];
tes=[];
tee=[];
pes=[];
pee=[];
ae=[];
be=[];
ce=[];
epel1=[];
epel2=[];
gridd=[];
ztte=[];
eptt1=[];
eptt2=[];
xtts=[];ytts=[];ztts=[];
xtte=[];ytte=[];ztte=[];
xtcs=[];ytcs=[];ztcs=[];
xtce=[];ytce=[];ztce=[];
rtcs=[];rtce=[];
ptcs=[];ptce=[];
eptc1=[];eptc2=[];
nx=8;
ny=8;
nz=8;
dx=1;
dy=1;
dz=1;

Type_gcfile=uimenu(gcf,'Label','CG-File');
   OpenF=uimenu(Type_gcfile,'Label','Open','CallBack','open1');
   SaveF=uimenu(Type_gcfile,'Label','Save','CallBack','save1');
   ExitF=uimenu(Type_gcfile,'Label','Exit','CallBack','close(''all''); fclose(''all''); clear all;');
Type_config=uimenu(gcf,'Label','Configuration');
   GlobalCS=uimenu(Type_config,'Label','Global and Cell Size','CallBack','gcz');
   Units=uimenu(Type_config,'Label','Units');
   Meters=uimenu(Units,'Label','Meters','CallBack','U_Old=U; U=1; chku;','Checked','on');
   mMeters=uimenu(Units,'Label','mMeters','CallBack','U_Old=U; U=0.001; chku;');
   cmMeters=uimenu(Units,'Label','cm','CallBack','U_Old=U; U=0.01; chku;');
   Inches=uimenu(Units,'Label','inches','CallBack','U_Old=U; U=0.0254; chku; ');
Type_Obj=uimenu(gcf,'Label','Insert/Edit Geometry ');
   Box=uimenu(Type_Obj,'Label','Rectangular Box');
      BoxNew=uimenu(Box,'Label','New','CallBack','box');
      BoxOld=uimenu(Box,'Label','Old (View/Change)','CallBack','boxo');
   Elipsoid=uimenu(Type_Obj,'Label','Elipsoid');
      ElipNew=uimenu(Elipsoid,'Label','New','CallBack','elipsoid');
      ElipOld=uimenu(Elipsoid,'Label','Old (View/Change)','CallBack','elipsoo');
   T_Cone=uimenu(Type_Obj,'Label','Trancated Cone');
      T_ConeNew=uimenu(T_Cone,'Label','New','CallBack','tcone');
      T_ConeOld=uimenu(T_Cone,'Label','Old (View/Change)','CallBack','tconeo');
   T_train=uimenu(Type_Obj,'Label','Trancated Triangular');
      T_trainNew=uimenu(T_train,'Label','New','CallBack','ttrai');
      T_trainOld=uimenu(T_train,'Label','Old (View/Change)','CallBack','ttraio');
   Load_From_File=uimenu(Type_Obj,'Label','Translate from surface and grid it','CallBack','gr2');

Type_view=uimenu(gcf,'Label','View Geometry');
   Gridded=uimenu(Type_view,'Label','GRIDDED Geometry','CallBack','gr1');
   Data=uimenu(Type_view,'Label','Data');
Type_run=uimenu(gcf,'Label','Compute CG-FFT');
   run=uimenu(Type_run,'Label','run the computation','CallBack','run1');