(* ::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:: *)
Unprotect[Expand]; Expand[sd_SeriesData] := MapAt[Expand,sd,3];Protect[Expand];


(* ::Input::Initialization:: *)
GenericPolynomial[d_Integer, vars_List, gc_] := Total[Map[
Subscript[gc, Sequence@@#]Times@@(vars^#)&,
Join@@(Permutations /@ IntegerPartitions[d+Length@vars,{Length@vars}])-1
]];
GenericPolynomial[specs_List, vars_List, gc_] := Sum[GenericPolynomial[specs[[1]],vars,gc],specs]


(* ::Input::Initialization:: *)
{SuperStar[t],SuperStar[b],SuperStar[y],SuperStar[a],SuperStar[x],SuperStar[z]}={\[Tau],\[Beta],\[Eta],\[Alpha],\[Xi],\[Zeta]}; 
{SuperStar[\[Tau]],SuperStar[\[Beta]],SuperStar[\[Eta]],SuperStar[\[Alpha]],SuperStar[\[Xi]],SuperStar[\[Zeta]]}={t,b,y,a,x,z}; SuperStar[(Subscript[u_, i_])]:=Subscript[(SuperStar[u]), i]; SuperStar[(B_List)]:=SuperStar[#]&/@B;


(* ::Input::Initialization:: *)
Subscript[Ev, k_]@Subscript[\[LeftBracketingBar]F_,\[ScriptCapitalE]_\[RightBracketingBar], B_]:=Expand[Total[
CoefficientRules[Normal@Series[E^(SuperStar[B].F.SuperStar[B]/2),{\[HBar],0,k}],SuperStar[B]] /. (ps_->c_) :> c D[\[ScriptCapitalE],Sequence@@Thread[{B,ps}]]
]+O[\[HBar]]^(k+1)];
Subscript[Ev, k_]@Subscript[\[LeftAngleBracket]F_,\[ScriptCapitalE]_\[RightAngleBracket], B_]:= Subscript[Ev, k]@Subscript[\[LeftBracketingBar]F,\[ScriptCapitalE]\[RightBracketingBar], B]/.Alternatives@@B->0



