Commercial+Plugin 源代码

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

function C=DrawInner(A,B) %DrawInner(A,B): draw the inner product of A,B. % %See also gable. % GABLE, Copyright (c) 1999, Univers…

function T = GAreverse(A) %GAreverse: returns the reverse of a GA object. % %See also gable. % GABLE, Copyright (c) 1999, Univers…

function C=DrawGP(A,B) %DrawGP(A,B): Draw the geometric product A*B. % %See also gable. % GABLE, Copyright (c) 1999, University o…

function m=m(A) %m(A): Return the matrix for GA object. For debugging. % %See also gable. % GABLE, Copyright (c) 1999, Universit…

function r = ne(a,b) %ne(a,b): test if two multivectors are not equal. % %See also gable. % GABLE, Copyright (c) 1999, University…

function C = GAinnerS(m,n) %GAinnerS(m,n): Computes the inner product between two GA objects. % %See also gable. % GABLE, Copyrig…

function c = GAdivide(a,b) %GAdivide: return a/b = a*inverse(b), where a,b are GA objects. % %See also gable. % GABLE, Copyright …

function T = GAbilinear(m,n) %GAbilinear(m,n): Computes the bilinear form of two GA objects. % %See also gable. % GABLE, Copyrigh…

function C = uminus(m) %uminus(m): change the sign of a multivector. % %See also gable. % GABLE, Copyright (c) 1999, University o…