Code: Select all
clear, clf;
Sys.S = 3/2;
Sys.g = 2;
Sys.D = clight/1e4*0.2;
Sys.lwpp = 10;
Exp.mwFreq = 9.7;
Exp.Range = [0 700];
alpha=0;
beta=90;
gamma=0; d=30;
Exp.CrystalOrientation = pi/180*[alpha beta gamma];
[Bres1,Int1] = eigfields(Sys,Exp);
[B,S1]=pepper(Sys,Exp);
Exp.CrystalOrientation = pi/180*[alpha beta gamma+d];
[Bres2,Int2] = eigfields(Sys,Exp);
[B,S2]=pepper(Sys,Exp);
Exp.CrystalOrientation = pi/180*[alpha beta gamma+2*d];
[Bres3,Int3] = eigfields(Sys,Exp);
[B,S3]=pepper(Sys,Exp);
Exp.CrystalOrientation = pi/180*[alpha beta gamma+3*d];
[Bres4,Int4] = eigfields(Sys,Exp);
[B,S4]=pepper(Sys,Exp);
gammaSweep=[gamma gamma+d gamma+2*d gamma+3*d]
plot(B,S1,B,S2,B,S3,B,S4);