Pensieve header: Computing the Log of the Kink.

Startup

Date[]
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\FullDoPeGDO"];
Once[<<KnotTheory`];
Once[Get@"../Profile/Profile.m"];
BeginProfile[];
$k=1;
<<Engine.m
<<Objects.m
<<KT.m
HL[ℰ_] := Style[ℰ, Background -> If[TrueQ@ℰ,,]];

Log[Kink]

(Subscript[R, 1,2])

(Subscript[dm, 1,2->3])

(Subscript[Kink, i])

Block[{$k=0},(Subscript[Log, dm])[(Subscript[Kink, i])]]

Timing@Block[{$k=1},(Subscript[Log, dm])[(Subscript[Kink, i])]]

Timing@Block[{$k=2},(Subscript[Log, dm])[(Subscript[Kink, i])]]

Timing@Block[{$k=3},(Subscript[Log, dm])[(Subscript[Kink, i])]]