vorient.m

一个很好用的摄像机标定程序

function vectors = vorient(vectors)
%vectors = VORIENT(vectors)
%
%Orient vectors given as rows
%
%See also:
%  VSIZE, VNORM
%
%Note:
%  Vector is oriented if its coordinate which is maximal in magnitude
%  is positive.
%
%Radim Halir, Charles University Prague, [e-mail]
%Created: 28.2.1997
%Last modified 9.4.1997

change = (max(vectors, 2) + min(vectors, 2)) < 0;
if (length(change) == 1)
  if (change)
    vectors = - vectors;
  end
else
  vectors(change, :) = - vectors(change, :);
end