Install the paclet:
In[]:=
PacletInstall["https://github.com/sw1sh/GeometricAlgebra/releases/download/1.2/GeometricAlgebra-1.2.paclet",ForceVersionInstallTrue]
Out[]=
PacletObject
Load it:
In[]:=
<<GeometricAlgebra`
PGA definitions
PGA definitions
Example scene
Example scene
In[]:=
SeedRandom[2];points=Point/@RandomReal[{-3,3},{3,3}];line=InfiniteLine[RandomReal[{-3,3},{2,3}]];plane=InfinitePlane[RandomReal[{-3,3},{3,3}]];Graphics3D[{Opacity[0.5],PointSize[0.03],Thickness[0.01],(*3bluepoints*)Blue,points,(*Redline*)Red,line,(*Greenplane*)Green,plane,(*Bluelinethroughfirsttwobluepoints*)Blue,PGARegions[Wedge@@RegionPGA@Take[points,2]]["Line"],(*Pointofredlineandgreenplaneintersection*)Opacity[1],Yellow,PGARegions[RegionPGA[plane]⋁RegionPGA[line]]["Point"],(*Blueplanethrough3bluepoints*)Opacity[0.4],Blue,PGARegions[Wedge@@RegionPGA[points]]["Plane"],(*Cyanlineofblueandgreenplaneintersection*)Cyan,PGARegions[Wedge@@RegionPGA[points]⋁RegionPGA[plane]]["Line"],PGARegions[Wedge@@RegionPGA@Take[points,2]⋁RegionPGA[plane]]["Point"],(*Purplepointofblueplaneandredlineintersection*)Purple,PGARegions[Wedge@@RegionPGA[points]⋁RegionPGA[line]]["Point"]}]
Out[]=