wexp.m

这是几何代数的matlab工具包

function C = wexp(A)
%wexp(A): Gives the wedge exponential of a multivector.
%
%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.
      T=exp(A);
      if GAautoscalar
	 C=T;
      else
	 C=GA([T;0;0;0;0;0;0;0]);
      end