wilkinson.m

来自「把地理区域分成一个个小区」· M 代码 · 共 28 行

function [m_out,std_out]=wilkinson(m_x,std_x,r)
lambda=0.1*log(10);
m_x_cmp=m_x;
v_x_cmp=std_x.^2;
m_y=lambda*m_x_cmp;
v_y=(lambda^2)*v_x_cmp;
u_1=0;
for i=1:length(m_y)
    u_1=u_1+exp(m_y(i)+v_y(i)/2);
end
a=0;
for i=1:length(m_y)
    a=a+exp(2*m_y(i)+2*v_y(i));
end
b=0;
for i=1:length(m_y)-1
    for j=i+1:length(m_y)
        b=b+exp(m_y(i)+m_y(j))*...
            exp(0.5*v_y(i)+v_y(j)+...
            2*r*sqrt(v_y(i))*sqrt(v_y(j)));
    end
end
u_2=a+2*b;
m_z=2*log(u_1)-0.5*log(u_2);
std_z=sqrt(log(u_2)-2*log(u_1));
g=10*log10(exp(1));
m_out=g*m_z;
std_out=g*std_z;