(* ::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.                                                         *)
(************************************************************************)



SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\OneCo-1604\\Zero"];
<< ZeroLocal.m


Subscript[TSD[\[Lambda]_], j_] := Lookup[\[Lambda],j,UU@a[1,j,h\[Infinity]]];
UU[u_] // \[Gamma]_TSD := CF[u /. \[Lambda]_a :> \[Gamma]@\[Lambda]];
TSD /: (\[Gamma]_TSD)^-1 := Module[{S=Keys@@\[Gamma],m},
m=Table[Coefficient[Subscript[\[Gamma], i ], a[j,h\[Infinity]]],{i,S}, {j,S}] // Inverse;
TSD@<|Table[S[[\[Alpha]]]->
CF@UU@Sum[a[m[[\[Alpha],\[Beta]]],S[[\[Beta]]],h\[Infinity]], {\[Beta],Length@S}],
{\[Alpha], Length@S}]|>
];
a[f_,j_,k_] // \[Gamma]_TSD := Module[{S=Keys@@\[Gamma], \[Gamma]i},
Switch[{MemberQ[S,j], MemberQ[S,k]},
{False,False}, UU@a[f,j,k],
{True,False}, Subscript[\[Gamma], j] /. a[g_,i_,h\[Infinity]] :> a[f g,i,k],
{False, True}, (\[Gamma]i=\[Gamma]^-1;
CF@Sum[
\[Gamma][bb[S\[Union]{j}][Subscript[\[Gamma]i, i], UU@a[f,j,k]]] /. {
a[_,i,h\[Infinity]] :> 0, a[g_,l_,h\[Infinity]] :> a[g/Subscript[b, i],l,i]},
{i,S}]),
{True,True}, ct[h\[Infinity],t\[Infinity]][\[Gamma]@a[f,j,h\[Infinity]], \[Gamma]@a[1,t\[Infinity],k]]
]];


Ea[t_,j_,k_]:=TSD[<|
j->CF@UU[a[1,j,h\[Infinity]]],
k->CF@UU[a[E^(t Subscript[b, j]),k,h\[Infinity]]+a[-(((-1+E^(t Subscript[b, j])) Subscript[b, k])/Subscript[b, j]),j,h\[Infinity]]]|>];
R[j_,k_]:=Ea[1,j,k]



