谱函数拟合程序

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

下一步计算一个费米面，在费米面上标定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])

标签：nk,函数,Ed,程序,band,拟合,line,sigma,nw
来源： https://blog.csdn.net/wwxy1995/article/details/112794044