(* ::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:: *)
CF[\[DoubleStruckCapitalE][\[Omega]_,L_,Q_]]:=Expand /@ Together /@ \[DoubleStruckCapitalE][\[Omega],L,Q];
\[DoubleStruckCapitalE]/:\[DoubleStruckCapitalE][\[Omega]1_,L1_,Q1_]\[DoubleStruckCapitalE][\[Omega]2_,L2_,Q2_]:=CF@\[DoubleStruckCapitalE][\[Omega]1 \[Omega]2,L1+L2,\[Omega]2 Q1+\[Omega]1 Q2];
\[DoubleStruckCapitalE][\[Omega]1_,L1_,Q1_] \[Congruent] \[DoubleStruckCapitalE][\[Omega]2_,L2_,Q2_] := Expand[\[Omega]1==\[Omega]2\[And]L1==L2\[And]Q1==Q2];


(* ::Input::Initialization:: *)
\[DoubleStruckCapitalE][
\!\(\*SubsuperscriptBox[\(X\), \(i_, j_\), \(+\)]\)]:=\[DoubleStruckCapitalE][1, Log[Subscript[t, i]]Subscript[l, j],Subscript[e, i] Subscript[f, j]];
\[DoubleStruckCapitalE][
\!\(\*SubsuperscriptBox[\(X\), \(i_, j_\), \(-\)]\)]:=\[DoubleStruckCapitalE][1, - Log[Subscript[t, i]] Subscript[l, j],-
\!\(\*SubsuperscriptBox[\(t\), \(i\), \(-1\)]\) Subscript[e, i] Subscript[f, j]];
\[DoubleStruckCapitalE][p_Times] := \[DoubleStruckCapitalE] /@ p;


(* ::Input::Initialization:: *)
Subscript[NO, Subscript[(x:f|e), i_] Subscript[l, j_]->k_][\[DoubleStruckCapitalE][\[Omega]_,L_,Q_]] :=With[{q=E^\[Gamma] \[Beta] Subscript[x, k]+\[Gamma] Subscript[l, k]},CF[
\[DoubleStruckCapitalE][\[Omega],\[Gamma] Subscript[l, k]+(L/.Subscript[l, j]->0),\[Omega] E^\[Gamma] \[Beta] Subscript[x, k]+(Q/.Subscript[x, i]->0)]/.{\[Gamma]->\!\(
\*SubscriptBox[\(\[PartialD]\), 
SubscriptBox[\(l\), \(j\)]]L\),\[Beta]->\[Omega]^-1 \!\(
\*SubscriptBox[\(\[PartialD]\), 
SubscriptBox[\(x\), \(i\)]]Q\)}]];


(* ::Input::Initialization:: *)
Subscript[NO, Subscript[f, i_] Subscript[e, j_]->k_][\[DoubleStruckCapitalE][\[Omega]_,L_,Q_]]:=With[{q=((1-Subscript[t, k])\[Alpha] \[Beta]+\[Beta] Subscript[e, k]+\[Delta] Subscript[e, k] Subscript[f, k]+\[Alpha] Subscript[f, k])/\[Mu]},CF[
\[DoubleStruckCapitalE][\[Mu] \[Omega],L,\[Mu] \[Omega] q+\[Mu](Q/.Subscript[f, i]|Subscript[e, j]->0)]/.\[Mu]->1+(Subscript[t, k]-1)\[Delta]/.{\[Alpha]->\[Omega]^-1 (\!\(
\*SubscriptBox[\(\[PartialD]\), 
SubscriptBox[\(f\), \(i\)]]Q\)/.Subscript[e, j]->0),\[Beta]->\[Omega]^-1 (\!\(
\*SubscriptBox[\(\[PartialD]\), 
SubscriptBox[\(e\), \(j\)]]Q\)/.Subscript[f, i]->0),\[Delta]->\[Omega]^-1 \!\(
\*SubscriptBox[\(\[PartialD]\), \(
\*SubscriptBox[\(f\), \(i\)], 
\*SubscriptBox[\(e\), \(j\)]\)]Q\)}]];


(* ::Input::Initialization:: *)
Subscript[m, i_,j_->k_][Z_]:=Module[{x,z},CF[(Z//Subscript[NO, Subscript[f, i] Subscript[e, j]->x]//Subscript[NO, Subscript[l, i] Subscript[e, x]->x]//Subscript[NO, Subscript[f, x] Subscript[l, j]->x])/.Subscript[z_, i|j|x]->Subscript[z, k]]]



