X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=mjo-common.tex;h=5971547ed7ddacd1cc7e7739f40d08a32ce632d3;hb=6759e3a5bd5fd13bd239ee851c66d1eac83a7c1b;hp=e74648416d8a02bb7128c7f50275daecb5e7d3a8;hpb=e799531ea384c819fc849d2d512062f989453f04;p=mjotex.git

diff --git a/mjo-common.tex b/mjo-common.tex
index e746484..5971547 100644
--- a/mjo-common.tex
+++ b/mjo-common.tex
@@ -5,9 +5,7 @@
 \def\havemjocommon{1}
 
 
-\ifx\mathbb\undefined
-  \usepackage{amsfonts}
-\fi
+\input{mjo-font} % amsfonts and \mathpzc
 
 \ifx\bigtimes\undefined
   \usepackage{mathtools}
@@ -37,6 +35,18 @@
 % A triple of things.
 \newcommand*{\triple}[3]{ \left({#1},{#2},{#3}\right) }
 
+% A four-tuple of things.
+\newcommand*{\quadruple}[4]{ \left({#1},{#2},{#3},{#4}\right) }
+
+% A five-tuple of things.
+\newcommand*{\quintuple}[5]{ \left({#1},{#2},{#3},{#4},{#5}\right) }
+
+% A six-tuple of things.
+\newcommand*{\sextuple}[6]{ \left({#1},{#2},{#3},{#4},{#5},{#6}\right) }
+
+% A seven-tuple of things.
+\newcommand*{\septuple}[7]{ \left({#1},{#2},{#3},{#4},{#5},{#6},{#7}\right) }
+
 % The Cartesian product of two things.
 \newcommand*{\cartprod}[2]{ {#1}\times{#2} }
 
@@ -128,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}},
@@ -141,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}},
@@ -154,6 +162,7 @@
   }
 \fi
 
+
 %
 % Basic set operations
 %
@@ -188,6 +197,14 @@
 \newcommand*{\directsummany}[3]{ \binopmany{\bigoplus}{#1}{#2}{#3} }
 \newcommand*{\unionmany}[3]{ \binopmany{\bigcup}{#1}{#2}{#3} }
 
+\newcommand*{\powerset}[1]{\mathpzc{P}\of{{#1}}}
+\ifdefined\newglossaryentry
+  \newglossaryentry{powerset}{
+    name={\ensuremath{\powerset{X}}},
+    description={the ``powerset,'' or set of all subsets of $X$},
+    sort=p
+  }
+\fi
 
 % The four standard (UNLESS YOU'RE FRENCH) types of intervals along
 % the real line.