def1ch[0];

SPIN = ToExpression @ param["spin", "extra"];

Module[{sx, sy, sz, ox, oy, oz, ss},
 sx = spinketbraX[SPIN];
 sy = spinketbraY[SPIN];
 sz = spinketbraZ[SPIN];

 ox = nc[ sx, spinx[ f[0] ] ];
 oy = nc[ sy, spiny[ f[0] ] ];
 oz = nc[ sz, spinz[ f[0] ] ];

 ss = Expand[ox + oy + oz];
 Hk = Jkondo ss;

 Hfield = B sz;

 sp2 = pow[sp, 2];
 sm2 = pow[sm, 2];
 Haniso = anD pow[sz, 2];
];

H = H0 + Hk + Hfield + Haniso;
Hhyb = Hk;

MAKESPINKET = SPIN;

hybopf = ( Chop @ Expand @ komutator[Hhyb /. params, f[#1, 0, #2]] )&;
