(* ::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:: *)
SetDirectory["C:\\drorbn\\AcademicPensieve\\Talks\\ICERM-2305"];
<< Signatures.m


(* ::Input::Initialization:: *)
MatrixSignature[A_]:=Total[Sign[Select[Eigenvalues[A],Abs[#]>10^-12&]]];


(* ::Input::Initialization:: *)
SuperPlus[rs_List]:=Union@@(SuperPlus[#]&/@rs)


(* ::Input::Initialization:: *)
Subscript[\[CapitalSigma], b_][\[Sigma]1_,PQ[\[ScriptCapitalC]1_,q1_]]+Subscript[\[CapitalSigma], b_][\[Sigma]2_,PQ[\[ScriptCapitalC]2_,q2_]]^:=CF@Subscript[\[CapitalSigma], b][\[Sigma]1+\[Sigma]2,PQ[\[ScriptCapitalC]1\[Union]\[ScriptCapitalC]2,q1+q2]];
Flip[Subscript[\[CapitalSigma], B[b___]][\[Sigma]_,PQ[\[ScriptCapitalC]_,q_]]]:=CF@Module[{b1,b2},
b1=Join@@({b}/.i_Integer:>Subscript[\[Gamma], i]);
b2=Join@@(RotateRight/@{b}/.i_Integer:>Subscript[\[Gamma], -i]);
Subscript[\[CapitalSigma], Reverse/@(B@@(-{b}))][\[Sigma],PQ[\[ScriptCapitalC],q]/.SuperPlus[Thread[b1->b2]]]
]


(* ::Input::Initialization:: *)
A[Subscript[\[CapitalSigma], b_B][\[Sigma]_,PQ[\[ScriptCapitalC]_,q_]]]:=Module[{\[Gamma]s,r,c},
\[Gamma]s=Subscript[\[Gamma], #]&/@Join@@b;
Table[\!\(
\*SubscriptBox[\(\[PartialD]\), \(r, c\)]q\),{r,SuperStar[\[Gamma]s]},{c,\[Gamma]s}]
]



