Pensieve header: The Λ of CU.

Startup

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\SL2Portfolio2"];
<<"../Profile/Profile.m";
$k=2;
<<"Engine-Speedy.m";
<<"Objects.m";

Λ=((Subscript[η, i])+(((E^(-γ (Subscript[α, i])-ϵ (Subscript[β, i]))) (Subscript[η, j]))/(1+γ ϵ (Subscript[η, j]) (Subscript[ξ, i]))))(Subscript[y, k])+((Subscript[β, i])+(Subscript[β, j])+((Log[1+γ ϵ (Subscript[η, j]) (Subscript[ξ, i])])/ϵ))(Subscript[b, k])+((Subscript[α, i])+(Subscript[α, j])+((Log[1+γ ϵ (Subscript[η, j]) (Subscript[ξ, i])])/γ))(Subscript[a, k])+((((E^(-γ (Subscript[α, j])-ϵ (Subscript[β, j]))) (Subscript[ξ, i]))/(1+γ ϵ (Subscript[η, j]) (Subscript[ξ, i])))+(Subscript[ξ, j]))(Subscript[x, k])

(Subscript[cm, i,j->k])

𝔼

(Subscript[𝔼, dr_])[Λ_]:=CF@(Subscript[Module[{L,Λ0=Limit[Λ,ϵ->0]},(Subscript[𝔼, dr])[
L=Λ0 /. (Subscript[(η|y|ξ|x), _])->0,Λ0-L,(E^(Λ-Λ0))]/.l2U], $k])

(Subscript[𝔼, {i,j}->{k}])[Λ]

(Subscript[𝔼, {i,j}->{k}])[Λ]≡(Subscript[cm, i,j->k])