% 	GEOMETRIC PRODUCTGAfigure; clc; %/% 	GEOMETRIC PRODUCT%global a b; %/clf; %/a = e1 + e3;b = e1 + e2; %%%	We use * to denote the geometric product in GABLE:a*b %w %	Note: scalar + bivector ! GAprompt; %/%	Order matters!b*a    %wGAprompt; %/%	Square of a vector is scalarb*b    %w%	Square of a bivector is negative(e1^e2)*(e1^e2)    %w%	Every non-null vector has an inverse1/b    %wb*(1/b)    %wGAprompt; %/% 	Inverse formula: b/(b*b)    %wGAprompt; %/% 	Inverse of unit vector:1/e1    %wGAprompt; %/%	The geometric product is invertible; %	From (a*b) and b, retrieve a = e1+e3 :a*bb(a*b)/b    %w