(* ::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:: *)
SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Portfolio2"];
<< KnotTheory`;
<<"../Profile/Profile.m";
<<"Engine-Speedy.m";
<<"Objects.m";
<<"KT.m";
BeginProfile[];
PopupWindow[Button["Show Profile Monitor"],Dynamic[PrintProfile[], UpdateInterval->3, TrackedSymbols->{}]]


(* ::Input::Initialization:: *)
$k=2; (*\[HBar]=\[Gamma]=1;*)


(* ::Input::Initialization:: *)
HL[\[ScriptCapitalE]_] := Style[\[ScriptCapitalE], Background -> If[TrueQ@\[ScriptCapitalE],RGBColor[Rational[1, 3], 1, Rational[1, 3]],RGBColor[1, 0.5, 0.5]]];


(* ::Input::Initialization:: *)
Define[Subscript[q\[Sigma], i->j]=\!\(\*SubscriptBox[\(\[DoubleStruckCapitalE]\), \({i} \[Rule] {i}\)]\)[Subscript[\[Alpha], i] Subscript[a, j]+Subscript[\[Eta], i] Subscript[y, j]+Subscript[\[Xi], i] Subscript[x, j]]]; Subscript[q\[Sigma], i->j]


(* ::Input::Initialization:: *)
Define[Subscript[det, i]=\!\(\*SubscriptBox[\(\[DoubleStruckCapitalE]\), \({i} \[Rule] {i}\)]\)[Subscript[\[Alpha], i] Subscript[a, i]+Subscript[\[Eta], i] Subscript[y, i]+Subscript[\[Xi], i] Subscript[x, i]]]; Subscript[det, i]


(* ::Input::Initialization:: *)
Define[Subscript[q\[Epsilon], i]=Subscript[d\[Epsilon], i]//Subscript[b2t, i]//Subscript[det, i]]; Subscript[q\[Epsilon], i]
Define[Subscript[q\[Eta], i]=Subscript[det, i]//Subscript[t2b, i]//Subscript[d\[Eta], i]]; Subscript[q\[Eta], i]


(* ::Input::Initialization:: *)
Define[Subscript[qm, i,j->k]=(Subscript[det, i] Subscript[det, j])//(Subscript[t2b, i] Subscript[t2b, j])//Subscript[dm, i,j->k]//Subscript[b2t, k]//Subscript[det, k]]; Subscript[qm, i,j->k]


(* ::Input::Initialization:: *)
Define[Subscript[q\[CapitalDelta], i->j,k]=Subscript[det, i]//Subscript[t2b, i]//Subscript[d\[CapitalDelta], i->j,k]//(Subscript[b2t, j] Subscript[b2t, k])//(Subscript[det, j] Subscript[det, k])]; Subscript[q\[CapitalDelta], i->j,k]


(* ::Input::Initialization:: *)
Define[Subscript[qS, i]=Subscript[det, i]//Subscript[t2b, i]//Subscript[dS, i]//Subscript[b2t, i]//Subscript[det, i]]; Subscript[qS, i]
Define[Subscript[\!\(\*OverscriptBox[\(qS\), \(_\)]\), i]=Subscript[det, i]//Subscript[t2b, i]//Subscript[\!\(\*OverscriptBox[\(dS\), \(_\)]\), i]//Subscript[b2t, i]//Subscript[det, i]]; Subscript[\!\(\*OverscriptBox[\(qS\), \(_\)]\), i]



(* ::Input::Initialization:: *)
Define[Subscript[qR, i,j]=Subscript[R, i,j]//(Subscript[b2t, i] Subscript[b2t, j])//(Subscript[det, i] Subscript[det, j])]; Subscript[qR, i,j]
Define[Subscript[\!\(\*OverscriptBox[\(qR\), \(_\)]\), i,j]=Subscript[\!\(\*OverscriptBox[\(R\), \(_\)]\), i,j]//(Subscript[b2t, i] Subscript[b2t, j])//(Subscript[det, i] Subscript[det, j])]; Subscript[\!\(\*OverscriptBox[\(qR\), \(_\)]\), i,j]
Define[Subscript[qC, i]=Subscript[C, i]//Subscript[b2t, i]//Subscript[det, i]]; Subscript[qC, i]
Define[Subscript[\!\(\*OverscriptBox[\(qC\), \(_\)]\), i]=Subscript[\!\(\*OverscriptBox[\(C\), \(_\)]\), i]//Subscript[b2t, i]//Subscript[det, i]]; Subscript[\!\(\*OverscriptBox[\(qC\), \(_\)]\), i]
Define[Subscript[qKink, i]=Subscript[Kink, i]//Subscript[b2t, i]//Subscript[det, i]]; Subscript[qKink, i]
Define[Subscript[\!\(\*OverscriptBox[\(qKink\), \(_\)]\), i]=Subscript[\!\(\*OverscriptBox[\(Kink\), \(_\)]\), i]//Subscript[b2t, i]//Subscript[det, i]]; Subscript[\!\(\*OverscriptBox[\(qKink\), \(_\)]\), i]




