anchor.diff:    "Transform non-orthogonal GA object to from metric to eigen basis"
     (w/newg out a
       (ong b c a
  -      (setq out (g2+ out (transform (type-of a) b c (inveigmatrix m) (dimension a)))))))
  +      (setq out (+ out (transform (type-of a) b c (inveigmatrix m) (dimension a)))))))
   
   (defun tometricbasis (a m)
     "Transform non-orthogonal GA object back to metric from eigen basis"
     (w/newg out a
       (ong b c a
  -      (setq out (g2+ out (transform (type-of a) b c (eigmatrix m) (dimension a)))))))
  +      (setq out (+ out (transform (type-of a) b c (eigmatrix m) (dimension a)))))))
   
   (defmacro defgpno (name ofn doc)
     "Define derived geometric product on non-orthogonal basis given name, corresponding orthogonal function of MVs & vector metric, and documentation string"
  
positive.code: 
  (defmethod invv ((g g))
    "Inverse of a versor"
    (/gs (revg g) (scalar (*g2 g (revg g)))))
  
  ;; Reflection/rotation
  
  
negative.code: 
  (defmethod unitg ((g g))
    "Unitize"
    (/ g (norme g)))
  
  (defun recipbv (j &rest bvs)
    "jth reciprocal basis vector"
    (* (*g (apply #'*o (remove-nth j bvs))
  	    (apply #'*o bvs))
         (expt -1 (1- j))))
  
  