Pensieve header: Games with the centre of the ybax algebra.

Startup

Date[]
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\FullDoPeGDO"];
Once[<<KnotTheory`];
Once[Get@"../Profile/Profile.m"];
BeginProfile[];
$k=1;
<<Engine.m
<<Objects.m
<<KT.m

$k=2; (*ℏ=γ=1;*)

HL[ℰ_] := Style[ℰ, Background -> If[TrueQ@ℰ,,]];

Games

(Subscript[Kink, 1])

Z[Knot[7,1]]

Z[Knot[8,17]]