mjo-common: prevent \Sn[1] and \Hn[1] from dropping their superscripts.

[mjotex.git] / mjo-common.tex

diff --git a/mjo-common.tex b/mjo-common.tex
index a8d9aaa50372ecd54ab4d75ff806bb02ad5981ad..5971547ed7ddacd1cc7e7739f40d08a32ce632d3 100644 (file)
--- a/mjo-common.tex
+++ b/mjo-common.tex
@@ -138,11 +138,10 @@
 \fi
 
 
-% The space of real symmetric n-by-n matrices.
-\newcommand*{\Sn}[1][n]{
-  \mathcal{S}\if\detokenize{#1}\detokenize{1}{}\else^{#1}\fi
-}
-
+% The space of real symmetric n-by-n matrices. Does not reduce to
+% merely "S" when n=1 since S^{n} does not mean an n-fold cartesian
+% product of S^{1}.
+\newcommand*{\Sn}[1][n]{ \mathcal{S}^{#1} }
 \ifdefined\newglossaryentry
   \newglossaryentry{Sn}{
     name={\ensuremath{\Sn}},
@@ -151,11 +150,10 @@
   }
 \fi
 
-% The space of complex Hermitian n-by-n matrices.
-\newcommand*{\Hn}[1][n]{
-  \mathcal{H}\if\detokenize{#1}\detokenize{1}{}\else^{#1}\fi
-}
-
+% The space of complex Hermitian n-by-n matrices. Does not reduce to
+% merely "H" when n=1 since H^{n} does not mean an n-fold cartesian
+% product of H^{1}.
+\newcommand*{\Hn}[1][n]{ \mathcal{H}^{#1} }
 \ifdefined\newglossaryentry
   \newglossaryentry{Hn}{
     name={\ensuremath{\Hn}},
@@ -164,6 +162,7 @@
   }
 \fi
 
+
 %
 % Basic set operations
 %