(* ::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:: *)
Subscript[DP, Subscript[D, \[Alpha]_],Subscript[D, \[Beta]_]][P_][f_]:=
Total[CoefficientRules[P,{Subscript[D, \[Alpha]],Subscript[D, \[Beta]]}]/.({m_,n_}->c_):>c D[f,{\[Alpha],m},{\[Beta],n}]]


(* ::Input::Initialization:: *)
old\[CapitalLambda]=1/(2 \[Mu]^4) (-b \[Alpha]^2 \[Beta]^2+u^2 \[Beta]^2 \[Delta] (2+b \[Delta])+w^2 \[Delta] (\[Alpha]+u \[Delta]) (\[Alpha] (2+b \[Delta])+u \[Delta] (4+3 b \[Delta]))-4 b \[Alpha] \[Beta] \[Delta] \[Mu]+4 c \[Alpha] \[Beta] \[Mu]^2-2 b \[Delta]^2 \[Mu]^2+4 c \[Delta] \[Mu]^3+2 u \[Beta] (\[Alpha] \[Beta]+2 \[Delta] \[Mu] (1+c \[Mu]))+2 w (\[Alpha]^2 \[Beta]+2 \[Alpha] \[Delta] (u \[Beta] (2+b \[Delta])+\[Mu] (1+c \[Mu]))+u \[Delta]^2 (u \[Beta] (3+2 b \[Delta])+2 \[Mu] (2+b \[Delta]+c \[Mu]))));



