(* ::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:: *)
Kas[x_X]:=Module[{v=2u^2-1,fs,s,m,\[Eta]s},
fs=List@@x;s=PositiveQ@x;
fs*=If[s,{-1,1,1,-1},{-1,-1,1,1}];
m=If[s,({
 {v, u, 1, u},
 {u, 1, u, 1},
 {1, u, v, u},
 {u, 1, u, 1}
}),-({
 {1, u, 1, u},
 {u, v, u, 1},
 {1, u, 1, u},
 {u, 1, u, v}
})];
\[Eta]s=Subscript[\[Eta], #]&/@fs; CF@Subscript[\[CapitalSigma], B[fs]][If[s,-1,1],PQ[{},SuperStar[\[Eta]s] . m . \[Eta]s]]]


(* ::Input::Initialization:: *)
TL[x_X]:=Module[{t=1-\[Omega],r,fs,s,m,\[Eta]s},
r=t+SuperStar[t];fs=List@@x;s=PositiveQ@x;
fs*=If[s,{-1,1,1,-1},{-1,-1,1,1}];
m=If[s,({
 {-r, -t, 2t, SuperStar[t]},
 {-SuperStar[t], 0, SuperStar[t], 0},
 {2SuperStar[t], t, -r, -SuperStar[t]},
 {t, 0, -t, 0}
}),({
 {0, t, 0, -t},
 {SuperStar[t], r, -t, -2 SuperStar[t]},
 {0, -SuperStar[t], 0, SuperStar[t]},
 {-SuperStar[t], -2t, t, r}
})];
\[Eta]s=Subscript[\[Eta], #]&/@fs; CF@Subscript[\[CapitalSigma], B[fs]][0,PQ[{},SuperStar[\[Eta]s] . m . \[Eta]s]]]
