%% Dipping anisotropy
%
% aD = [0 30 60 90] °

addpath(genpath('D:\em3d_MT\bin'));
addpath D:\em3d_MT\bin\Solver\Pardiso\panua-pardiso-20230718-win\lib ; % Pardiso
addpath D:\em3d_MT\bin\Solver\SuiteSparse-7.0.1\UMFPACK\MATLAB;    % SuiteSparse

%
% solver: 'Paradiso', 'umfpack', 'iluQMR', 'iluBicgstab'

solver = 'Paradiso'; 

OMP = 2; % Number of threads in OpenMP
% Set the OMP_NUM_THREADS environment variable
setenv('OMP_NUM_THREADS', num2str(OMP));
% Get the environment variable and verify if it is set successfully
getenv('OMP_NUM_THREADS')

aS=0;
aD=0;
epsrx=5;
epsry=20;
epsrz=5;

for aa = [30 60 90]
    aD=aa;
    Input;
    em3d_MT_main;
    save (['ano5-20-5aD' num2str(aa)],'data','rec','freq');
    writetable(data, ['data-ano5-20-5aD' num2str(aa) '.csv']);
end

%

plot_aD;