mrdivide.m

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

function c = mrdivide(a,b)
%mrdivide: return a*inverse(b)
%
%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 isa(b,'GA')
    t = a*inverse(b);
else
    t = (1/b)*a;
end
if isa(t,'double')
   c = t;
elseif GAautoscalar & GAisa(t,'scalar')
   c = t.m(1);
else
   c = t;
end