mpower.m

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

function C = mpower(m,n)
%mpower(m,n): Computes the outer product of two multivectors.
%
%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(m, 'double')
  m = GA([m;0;0;0;0;0;0;0]);
elseif isa(n, 'double')
  n = GA([n;0;0;0;0;0;0;0]);
end
T = GAouter(m,n);
if GAautoscalar & GAisa(T,'scalar')
  C = T.m(1);
else
  C = T;
end