(* ::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:: *)
\[CapitalGamma]/:\[CapitalGamma][\[Omega]1_,A1_]\[CapitalGamma][\[Omega]2_,A2_]:=\[CapitalGamma][\[Omega]1 \[Omega]2,A1+ A2]
\[CapitalGamma]Collect[\[CapitalGamma][\[Omega]_,A_]]:=\[CapitalGamma][Simplify[\[Omega]]//Expand,Collect[A,Subscript[r, _],Collect[#,Subscript[c, _],Factor]&]]
Subscript[X, a_,b_]:=\[CapitalGamma][1,Subscript[r, a] Subscript[c, a]+(1-t)Subscript[r, a] Subscript[c, b]+t Subscript[r, b] Subscript[c, b]]
Subscript[\!\(\*OverscriptBox[\(X\), \(_\)]\), a_,b_]:=Subscript[X, a,b]/.t->t^-1
Subscript[m, a_,b_->k_][\[CapitalGamma][\[Omega]_,A_]]:=\[CapitalGamma][(\[Mu]=1-\!\(
\*SubscriptBox[\(\[PartialD]\), \(
\*SubscriptBox[\(r\), \(a\)], 
\*SubscriptBox[\(c\), \(b\)]\)]A\))\[Omega],A+(\!\(
\*SubscriptBox[\(\[PartialD]\), 
SubscriptBox[\(c\), \(b\)]]A\))(\!\(
\*SubscriptBox[\(\[PartialD]\), 
SubscriptBox[\(r\), \(a\)]]A\))/\[Mu]]/.{Subscript[c, b]|Subscript[r, a]->0,Subscript[c, a]->Subscript[c, k],Subscript[r, b]->Subscript[r, k]}//\[CapitalGamma]Collect



