unit.m

来自「这是几何代数的matlab工具包」· M 代码 · 共 19 行

function u = unit(A)
%unit(A): return A scaled to be unit length
%
%See also gable.

% GABLE, Copyright (c) 1999, University of Amsterdam
% Copying, use and development for non-commercial purposes permitted.
%          All rights for commercial use reserved; for more information
%          contact Leo Dorst ([e-mail]).
%
%          This software is unsupported.
if A > 0
  u = 1;
elseif A < 0
  u = -1;
else
  error('Can''t take unit of 0.');
end