SetDirectory["~/writing/WIP/KappaLib"];
<<kappaLib.m

Example 5.2. Define 5-parameter medium with zero Tamm-Rubilar tensor density

Ax=(({{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}));
Bx=(({{0, 0, lam1}, {0, 0, lam2}, {lam1, lam2, lam3}}));
Cx=(({{-(1/(2^(1/3))), 0, lam4}, {0, -(1/(2^(1/3))), lam5}, {0, 0, (2^(2/3))}}));
Dx=Transpose[Cx];

kappa=emABCDToKappa[Ax,Bx,Cx,Dx];

Check properties

Union[Flatten[emKappaToTR[kappa]]]

Ax-Transpose[Ax]
Bx-Transpose[Bx]
Dx-Transpose[Cx]
emTrace[kappa]

emDet[kappa]