Pensieve header: Full testing of all functions.

Startup

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Portfolio2"];
<< KnotTheory`;
<<"../Profile/Profile.m";
<<"Engine-With-w.m";
<<"Objects-With-w.m";
<<"KT.m";
BeginProfile[];
PopupWindow[Button["Show Profile Monitor"],Dynamic[PrintProfile[], UpdateInterval->3, TrackedSymbols->{}]]

$k=0; ℏ=γ=1;

Utilities

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

Testing

(Subscript[a2w, i])//(Subscript[w2a, i])

(Subscript[𝔼, {}->{i}])[0,0,(Subscript[a, i])]//(Subscript[a2w, i])

(Subscript[𝔼, {}->{i}])[0,0,(Subscript[w, i])]//(Subscript[w2a, i])

((Subscript[𝔼, {}->{i}])[0,0,(Subscript[w, i])]//(Subscript[w2a, i]))//(Subscript[t2b, i])//(Subscript[dm, i,j->k])

((Subscript[𝔼, {}->{i}])[0,0,(Subscript[w, i])]//(Subscript[w2a, i]))//(Subscript[t2b, i])//(Subscript[dm, j,i->k])