weibmen.m

来自「rang doppler imaging and motion compensa」· M 代码 · 共 20 行

function [bh,ah] = weibmen(x);
%
% Estimation of Weibull parameters using the
% method of Menon.
%

   [m n] = size(x);
   leng=length(x);
   if m ~= leng
      temp=m;
      m = n;
      n = temp ;
      x = x.';
   end

   m1=(1/m)*sum(log(x));
   m2=(1/m)*sum(log(x).^2);
   bh=((6/pi^2)*(m/(m-1))*(m2-m1.^2)).^(-0.5);
   ah=(exp(bh.*m1+0.577216)).^(-1);