\begin{Schunk}
\begin{Sinput}
 text(s3d$xyz.convert(-1, 10, 0.07),labels = expression(f(x) == frac(1, sqrt((2 * pi)^n * phantom(".") * det(Sigma[X]))) * phantom(".") * exp * { bgroup("(", - scriptstyle(frac(1, 2) * phantom(".")) *
  (x - mu)^T * Sigma[X]^-1 * (x - mu), ")")}))
 ### fix. insert {} around Sigma[X] == ... ##
 text(s3d$xyz.convert(1.5, 10, 0.05), labels = expression("with" * phantom("m") * mu == bgroup("(", atop(0, 0), ")") * phantom(".") * "," * phantom(0) * {Sigma[X] == bgroup("(", atop(3 * phantom(0) * 2, 2 * phantom(0) * 3), ")") }) )
\end{Sinput}
\end{Schunk}
