(* ::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[\[ScriptCapitalE]_List]:=CF/@\[ScriptCapitalE];
CF[\[ScriptCapitalE]_] := Module[{vs,ps,c},
vs=Union@Cases[{\[ScriptCapitalE]},Subscript[g, __],\[Infinity]];
Total[CoefficientRules[Expand[\[ScriptCapitalE]], vs] /. (ps_->c_) :> Factor[c](Times@@(vs^ps))] ];


(* ::Input::Initialization:: *)
Subscript[T, 3]=Subscript[T, 1] Subscript[T, 2];
Subscript[ggRules, s_,i_,j_]:={ (* Generic g-Rules *)
Subscript[g, \[Gamma]_,i,\[Beta]_]:>\!\(
\*SubsuperscriptBox[\(T\), \(\[Gamma]\), \(s\)] 
\*SubscriptBox[\(g\), \(\[Gamma], 
\*SuperscriptBox[\(i\), \(+\)], \[Beta]\)]\)+(1-\!\(\*SubsuperscriptBox[\(T\), \(\[Gamma]\), \(s\)]\))Subscript[g, \[Gamma],SuperPlus[j],\[Beta]],Subscript[g, \[Gamma]_,j,\[Beta]_]:>Subscript[g, \[Gamma],SuperPlus[j],\[Beta]],
Subscript[g, \[Gamma]_,\[Alpha]_,i]:>\!\(
\*SubsuperscriptBox[\(T\), \(\[Gamma]\), \(-s\)] 
\*SubscriptBox[\(g\), \(\[Gamma], \[Alpha], 
\*SuperscriptBox[\(i\), \(+\)]\)]\),Subscript[g, \[Gamma]_,\[Alpha]_,j]:>Subscript[g, \[Gamma],\[Alpha],SuperPlus[j]]+(1-\!\(\*SubsuperscriptBox[\(T\), \(\[Gamma]\), \(-s\)]\))Subscript[g, \[Gamma],\[Alpha],SuperPlus[i]]
};
Subscript[rggRules, s_,i_,j_]:={ (* Reverse Generic g-Rules *)
Subscript[g, \[Gamma]_,SuperPlus[i],\[Beta]_]:>\!\(
\*SubsuperscriptBox[\(T\), \(\[Gamma]\), \(-s\)] 
\*SubscriptBox[\(g\), \(\[Gamma], i, \[Beta]\)]\)+(1-\!\(\*SubsuperscriptBox[\(T\), \(\[Gamma]\), \(-s\)]\))Subscript[g, \[Gamma],j,\[Beta]],Subscript[g, \[Gamma]_,SuperPlus[j],\[Beta]_]:>Subscript[g, \[Gamma],j,\[Beta]],
Subscript[g, \[Gamma]_,\[Alpha]_,SuperPlus[i]]:>\!\(
\*SubsuperscriptBox[\(T\), \(\[Gamma]\), \(s\)] 
\*SubscriptBox[\(g\), \(\[Gamma], \[Alpha], i\)]\),Subscript[g, \[Gamma]_,\[Alpha]_,SuperPlus[j]]:>Subscript[g, \[Gamma],\[Alpha],j]+(1-\!\(\*SubsuperscriptBox[\(T\), \(\[Gamma]\), \(s\)]\))Subscript[g, \[Gamma],\[Alpha],i]
};
CF[{Subscript[g, 1,SuperPlus[i],\[Beta]],Subscript[g, 1,SuperPlus[j],\[Beta]],Subscript[g, 1,\[Alpha],SuperPlus[i]],Subscript[g, 1,\[Alpha],SuperPlus[j]]}/.Subscript[rggRules, 1,i,j]/.Subscript[ggRules, 1,i,j]]
CF[{Subscript[g, 1,i,\[Beta]],Subscript[g, 1,j,\[Beta]],Subscript[g, 1,\[Alpha],i],Subscript[g, 1,\[Alpha],j]}/.Subscript[ggRules, 1,i,j]/.Subscript[rggRules, 1,i,j]]



