(* ::Package:: *)

(************************************************************************)
(* This file was generated automatically by the Mathematica front end.  *)
(* It contains Initialization cells from a Notebook file, which         *)
(* typically will have the same name as this file except ending in      *)
(* ".nb" instead of ".m".                                               *)
(*                                                                      *)
(* This file is intended to be loaded into the Mathematica kernel using *)
(* the package loading commands Get or Needs.  Doing so is equivalent   *)
(* to using the Evaluate Initialization Cells menu command in the front *)
(* end.                                                                 *)
(*                                                                      *)
(* DO NOT EDIT THIS FILE.  This entire file is regenerated              *)
(* automatically each time the parent Notebook file is saved in the     *)
(* Mathematica front end.  Any changes you make to this file will be    *)
(* overwritten.                                                         *)
(************************************************************************)



(* ::Input::Initialization:: *)
Date[]
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\FullDoPeGDO"];
Once[<<KnotTheory`];
Once[Get@"../Profile/Profile.m"];
BeginProfile[];
$k=2;
<<Engine.m
<<Objects.m
<<KT.m
HL[\[ScriptCapitalE]_] := Style[\[ScriptCapitalE], Background -> If[TrueQ@\[ScriptCapitalE],RGBColor[Rational[1, 3], 1, Rational[1, 3]],RGBColor[1, 0.5, 0.5]]];
CF[sd_SeriesData] := MapAt[CF,sd,3];


(* ::Input::Initialization:: *)
LK=\!\(\*SubscriptBox[\(\[DoubleStruckCapitalU]\), \({} \[Rule] {i}\)]\)[(\[HBar] Subscript[b, i])/2+\[HBar] Subscript[a, i] Subscript[b, i]-(\[HBar]^2 Subscript[b, i] Subscript[x, i] Subscript[y, i])/(-1+Subscript[B, i]),(\[HBar] Subscript[a, i])/2-(\[HBar]^2 Subscript[a, i] (-1+Subscript[B, i]+\[HBar] Subscript[b, i] Subscript[B, i]) Subscript[x, i] Subscript[y, i])/(-1+Subscript[B, i])^2+(\[HBar]^3 (-2+\[HBar] Subscript[b, i]+2 Subscript[B, i]+\[HBar] Subscript[b, i] Subscript[B, i]) \!\(\*SubsuperscriptBox[\(x\), \(i\), \(2\)]\) \!\(\*SubsuperscriptBox[\(y\), \(i\), \(2\)]\))/(2 (-1+Subscript[B, i])^3),-((\[HBar]^3 \!\(\*SubsuperscriptBox[\(a\), \(i\), \(2\)]\) Subscript[B, i] (-2+\[HBar] Subscript[b, i]+2 Subscript[B, i]+\[HBar] Subscript[b, i] Subscript[B, i]) Subscript[x, i] Subscript[y, i])/(2 (-1+Subscript[B, i])^3))-(\[HBar]^4 (-1-4 Subscript[B, i]+4 \[HBar] Subscript[b, i] Subscript[B, i]+5 \!\(\*SubsuperscriptBox[\(B\), \(i\), \(2\)]\)+2 \[HBar] Subscript[b, i] \!\(\*SubsuperscriptBox[\(B\), \(i\), \(2\)]\)) \!\(\*SubsuperscriptBox[\(x\), \(i\), \(2\)]\) \!\(\*SubsuperscriptBox[\(y\), \(i\), \(2\)]\))/(2 (-1+Subscript[B, i])^4)+(\[HBar]^4 Subscript[a, i] (-1-4 Subscript[B, i]+4 \[HBar] Subscript[b, i] Subscript[B, i]+5 \!\(\*SubsuperscriptBox[\(B\), \(i\), \(2\)]\)+2 \[HBar] Subscript[b, i] \!\(\*SubsuperscriptBox[\(B\), \(i\), \(2\)]\)) \!\(\*SubsuperscriptBox[\(x\), \(i\), \(2\)]\) \!\(\*SubsuperscriptBox[\(y\), \(i\), \(2\)]\))/(2 (-1+Subscript[B, i])^4)-(\[HBar]^5 (-3+\[HBar] Subscript[b, i]+4 \[HBar] Subscript[b, i] Subscript[B, i]+3 \!\(\*SubsuperscriptBox[\(B\), \(i\), \(2\)]\)+\[HBar] Subscript[b, i] \!\(\*SubsuperscriptBox[\(B\), \(i\), \(2\)]\)) \!\(\*SubsuperscriptBox[\(x\), \(i\), \(3\)]\) \!\(\*SubsuperscriptBox[\(y\), \(i\), \(3\)]\))/(3 (-1+Subscript[B, i])^5)];



