SpHEAR/pv2params.m

function pv2params (pv)
  display(sprintf('mic\t sens\t dir\t fbr\t az\t el\n'));
  for i = 1:size(pv,1)
    p = pv(i,1);
    v = pv(i,2:4);
    s = ( p + norm(v) )/ 2;
    d = norm(v) / ( norm(v) + p );
    fbr = (p+norm(v)) / (p-norm(v));
    fbr_sign = sign(fbr);
    fbr_dB = 20 * log10( abs(fbr) );
    o = v / norm(v);
    az_el_rad = [ atan2( o(2), o(1) ) asin( o(3) ) ];
    az_el_deg = 180/pi * az_el_rad;
    display(sprintf('%5g\t %5g\t %5g\t %5g\t %5g\t %5g\n', ...
		    i, s, d, fbr_dB, az_el_deg(1), az_el_deg(2)));
  end
end