(* ::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.                                                         *)
(************************************************************************)



n=6;
DD=DiagonalMatrix[Table[Subscript[b, i],{i,n}]];
Unprotect[ConjugateTranspose]; (
ConjugateTranspose /: (M_)\[ConjugateTranspose]/; MatrixQ[M]:= Transpose[M] /. {Subscript[b, i_]:>-Subscript[b, i]};
); Protect[ConjugateTranspose];
\[Rho][x_Plus] := \[Rho] /@ x;
\[Rho][bs_. a[j_,k_]] := bs*(Table[0, {n},{n}] // ReplacePart[{
{j,k} -> -Subscript[b, k], {k,k}->Subscript[b, j]
}]);
\[Rho][bs_. t[j_,k_]] := \[Rho][bs*a[j,k]+bs*a[k,j]];
\[Rho][bs_. Y[i_,j_,k_]] := \[Rho][Expand[bs*(
Subscript[b, i]a[j,k]+Subscript[b, j]a[k,i]+Subscript[b, k]a[i,j]-Subscript[b, j]a[i,k]-Subscript[b, k]a[j,i]-Subscript[b, i]a[k,j]
)]];
\[Rho][bs_. H[i_,j_,k_,l_]] := \[Rho][Expand[bs*(
Subscript[b, i] Subscript[b, k]a[j,l]-Subscript[b, i] Subscript[b, l]a[j,k]-Subscript[b, j] Subscript[b, k]a[i,l]+Subscript[b, j] Subscript[b, l]a[i,k]+Subscript[b, i] Subscript[b, k]a[l,j]-Subscript[b, i] Subscript[b, l]a[k,j]-Subscript[b, j] Subscript[b, k]a[l,i]+Subscript[b, j] Subscript[b, l]a[k,i]
)]];



