clearvars -global ___
h = 4.135667662.*10.^(-15);
h_ = 6.582119514.*10.^(-16);
syms w_x
syms E_F
syms n
syms E_1
syms E_2
syms V_sd
syms g
syms S
syms m_eff
syms g_ns
syms U_0
syms q ;
syms R
syms B
syms U0Vsd
syms w_y
syms w_c
syms E_Z
syms t
E_2 = ((h_)./sqrt(2)).*(((w_c.^2+w_y.^2-w_x.^2).^2 + 4.*w_x.^2*w_y.^2).^0.5+(w_c.^2+w_y.^2-w_x.^2)).^0.5;
E_1 = ((h_)/(2.*pi*sqrt(2))).*(((w_c.^2+w_y.^2-w_x.^2).^2 + 4.*w_x.^2*w_y.^2).^0.5-(w_c.^2+w_y.^2-w_x.^2)).^0.5;
E_Fn = E_F - U0Vsd - (n+0.5).*E_2;
mu_B = 5.7883818066.*10.^(-5);
U0Vsd = U_0 - (0.5.*exp(1)*V_sd);
w_y = 2.*w_x;
w_c = 0;
E_Z = 2.*g.*mu_B.*S.*B;
m_eff = 0.067.*9.10938356.*10.^(-31);
a=(1+((1/exp(1)).*diff(U0Vsd,V_sd)));
b=exp((E_Fn+(0.5.*E_Z))/E_1).*(1+exp((E_Fn + (0.5.*E_Z))/E_1)).^(-1);
c = -(diff(U0Vsd,V_sd)).*exp((E_Fn-(exp(1).*V_sd)+ (0.5.*E_Z))/E_1);
d = (1+exp((E_Fn-(exp(1).*V_sd)+ (0.5.*E_Z))/E_1)).^(-1);
g_ns = vpa((a.*b)-(c.*d),2);
B = 0;
g = 2.0023;
w_x = 1;
for n=1:50;
S=-0.5;
g_1(n,:)=subs(g_ns);
end
F=sum(g_1);
for n=1:50;
S=0.5;
g_2(n,:)= subs(g_ns);
end
H=sum(g_2);
R=0;
V_sd = R.*h_.*w_x;
G=subs(((exp(1)).^(2)/h).*(F+H));
C = G/((2.*exp(1).^(2))/h)
subs(C, E_F - U_0, t)