Rigid-wear model -- Mathematica implementation