run1.m

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

%run_cg

figure(2);
clf;
set (gcf,'Position',[0.5 0.1 0.35 0.4],'Name','CG - FFT Run Parameters','NumberTitle','off','Units','normalized');
set(gcf,'Units','normalized','position',[0.45 0.1 0.42 0.4]);
Frame1=uicontrol(gcf,...
'Style','frame',...
'Position',[5 28 360 275]);

txt_tdir=uicontrol(gcf,...  
'Style','text',...
'String',['Frequency (MHz):'],...
'Position',[10 230 200 20]);
FRQ=uicontrol(gcf,'Style','edit', ...
'String','300', ...
'Position',[240 230 50 20]);
txt_tdir1=uicontrol(gcf,...  
'Style','text',...
'String',['Pol. (1- Theta) , (2 - Phi):'],...
'Position',[10 200 200 20]);
POL1=uicontrol(gcf,'Style','edit', ...
'String','2', ...
'Position',[240 200 40 20]);
txt_tdir2=uicontrol(gcf,...  
'Style','text',...
'String',['Cut Type: '],...
'Position',[10 180 200 20]);
txt_tdir2=uicontrol(gcf,...  
'Style','text',...
'String',['(0 - Phi const, 1- Theta const)'],...
'Position',[10 160 200 20]);
THPH=uicontrol(gcf,'Style','edit', ...
'String','1', ...
'Position',[240 160 40 20]);
txt_tdir3=uicontrol(gcf,...  
'Style','text',...
'String',['Start Angles,(theta+phi)'],...
'Position',[10 130 200 20]);
txt_tdir3=uicontrol(gcf,...  
'Style','text',...
'String',['step size and number of steps:'],...
'Position',[10 110 240 20]);
ANGLET=uicontrol(gcf,'Style','edit', ...
'String','90', ...
'Position',[240 130 40 20]);
ANGLEP=uicontrol(gcf,'Style','edit', ...
'String','00', ...
'Position',[290 130 40 20]);
STEPS=uicontrol(gcf,'Style','edit', ...
'String','10', ...
'Position',[240 110 40 20]);
NOSTEPS=uicontrol(gcf,'Style','edit', ...
'String','10', ...
'Position',[290 110 40 20]);

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