Code: Select all
clear, clc
LW = 3; c = 299792458;
Exp1.mwFreq = 9.4202; % fajl cm-1.mcd
Exp2 = Exp1;
Exp1.Range = [70 600];
Exp2.Range = [120 250];
% Opt.nKnots = [361 1];
Sys.Nucs = '55Mn';
Sys.S = 3/2;
AA = mt2mhz(7.844);
Sys.A = AA;
DD = [9718 68.1];
Sys.D = DD; % MHz
Sys.lw = LW;
XN = 1; YN = 3;
index = reshape(1:(XN*YN), XN, YN).';
indMax = XN*YN;
figure;
for ind = 1:indMax
Sys.g = 2.000 + 0.045*(ind - 1);
% [B,spec1] = pepper(Sys,Exp1,Opt);
% [B2,spec2] = pepper(Sys,Exp2,Opt);
[B,spec1] = pepper(Sys,Exp1);
[B2,spec2] = pepper(Sys,Exp2);
subplot(YN,XN,index(ind));
hold on;
plot(B,spec1,'DisplayName',['g=' num2str(Sys.g) ' A=' num2str(Sys.A) ' D=' num2str(Sys.D) ' Range=' num2str(Exp1.Range)]);
plot(B2,spec2-1,'DisplayName',['g=' num2str(Sys.g) ' A=' num2str(Sys.A) ' D=' num2str(Sys.D) ' Range=' num2str(Exp2.Range)]);
hold off;
legend('show');
xlabel('magnetic field [mT]');
end