(* ::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"];
Once[<< KnotTheory`];
Once[<<"../Profile/Profile.m";];
<<"Engine-Speedy.m";
<<"Objects.m";
$k=2;
HL[\[ScriptCapitalE]_] := Style[\[ScriptCapitalE], Background -> Green];


(* ::Input::Initialization:: *)
Define[Subscript[cm, i,j->k]=CF@Subscript[\!\(\*SubscriptBox[\(\[DoubleStruckCapitalE]\), \({i, j} \[Rule] {k}\)]\)[
Subscript[a, k] (Subscript[\[Alpha], i]+Subscript[\[Alpha], j])+Subscript[b, k] (Subscript[\[Beta], i]+Subscript[\[Beta], j]),
Subscript[y, k] (Subscript[\[Eta], i]+Subscript[\[Eta], j]/Subscript[\[ScriptCapitalA], i])+\[Gamma] Subscript[b, k] Subscript[\[Eta], j] Subscript[\[Xi], i]+Subscript[x, k] (Subscript[\[Xi], i]/Subscript[\[ScriptCapitalA], j]+Subscript[\[Xi], j]),
E^(Subscript[y, k] Subscript[\[Eta], j] (E^(-\[Epsilon] Subscript[\[Beta], i])/(Subscript[\[ScriptCapitalA], i]+\[Gamma] \[Epsilon] Subscript[\[ScriptCapitalA], i] Subscript[\[Eta], j] Subscript[\[Xi], i])-1/Subscript[\[ScriptCapitalA], i])+Subscript[\[Xi], i] (Subscript[x, k] (E^(-\[Epsilon] Subscript[\[Beta], j])/(Subscript[\[ScriptCapitalA], j]+\[Gamma] \[Epsilon] Subscript[\[ScriptCapitalA], j] Subscript[\[Eta], j] Subscript[\[Xi], i])-1/Subscript[\[ScriptCapitalA], j])-\[Gamma] Subscript[b, k] Subscript[\[Eta], j])) (1+\[Gamma] \[Epsilon] Subscript[\[Eta], j] Subscript[\[Xi], i])^(Subscript[a, k]/\[Gamma]+Subscript[b, k]/\[Epsilon])
], $k]]


(* ::Input::Initialization:: *)
Define[Subscript[c\[CapitalDelta], i->j,k]=Subscript[\!\(\*SubscriptBox[\(\[DoubleStruckCapitalE]\), \({i} \[Rule] {j, k}\)]\)[(Subscript[a, j]+Subscript[a, k]) Subscript[\[Alpha], i]+(Subscript[b, j]+Subscript[b, k]) Subscript[\[Beta], i],(Subscript[y, j]+Subscript[y, k]) Subscript[\[Eta], i]+(Subscript[x, j]+Subscript[x, k]) Subscript[\[Xi], i],1], $k]]


(* ::Input::Initialization:: *)
Define[Subscript[cS, i]=\!\(\*SubscriptBox[\(\[DoubleStruckCapitalE]\), \({i} \[Rule] {1, 2, 3, 4}\)]\)[-Subscript[\[Beta], i] Subscript[b, 2]-Subscript[\[Alpha], i] Subscript[a, 3],-Subscript[\[Eta], i] Subscript[y, 1]-Subscript[\[Xi], i] Subscript[x, 4],1]//Subscript[cm, 4,3->i]//Subscript[cm, i,2->i]//Subscript[cm, i,1->i]]



