(* ::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:: *)
 \[CapitalLambda][k_]:=(1-Subscript[t, k])(\[Alpha]^2 \[Beta]^2+4\[Alpha] \[Beta] \[Delta] \[Mu]+2\[Delta]^2 \[Mu]^2)/2+2\[Mu]^2 (\[Alpha] \[Beta]+\[Delta] \[Mu])Subscript[c, k]-\[Beta](2\[Mu]-1)(\[Alpha] \[Beta]+2\[Delta] \[Mu])Subscript[u, k]+2\[Beta] \[Delta] \[Mu]^2 Subscript[c, k] Subscript[u, k]-\[Beta]^2 \[Delta](3\[Mu]-1)\!\(
\*SubsuperscriptBox[\(u\), \(k\), \(2\)]/2\)+\[Alpha](\[Alpha] \[Beta]+2 \[Delta] \[Mu])Subscript[w, k]+2\[Alpha] \[Delta] \[Mu]^2 Subscript[c, k] Subscript[w, k]-2(Subscript[t, k]-1)\[Delta]^2 (\[Alpha] \[Beta]+\[Delta] \[Mu])Subscript[u, k] Subscript[w, k]+2\[Delta]^2 \[Mu]^2 Subscript[c, k] Subscript[u, k] Subscript[w, k]-\[Beta] \[Delta]^2 (2\[Mu]-1)
\!\(\*SubsuperscriptBox[\(u\), \(k\), \(2\)]\) Subscript[w, k]+\[Alpha]^2 \[Delta](1+\[Mu])\!\(
\*SubsuperscriptBox[\(w\), \(k\), \(2\)]/2\)+\[Alpha] \[Delta]^2 Subscript[u, k] 
\!\(\*SubsuperscriptBox[\(w\), \(k\), \(2\)]\)-(Subscript[t, k]-1)\[Delta]^4 
\!\(\*SubsuperscriptBox[\(u\), \(k\), \(2\)]\)\!\(
\*SubsuperscriptBox[\(w\), \(k\), \(2\)]/2\);



