eeq.m

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

function r = eeq(a,b)
%eeq(a,b): test if two multivectors are equal.
%
%See also gable, eq, ne.

% 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 isa(a,'double')
  if sum(abs(b.m(2:8)) > 0) | b.m(1) ~= a
    r=0;
  else
    r=1;
  end
elseif isa(b,'double')
  if sum(abs(a.m(2:8)) > 0) | a.m(1) ~= b
    r=0;
  else
    r=1;
  end
else
  r = prod(a.m == b.m);
end