谱函数拟合程序

直接读取能带数据,然后用经验公式计算谱函数得到 

下一步计算一个费米面,在费米面上标定nesting波矢,以及计算CDW情况下的费米面

band_d = load("band_d.txt");
%Ed_line_Gamma_M = band_d(1:40);
Ed_line_M_K =  band_d(41:70);
Ed_line = band_d(1:70);
nk = 4000;
k = linspace(0,length(Ed_line),nk);
Ed = interp1(1:length(Ed_line),Ed_line,k,'spline');
nw = 2000;
w = linspace(-0.7,0.2,nw);
%w =  linspace(-0.8,0.2,nw);
Gammar1 = 0.005;
Gammar2 = 0.005;
delta = 0.03;
Ak_d = zeros(nw,nk);
hold on
for i=1:nw
    for j=1:nk
        sigma_d = -1i*Gammar1+delta*delta/(w(i)+Ed(j)+1i*Gammar2);
        Ak_d(i,j) = imag(sigma_d)/((w(i)-Ed(j)-real(sigma_d))^2+imag(sigma_d)^2);
    end
end
[X,Y] = meshgrid(k,w);
mesh(X,Y,-Ak_d/pi);
ylim([-0.7,0])
%xlim([1,20])

 

上一篇:unicable


下一篇:C++多线程实现中值滤波,双边滤波,拉普拉斯锐化,附源代码