gainners.m

这是几何代数的matlab工具包

function C = GAinnerS(m,n)
%GAinnerS(m,n): Computes the inner product between two GA objects.
%
%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.
S=GAsignature;  
     Mga = [ m.m(1)  S(1)*m.m(2)  S(2)*m.m(3)  S(3)*m.m(4) -S(1)*S(2)*m.m(5) -S(2)*S(3)*m.m(6) -S(1)*S(3)*m.m(7) -S(1)*S(2)*S(3)*m.m(8);
	     m.m(2)       m.m(1)  S(2)*m.m(5) -S(3)*m.m(7)   -S(2)*m.m(3)    -S(2)*S(3)*m.m(8)    S(3)*m.m(4)     -S(2)*S(3)*m.m(6);
	     m.m(3) -S(1)*m.m(5)       m.m(1)  S(3)*m.m(6)    S(1)*m.m(2)      -S(3)*m.m(4)    -S(3)*S(1)*m.m(8)  -S(1)*S(3)*m.m(7);
	     m.m(4)  S(1)*m.m(7) -S(2)*m.m(6)       m.m(1) -S(1)*S(2)*m.m(8)    S(2)*m.m(3)      -S(1)*m.m(2)     -S(1)*S(2)*m.m(5);
	     m.m(5)       0            0       S(3)*m.m(8)         m.m(1)            0                 0              S(3)*m.m(4);
	     m.m(6)  S(1)*m.m(8)       0            0              0                 m.m(1)            0              S(1)*m.m(2);
	     m.m(7)       0       S(2)*m.m(8)       0              0                 0                 m.m(1)         S(2)*m.m(3);
	     m.m(8)       0            0            0              0                 0                 0                   m.m(1)];
     C = GA(Mga*n.m);