Commercial+Plugin 源代码

function C = GAplus(M,N) %GAplus(M,N): add two multivectors. % %See also gable. % GABLE, Copyright (c) 1999, University of Amster…

function e = e1 % e1: return the basis vector e1 % %See also gable. % GABLE, Copyright (c) 1999, University of Amsterdam % Copyin…

function C = dual(A) % dual(A): return the dual, A/I3 % %See also gable. % GABLE, Copyright (c) 1999, University of Amsterdam % C…

function e = e2 % e2: return the basis vector e2 % %See also gable. % GABLE, Copyright (c) 1999, University of Amsterdam % Copyin…

function r = sLog(spinor) % Takes logarithm of spinor %See also gable. % GABLE, Copyright (c) 1999, University of Amsterdam % Cop…

function C = gexp(A) %gexp(A): Computes the geometric product exponential % %See also gable. % GABLE, Copyright (c) 1999, Univers…

function u = unit(A) %unit(A): return A scaled to be unit length % %See also gable. % GABLE, Copyright (c) 1999, University of Am…

function e = e3 % e3: return the basis vector e3 % %See also gable. % GABLE, Copyright (c) 1999, University of Amsterdam % Copyin…

function T = GAgradeinvolution(A) %GAgradeinvolution(A): returns the grade involution of a GA object. % %See also gable. % GABLE,…

function C = GAminus(m,n) %GAminus(m,n): subtract two GA objects. % %See also gable. % GABLE, Copyright (c) 1999, University of A…