From 2cb9f9299ea90928b15bd0b44efccaec7e9dd066 Mon Sep 17 00:00:00 2001 From: Rok Zitko Date: Tue, 19 Apr 2022 15:45:48 +0200 Subject: [PATCH] add extracteps[] --- sneg.m | 3 +++ 1 file changed, 3 insertions(+) diff --git a/sneg.m b/sneg.m index 127d761..9c9f0d9 100644 --- a/sneg.m +++ b/sneg.m @@ -1462,6 +1462,9 @@ of operator H in the given basis (in the creation operator representation). supercommutator[a___] := superkomutator[a]; superanticommutator[a___] := superantikomutator[a]; +(* Other helper functions *) +extracteps[a_, b_, H_] := anticommutator[a, commutator[H, conj[b]]] // Expand; + (* (Manual) normal ordering *) SetAttributes[normalorder, Listable]; normalorder[a_] := a - vev[a];