I am trying to simulate to similar species with highly varying anisotropies. The experimental intensities of the g|| component are of similar intensities, however, due to the different g||, g_|_ values the calculated intensities are very different.
The calculated transition probabilities are identical, which means that the calculated spectrum intensity should be defined by some other parameter.
Other than playing around with Sys.weight to get roughly equal intensities, is there a way to make the g|| components strictly equal?
An indicative code is:
Code: Select all
clear all; close all;
Sys1.S = 1/2;
Sys1.g = [2 2.2]; % Isotropic system
Sys1.lwpp = [2 0];
Sys2.S = 1/2;
Sys2.g = [1.5 2.2]; % Highly anisotropic system
Sys2.lwpp = [2 0];
% Calculate probability amplitudes
H1 = sham(Sys1,[0,0,0.001]); % Generate the Hamiltonian matrix of the system
[Vt1,Ener1]=eig(H1); % Generate the right-hand vectors (Vt = |>) and the energy eigenvalues (Ener) of the Hamiltonian (in MHz)
H2 = sham(Sys2,[0,0,0.001]); % Generate the Hamiltonian matrix of the system
[Vt2,Ener2]=eig(H2); % Generate the right-hand vectors (Vt = |>) and the energy eigenvalues (Ener) of the Hamiltonian (in MHz)
% Transitions
u1 = Vt1(:,1); % State 1 is the ground state within the ground doublet
v1 = Vt1(:,2); % State 2 is the excited state within the ground doublet
u2 = Vt2(:,1); % State 1 is the ground state within the ground doublet
v2 = Vt2(:,2); % State 2 is the excited state within the ground doublet
[S1x,S1y] = sop(Sys1,'x','y');
[S2x,S2y] = sop(Sys2,'x','y');
% Transition 1->2 (u->v)
trans_mom_1x = u1'*S1x*v1; % <u|Sx|v> Transition moment
trans_mom_1y = u1'*S1y*v1; % <u|Sy|v> Transition moment
prob1 = (abs(trans_mom_1x)^2 + abs(trans_mom_1y)^2) / 2; % Transition amplitude for x, |<u|Sx|v>|
trans_mom_2x = u2'*S2x*v2; % <u|Sx|v> Transition moment
trans_mom_2y = u2'*S2y*v2; % <u|Sy|v> Transition moment
prob2 = (abs(trans_mom_2x)^2 + abs(trans_mom_2y)^2) / 2; % Transition amplitude for x, |<u|Sx|v>|
Exp.Temperature = 4; Exp.mwFreq = 9.4; Exp.Range_Xpowder = [0 5000]; Exp.nPoints = 2000;
[B1, spc1] = pepper(Sys1,Exp);
[B2, spc2] = pepper(Sys2,Exp);
plot(B1,spc1,B2,spc2);