summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/cool/cool.sty
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2006-10-09 23:07:15 +0000
committerNorbert Preining <preining@logic.at>2006-10-09 23:07:15 +0000
commit8650f6e3d8df6655cddbdcdfc63e83dcc0c0cf6f (patch)
treed9d3e661d4269683d48b718460bc52a619cb8b4c /Master/texmf-dist/tex/latex/cool/cool.sty
parenta2804fb7b5228d3b8b2b855919c0b9425b76208c (diff)
cool update
git-svn-id: svn://tug.org/texlive/trunk@2293 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/cool/cool.sty')
-rw-r--r--Master/texmf-dist/tex/latex/cool/cool.sty468
1 files changed, 243 insertions, 225 deletions
diff --git a/Master/texmf-dist/tex/latex/cool/cool.sty b/Master/texmf-dist/tex/latex/cool/cool.sty
index 51fa1ffe6fd..dbce86e8283 100644
--- a/Master/texmf-dist/tex/latex/cool/cool.sty
+++ b/Master/texmf-dist/tex/latex/cool/cool.sty
@@ -13,13 +13,14 @@
%%
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesPackage{cool}
- [2006/09/17 v1.2 COntent Oriented LaTeX]
+ [2006/10/07 v1.3 COntent Oriented LaTeX]
\RequirePackage{ifthen}
\RequirePackage{coollist}
\RequirePackage{coolstr}
\RequirePackage{forloop}
\RequirePackage{amsmath}
\RequirePackage{amssymb}
+\RequirePackage{bbm}
%% \CharacterTable
%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
@@ -37,13 +38,13 @@
%% Right brace \} Tilde \~}
\newcounter{COOL@ct} %just a general counter
\newcounter{COOL@ct@}%just a general counter
-\newcommand{\inp}[2][0cm]{\left(#2\parbox[h][#1]{0cm}{}\right)}
+\newcommand{\inp}[2][0cm]{\mathopen{}\left(#2\parbox[h][#1]{0cm}{}\right)}
% in parentheses ()
-\newcommand{\inb}[2][0cm]{\left[#2\parbox[h][#1]{0cm}{}\right]}
+\newcommand{\inb}[2][0cm]{\mathopen{}\left[#2\parbox[h][#1]{0cm}{}\right]}
% in brackets []
-\newcommand{\inbr}[2][0cm]{\left\{#2\parbox[h][#1]{0cm}{}\right\}}
-\newcommand{\inap}[2][0cm]{\left<{#2}\parbox[h][#1]{0cm}{}\right>}
-\newcommand{\nop}[1]{\left.{#1}\right.}
+\newcommand{\inbr}[2][0cm]{\mathopen{}\left\{#2\parbox[h][#1]{0cm}{}\right\}}
+\newcommand{\inap}[2][0cm]{\mathopen{}\left<{#2}\parbox[h][#1]{0cm}{}\right>}
+\newcommand{\nop}[1]{\mathopen{}\left.{#1}\right.}
\let\COOL@decide@paren@no@type=\relax
\newcommand{\COOL@decide@paren}[3][\COOL@decide@paren@no@type]{%
\ifthenelse{ \equal{#1}{\COOL@decide@paren@no@type} }%
@@ -131,11 +132,15 @@
\fi%
}
\newcommand{\UseStyleFile}[1]{}
-\newcommand{\I}{i}
-\newcommand{\E}{e}
-\newcommand{\PI}{\pi}
+\newcommand{\COOL@notation@ISymb}{i}
+\newcommand{\I}{\COOL@notation@ISymb}
+\newcommand{\COOL@notation@ESymb}{e}
+\newcommand{\E}{\COOL@notation@ESymb}
+\newcommand{\COOL@notation@PISymb}{\pi}
+\newcommand{\PI}{\COOL@notation@PISymb}
\newcommand{\GoldenRatio}{\varphi}
-\newcommand{\EulerGamma}{\gamma}
+\newcommand{\COOL@notation@EulerGammaSymb}{\gamma}
+\newcommand{\EulerGamma}{\COOL@notation@EulerGammaSymb}
\newcommand{\Catalan}{C}
\newcommand{\Glaisher}{\mathord{\operatorname{Glaisher}}}
\newcommand{\Khinchin}{\mathord{\operatorname{Khinchin}}}
@@ -301,12 +306,12 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer}=1}%
{%
-W\!\COOL@decide@paren{ProductLog}{#1}%
+W\COOL@decide@paren{ProductLog}{#1}%
}%
{%
\ifthenelse{\value{COOL@listpointer}=2}%
{%
-W_{\listval{#1}{1}}\!\COOL@decide@paren{ProductLog}{\listval{#1}{2}}%
+W_{\listval{#1}{1}}\COOL@decide@paren{ProductLog}{\listval{#1}{2}}%
}%
{%
\PackageError{cool}{`ProductLog' Invaid Argument}%
@@ -321,29 +326,29 @@ W_{\listval{#1}{1}}\!\COOL@decide@paren{ProductLog}{\listval{#1}{2}}%
\newcommand{\COOL@notation@BesselJSymb}{J}
\newcommand{\COOL@notation@BesselJParen}{p}
\newcommand{\BesselJ}[2]%
-{\COOL@notation@BesselJSymb_{#1}\!\COOL@decide@paren{BesselJ}{#2}}
+{\COOL@notation@BesselJSymb_{#1}\COOL@decide@paren{BesselJ}{#2}}
\newcommand{\COOL@notation@BesselYSymb}{Y}
\newcommand{\COOL@notation@BesselYParen}{p}
\newcommand{\BesselY}[2]%
-{\COOL@notation@BesselYSymb_{#1}\!\COOL@decide@paren{BesselY}{#2}}
+{\COOL@notation@BesselYSymb_{#1}\COOL@decide@paren{BesselY}{#2}}
\newcommand{\COOL@notation@BesselISymb}{I}
\newcommand{\COOL@notation@BesselIParen}{p}
\newcommand{\BesselI}[2]%
-{\COOL@notation@BesselISymb_{#1}\!\COOL@decide@paren{BesselI}{#2}}
+{\COOL@notation@BesselISymb_{#1}\COOL@decide@paren{BesselI}{#2}}
\newcommand{\COOL@notation@BesselKSymb}{K}
\newcommand{\COOL@notation@BesselKParen}{p}
\newcommand{\BesselK}[2]%
-{\COOL@notation@BesselKSymb_{#1}\!\COOL@decide@paren{BesselK}{#2}}
+{\COOL@notation@BesselKSymb_{#1}\COOL@decide@paren{BesselK}{#2}}
\newcommand{\COOL@notation@AiryAiParen}{p}
\DeclareMathOperator{\AiryAiSymb}{Ai}
-\newcommand{\AiryAi}[1]{\AiryAiSymb\!\COOL@decide@paren{AiryAi}{#1}}
+\newcommand{\AiryAi}[1]{\AiryAiSymb\COOL@decide@paren{AiryAi}{#1}}
\newcommand{\COOL@notation@AiryBiParen}{p}
\DeclareMathOperator{\AiryBiSymb}{Bi}
-\newcommand{\AiryBi}[1]{\AiryBiSymb\!\COOL@decide@paren{AiryBi}{#1}}
+\newcommand{\AiryBi}[1]{\AiryBiSymb\COOL@decide@paren{AiryBi}{#1}}
\newcommand{\COOL@notation@StruveHParen}{p}
-\newcommand{\StruveH}[2]{ {\bf H}_{#1}\!\COOL@decide@paren{StruveH}{#2}}
+\newcommand{\StruveH}[2]{ {\bf H}_{#1}\COOL@decide@paren{StruveH}{#2}}
\newcommand{\COOL@notation@StruveLParen}{p}
-\newcommand{\StruveL}[2]{ {\bf L}_{#1}\!\COOL@decide@paren{StruveL}{#2}}
+\newcommand{\StruveL}[2]{ {\bf L}_{#1}\COOL@decide@paren{StruveL}{#2}}
\newcommand{\Floor}[1]{\lfloor #1 \rfloor}
\newcommand{\Ceiling}[1]{\lceil #1 \rceil}
\newcommand{\Round}[1]{\lfloor #1 \rceil}
@@ -402,7 +407,7 @@ F_{#1}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
-F_{\COOL@Fibonacci@arg@i}\!%
+F_{\COOL@Fibonacci@arg@i}%
\COOL@decide@paren{Fibonacci}{\COOL@Fibonacci@arg@ii}%
}%
{%
@@ -421,7 +426,7 @@ E_{#1}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
-E_{\COOL@Euler@arg@i}\!%
+E_{\COOL@Euler@arg@i}%
\COOL@decide@paren{Euler}{\COOL@Euler@arg@ii}%
}%
{%
@@ -440,7 +445,7 @@ B_{#1}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
-B_{\COOL@Bernoulli@arg@i}\!%
+B_{\COOL@Bernoulli@arg@i}%
\COOL@decide@paren{Bernoulli}{\COOL@Bernoulli@arg@ii}%
}%
{%
@@ -452,9 +457,9 @@ comma separate list of length 1 or 2}%
\newcommand{\StirlingSOne}[2]{S_{#1}^{\inp{#2}}}
\newcommand{\StirlingSTwo}[2]{{\cal S}_{#1}^{\inp{#2}}}
\newcommand{\COOL@notation@PartitionsPParen}{p}
-\newcommand{\PartitionsP}[1]{p\!\COOL@decide@paren{PartitionsP}{#1}}
+\newcommand{\PartitionsP}[1]{p\COOL@decide@paren{PartitionsP}{#1}}
\newcommand{\COOL@notation@PartitionsQParen}{p}
-\newcommand{\PartitionsQ}[1]{q\!\COOL@decide@paren{PartitionsQ}{#1}}
+\newcommand{\PartitionsQ}[1]{q\COOL@decide@paren{PartitionsQ}{#1}}
\newcommand{\COOL@notation@DiscreteDeltaParen}{p}
\newcommand{\DiscreteDelta}[1]%
{\delta\COOL@decide@paren{DiscreteDelta}{#1}}
@@ -495,10 +500,16 @@ comma separate list of length 1 or 2}%
{%
\ifthenelse{\equal{\COOL@notation@LeviCivitaUseComma}{true}}%
{%
-\ifthenelse{\NOT \value{COOL@ct} = 1}{,}{}%
+\ifthenelse{\NOT \value{COOL@ct} = 1}%
+{%
+\edef\COOL@arg@temp%
+{\COOL@arg@temp, \csname COOL@arg@\roman{COOL@ct}\endcsname}%
+}%
+{%
\edef\COOL@arg@temp%
{\COOL@arg@temp \csname COOL@arg@\roman{COOL@ct}\endcsname}%
}%
+}%
{%
\edef\COOL@arg@temp%
{\COOL@arg@temp \csname COOL@arg@\roman{COOL@ct}\endcsname}%
@@ -510,7 +521,7 @@ comma separate list of length 1 or 2}%
\newcommand{\COOL@notation@HermiteHParen}{p}
\newcommand{\COOL@notation@HermiteHSymb}{H}
\newcommand{\HermiteH}[2]%
-{\COOL@notation@HermiteHSymb_{#1}\!\COOL@decide@paren{HermiteH}{#2}}
+{\COOL@notation@HermiteHSymb_{#1}\COOL@decide@paren{HermiteH}{#2}}
\newcommand{\COOL@notation@LaugerreLParen}{p}
\newcommand{\COOL@notation@LaugerreLSymb}{L}
\newcommand{\LaugerreL}[1]{%
@@ -519,12 +530,12 @@ comma separate list of length 1 or 2}%
\ifthenelse{\value{COOL@listpointer}=2}%
{%
\COOL@notation@LaugerreLSymb_{\COOL@list@temp@i}%
-\!\COOL@decide@paren{LaugerreL}{\COOL@list@temp@ii}%
+\COOL@decide@paren{LaugerreL}{\COOL@list@temp@ii}%
}%
{ \ifthenelse{\value{COOL@listpointer}=3}%
{%
\COOL@notation@LaugerreLSymb_{\COOL@list@temp@i}^{\COOL@list@temp@ii}%
-\!\COOL@decide@paren{LaugerreL}{\COOL@list@temp@iii}%
+\COOL@decide@paren{LaugerreL}{\COOL@list@temp@iii}%
}%
{%
\PackageError{cool}{Invalid Argument}%
@@ -538,13 +549,13 @@ comma separate list of length 1 or 2}%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 2}%
{%
-\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}\!%
+\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}%
\COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@ii}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}%
-^{\COOL@LegendreP@arg@ii}\!%
+^{\COOL@LegendreP@arg@ii}%
\COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@iii}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 4}%
@@ -560,11 +571,11 @@ comma separate list of length 1 or 2}%
{`LegendreP' third argument must be $>$ 1}%
\or%
\COOL@notation@LegendrePSymb_{\COOL@LegendreP@arg@i}%
-^{\COOL@LegendreP@arg@ii}\!%
+^{\COOL@LegendreP@arg@ii}%
\COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@iv}%
\or%
{\cal P}_{\COOL@LegendreP@arg@i}%
-^{\COOL@LegendreP@arg@ii}\!%
+^{\COOL@LegendreP@arg@ii}%
\COOL@decide@paren{LegendreP}{\COOL@LegendreP@arg@iv}%
\else%
\PackageError{cool}{Invalid Argument}{unsupported}%
@@ -587,13 +598,13 @@ comma separate list of length 1 or 2}%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 2}%
{%
-\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}\!%
+\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}%
\COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@ii}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}%
-^{\COOL@LegendreQ@arg@ii}\!%
+^{\COOL@LegendreQ@arg@ii}%
\COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@iii}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 4}%
@@ -609,11 +620,11 @@ comma separate list of length 1 or 2}%
{`LegendreQ' third argument must be $>$ 1}%
\or%
\COOL@notation@LegendreQSymb_{\COOL@LegendreQ@arg@i}%
-^{\COOL@LegendreQ@arg@ii}\!%
+^{\COOL@LegendreQ@arg@ii}%
\COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@iv}%
\or%
{\cal Q}_{\COOL@LegendreQ@arg@i}%
-^{\COOL@LegendreQ@arg@ii}\!%
+^{\COOL@LegendreQ@arg@ii}%
\COOL@decide@paren{LegendreQ}{\COOL@LegendreQ@arg@iv}%
\else%
\PackageError{cool}{Invalid Argument}{unsupported}%
@@ -632,16 +643,16 @@ comma separate list of length 1 or 2}%
\newcommand{\COOL@notation@ChebyshevTParen}{p}
\newcommand{\COOL@notation@ChebyshevTSymb}{T}
\newcommand{\ChebyshevT}[2]%
-{\COOL@notation@ChebyshevTSymb_{#1}\!\COOL@decide@paren{ChebyshevT}{#2}}
+{\COOL@notation@ChebyshevTSymb_{#1}\COOL@decide@paren{ChebyshevT}{#2}}
\newcommand{\COOL@notation@ChebyshevUParen}{p}
\newcommand{\COOL@notation@ChebyshevUSymb}{U}
\newcommand{\ChebyshevU}[2]%
-{\COOL@notation@ChebyshevUSymb_{#1}\!\COOL@decide@paren{ChebyshevU}{#2}}
+{\COOL@notation@ChebyshevUSymb_{#1}\COOL@decide@paren{ChebyshevU}{#2}}
\newcommand{\COOL@notation@JacobiPParen}{p}
\newcommand{\COOL@notation@JacobiPSymb}{P}
\newcommand{\JacobiP}[4]{%
\COOL@notation@JacobiPSymb_{#1}^{\inp{#2, #3}}%
-\!\COOL@decide@paren{JacobiP}{#4}%
+\COOL@decide@paren{JacobiP}{#4}%
}
\newcommand{\AssocLegendreP}[3]{\LegendreP{#1,#2,#3}}
\newcommand{\AssocLegendreQ}[3]{\LegendreQ{#1,#2,#3}}
@@ -649,19 +660,19 @@ comma separate list of length 1 or 2}%
\newcommand{\COOL@notation@GegenbauerCSymb}{C}
\newcommand{\GegenbauerC}[3]{%
\COOL@notation@GegenbauerCSymb_{#1}^{#2}%
-\!\COOL@decide@paren{GegenbauerC}{#3}%
+\COOL@decide@paren{GegenbauerC}{#3}%
}
\newcommand{\COOL@notation@SphericalHarmonicYParen}{p}
\newcommand{\COOL@notation@SphericalHarmonicYSymb}{Y}
\newcommand{\SphericalHarmonicY}[4]{%
\COOL@notation@SphericalHarmonicYSymb_{#1}^{#2}%
-\!\COOL@decide@paren{SphericalHarmonicY}{#3,#4}%
+\COOL@decide@paren{SphericalHarmonicY}{#3,#4}%
}
\newcommand{\SphericalHarmY}[4]{\SphericalHarmonicY{#1}{#2}{#3}{#4}}
\newcommand{\SpHarmY}[4]{\SphericalHarmonicY{#1}{#2}{#3}{#4}}
\newcommand{\COOL@notation@CyclotomicCParen}{p}
\newcommand{\CyclotomicC}[2]%
-{C_{#1}\!\COOL@decide@paren{CyclotomicC}{#2}}
+{C_{#1}\COOL@decide@paren{CyclotomicC}{#2}}
\newcommand{\FibonacciF}[2]{\Fibonacci{#1,#2}}
\newcommand{\EulerE}[2]{\Euler{#1,#2}}
\newcommand{\BernoulliB}[2]{\Bernoulli{#1,#2}}
@@ -708,15 +719,15 @@ comma separate list of length 1 or 2}%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
-\Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+\Gamma\COOL@decide@paren{GammaFunc}{#1}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
-\Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+\Gamma\COOL@decide@paren{GammaFunc}{#1}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
-\Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+\Gamma\COOL@decide@paren{GammaFunc}{#1}%
}%
{%
\PackageError{cool}{Invalid Argument}%
@@ -731,11 +742,11 @@ comma separate list of length 1 or 2}%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 2}%
{%
-Q\!\COOL@decide@paren{GammaRegularized}{#1}%
+Q\COOL@decide@paren{GammaRegularized}{#1}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
-Q\!\COOL@decide@paren{GammaRegularized}{#1}%
+Q\COOL@decide@paren{GammaRegularized}{#1}%
}%
{%
\PackageError{cool}{Invalid Argument}%
@@ -751,11 +762,11 @@ Q\!\COOL@decide@paren{GammaRegularized}{#1}%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 2}%
{%
-Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
+Q^{-1}\COOL@decide@paren{InverseGammaRegularized}{#1}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
-Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
+Q^{-1}\COOL@decide@paren{InverseGammaRegularized}{#1}%
}%
{%
\PackageError{cool}{Invalid Argument}%
@@ -773,10 +784,10 @@ Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
\DeclareMathOperator{\LogGammaSymb}{log\Gamma}
\newcommand{\LogGamma}[1]{\LogGammaSymb\COOL@decide@paren{LogGamma}{#1}}
\newcommand{\COOL@notation@DiGammaParen}{p}
-\newcommand{\DiGamma}[1]{\digamma\!\COOL@decide@paren{DiGamma}{#1}}
+\newcommand{\DiGamma}[1]{\digamma\COOL@decide@paren{DiGamma}{#1}}
\newcommand{\COOL@notation@PolyGammaParen}{p}
\newcommand{\PolyGamma}[2]%
-{\psi^{\inp{#1}}\!\COOL@decide@paren{PolyGamma}{#2}}
+{\psi^{\inp{#1}}\COOL@decide@paren{PolyGamma}{#2}}
\newcommand{\HarmNum}[1]{%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer}=1}%
@@ -799,16 +810,16 @@ H^{\inp{\COOL@list@temp@ii}}_{\COOL@list@temp@i}%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 2}%
{%
-B\!\COOL@decide@paren{Beta}{\COOL@Beta@arg@i, \COOL@Beta@arg@ii}%
+B\COOL@decide@paren{Beta}{\COOL@Beta@arg@i, \COOL@Beta@arg@ii}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
-B_{\COOL@Beta@arg@i}\!%
+B_{\COOL@Beta@arg@i}%
\COOL@decide@paren{Beta}{\COOL@Beta@arg@ii, \COOL@Beta@arg@iii}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 4}%
{%
-B_{\inp{\COOL@Beta@arg@i,\COOL@Beta@arg@ii}}\!%
+B_{\inp{\COOL@Beta@arg@i,\COOL@Beta@arg@ii}}%
\COOL@decide@paren{Beta}{\COOL@Beta@arg@iii, \COOL@Beta@arg@iv}%
}%
{%
@@ -825,13 +836,13 @@ B_{\inp{\COOL@Beta@arg@i,\COOL@Beta@arg@ii}}\!%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 3}%
{%
-I_{\COOL@BetaRegularized@arg@i}\!%
+I_{\COOL@BetaRegularized@arg@i}%
\COOL@decide@paren{BetaRegularized}%
{\COOL@BetaRegularized@arg@ii, \COOL@BetaRegularized@arg@iii}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 4}%
{%
-I_{\inp{\COOL@BetaRegularized@arg@i, \COOL@BetaRegularized@arg@ii}}\!%
+I_{\inp{\COOL@BetaRegularized@arg@i, \COOL@BetaRegularized@arg@ii}}%
\COOL@decide@paren{BetaRegularized}%
{\COOL@BetaRegularized@arg@iii, \COOL@BetaRegularized@arg@iv}%
}%
@@ -850,7 +861,7 @@ I_{\inp{\COOL@BetaRegularized@arg@i, \COOL@BetaRegularized@arg@ii}}\!%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 3}%
{%
-I^{-1}_{\COOL@InverseBetaRegularized@arg@i}\!%
+I^{-1}_{\COOL@InverseBetaRegularized@arg@i}%
\COOL@decide@paren{InverseBetaRegularized}%
{\COOL@InverseBetaRegularized@arg@ii,%
\COOL@InverseBetaRegularized@arg@iii}%
@@ -860,7 +871,7 @@ I^{-1}_{\COOL@InverseBetaRegularized@arg@i}\!%
I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
\COOL@InverseBetaRegularized@arg@ii%
}%
-}\!%
+}%
\COOL@decide@paren{InverseBetaRegularized}%
{\COOL@InverseBetaRegularized@arg@iii,%
\COOL@InverseBetaRegularized@arg@iv}%
@@ -883,11 +894,11 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
-\ErfSymb\!\COOL@decide@paren{Erf}{#1}
+\ErfSymb\COOL@decide@paren{Erf}{#1}
}%
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
-\ErfSymb\!\COOL@decide@paren{Erf}{#1}
+\ErfSymb\COOL@decide@paren{Erf}{#1}
}%
{%
\PackageError{cool}{Invalid Argument}%
@@ -901,11 +912,11 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
-\ErfSymb^{-1}\!\COOL@decide@paren{ErfInv}{#1}
+\ErfSymb^{-1}\COOL@decide@paren{ErfInv}{#1}
}%
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
-\ErfSymb^{-1}\!\COOL@decide@paren{ErfInv}{#1}
+\ErfSymb^{-1}\COOL@decide@paren{ErfInv}{#1}
}%
{%
\PackageError{cool}{Invalid Argument}%
@@ -918,38 +929,38 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
\newcommand{\GenErfInv}[2]{\ErfInv{#1, #2}}
\newcommand{\COOL@notation@ErfcParen}{p}
\DeclareMathOperator{\ErfcSymb}{erfc}
-\newcommand{\Erfc}[1]{\ErfcSymb\!\COOL@decide@paren{Erfc}{#1}}
+\newcommand{\Erfc}[1]{\ErfcSymb\COOL@decide@paren{Erfc}{#1}}
\newcommand{\COOL@notation@ErfcInvParen}{p}
\newcommand{\ErfcInv}[1]%
-{\ErfcSymb^{-1}\!\COOL@decide@paren{ErfcInv}{#1}}
+{\ErfcSymb^{-1}\COOL@decide@paren{ErfcInv}{#1}}
\newcommand{\COOL@notation@ErfiParen}{p}
\DeclareMathOperator{\ErfiSymb}{erfi}
-\newcommand{\Erfi}[1]{\ErfiSymb\!\COOL@decide@paren{Erfi}{#1}}
+\newcommand{\Erfi}[1]{\ErfiSymb\COOL@decide@paren{Erfi}{#1}}
\newcommand{\COOL@notation@FresnelSParen}{p}
-\newcommand{\FresnelS}[1]{S\!\COOL@decide@paren{FresnelS}{#1}}
+\newcommand{\FresnelS}[1]{S\COOL@decide@paren{FresnelS}{#1}}
\newcommand{\COOL@notation@FresnelCParen}{p}
-\newcommand{\FresnelC}[1]{C\!\COOL@decide@paren{FresnelC}{#1}}
+\newcommand{\FresnelC}[1]{C\COOL@decide@paren{FresnelC}{#1}}
\newcommand{\COOL@notation@ExpIntEParen}{p}
-\newcommand{\ExpIntE}[2]{E_{#1}\!\COOL@decide@paren{ExpIntE}{#2}}
+\newcommand{\ExpIntE}[2]{E_{#1}\COOL@decide@paren{ExpIntE}{#2}}
\newcommand{\COOL@notation@ExpIntEiParen}{p}
\DeclareMathOperator{\ExpIntEiSymb}{Ei}
\newcommand{\ExpIntEi}[1]%
-{\ExpIntEiSymb\!\COOL@decide@paren{ExpIntEi}{#1}}
+{\ExpIntEiSymb\COOL@decide@paren{ExpIntEi}{#1}}
\newcommand{\COOL@notation@LogIntParen}{p}
\DeclareMathOperator{\LogIntSymb}{li}
-\newcommand{\LogInt}[1]{\LogIntSymb\!\COOL@decide@paren{LogInt}{#1}}
+\newcommand{\LogInt}[1]{\LogIntSymb\COOL@decide@paren{LogInt}{#1}}
\newcommand{\COOL@notation@SinIntParen}{p}
\DeclareMathOperator{\SinIntSymb}{Si}
-\newcommand{\SinInt}[1]{\SinIntSymb\!\COOL@decide@paren{SinInt}{#1}}
+\newcommand{\SinInt}[1]{\SinIntSymb\COOL@decide@paren{SinInt}{#1}}
\newcommand{\COOL@notation@CosIntParen}{p}
\DeclareMathOperator{\CosIntSymb}{Ci}
-\newcommand{\CosInt}[1]{\CosIntSymb\!\COOL@decide@paren{CosInt}{#1}}
+\newcommand{\CosInt}[1]{\CosIntSymb\COOL@decide@paren{CosInt}{#1}}
\newcommand{\COOL@notation@SinhIntParen}{p}
\DeclareMathOperator{\SinhIntSymb}{Shi}
-\newcommand{\SinhInt}[1]{\SinhIntSymb\!\COOL@decide@paren{SinhInt}{#1}}
+\newcommand{\SinhInt}[1]{\SinhIntSymb\COOL@decide@paren{SinhInt}{#1}}
\newcommand{\COOL@notation@CoshIntParen}{p}
\DeclareMathOperator{\CoshIntSymb}{Chi}
-\newcommand{\CoshInt}[1]{\CoshIntSymb\!\COOL@decide@paren{CoshInt}{#1}}
+\newcommand{\CoshInt}[1]{\CoshIntSymb\COOL@decide@paren{CoshInt}{#1}}
\newcommand{\COOL@Hypergeometric@pq@ab@value}[4]{%
\ifthenelse{\boolean{COOL@#1@isint} \AND \boolean{COOL@#3@islist}}%
{% #1 is an INT and #3 is a LIST
@@ -1053,7 +1064,7 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
{happens if `b'-arg is a list and `q'-arg isn't an integer}%
}%
{}%
-{}_{#2}{\COOL@notation@HypergeometricSymb}_{#3}\!%
+{}_{#2}{\COOL@notation@HypergeometricSymb}_{#3}%
\COOL@decide@paren{Hypergeometric}%
{%
\COOL@Hypergeometric@pq@ab@value{p}{#2}{a}{#4};%
@@ -1115,7 +1126,7 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
{happens if `b'-arg is a list and `q'-arg isn't an integer}%
}%
{}%
-{}_{#2}{\COOL@notation@RegHypergeometricSymb}_{#3}\!%
+{}_{#2}{\COOL@notation@RegHypergeometricSymb}_{#3}%
\COOL@decide@paren{RegHypergeometric}%
{%
\COOL@Hypergeometric@pq@ab@value{p}{#2}{a}{#4};%
@@ -1125,10 +1136,10 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
}
\newcommand{\COOL@notation@AppellFOneParen}{p}
\newcommand{\AppellFOne}[4]%
-{F_{1}\!\COOL@decide@paren{AppellFOne}{#1; #2; #3; #4}}
+{F_{1}\COOL@decide@paren{AppellFOne}{#1; #2; #3; #4}}
\newcommand{\COOL@notation@HypergeometricUSymb}{U}
\newcommand{\HypergeometricU}[3]%
-{\COOL@notation@HypergeometricUSymb\!\inp{#1, #2, #3}}
+{\COOL@notation@HypergeometricUSymb\inp{#1, #2, #3}}
\newcommand{\COOL@MeijerG@anp@value}[3]{%
\isint{#3}%
\ifthenelse{\boolean{COOL@isint}}%
@@ -1187,7 +1198,7 @@ I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
\listval{#5}{0}% q - m
\addtocounter{COOL@ct@}{\value{COOL@listpointer}}%
_{\arabic{COOL@ct},\arabic{COOL@ct@}}%
-\!\left(%
+\mathopen{}\left(%
#6%
\left|%
{ {#2,#3} \@@atop {#4,#5} }%
@@ -1216,7 +1227,7 @@ _{\arabic{COOL@ct},\arabic{COOL@ct@}}%
\listval{#3}{0}% p
\addtocounter{COOL@ct}{\value{COOL@listpointer}}%
_{\arabic{COOL@ct},#5}%
-\!\left(%
+\mathopen{}\left(%
#6%
\left|%
{%
@@ -1226,7 +1237,7 @@ _{\arabic{COOL@ct},#5}%
}%
{%
^{#4,#2}_{#3,#5}%
-\!\left(%
+\mathopen{}\left(%
#6%
\left|%
{%
@@ -1244,7 +1255,7 @@ _{\arabic{COOL@ct},#5}%
\listval{#5}{0}% q
\addtocounter{COOL@ct}{\value{COOL@listpointer}}%
_{#3, \arabic{COOL@ct}}%
-\!\left(%
+\mathopen{}\left(%
#6%
\left|%
{%
@@ -1384,7 +1395,7 @@ _{#3, \arabic{COOL@ct}}%
\newcommand{\COOL@notation@EllipticKParen}{p}
\newcommand{\COOL@notation@EllipticKSymb}{K}
\newcommand{\EllipticK}[1]%
-{\COOL@notation@EllipticKSymb\!\COOL@decide@paren{EllipticK}{#1}}%
+{\COOL@notation@EllipticKSymb\COOL@decide@paren{EllipticK}{#1}}%
\newcommand{\COOL@notation@EllipticEParen}{p}
\newcommand{\COOL@notation@EllipticESymb}{E}
\newcommand{\EllipticE}[1]{%
@@ -1392,11 +1403,11 @@ _{#3, \arabic{COOL@ct}}%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
-\COOL@notation@EllipticESymb\!\COOL@decide@paren{EllipticE}{#1}%
+\COOL@notation@EllipticESymb\COOL@decide@paren{EllipticE}{#1}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
-\COOL@notation@EllipticESymb\!%
+\COOL@notation@EllipticESymb%
\COOL@decide@paren{EllipticE}%
{\COOL@EllipticE@arg@i \left| \, \COOL@EllipticE@arg@ii \!\!\right.}%
}%
@@ -1414,13 +1425,13 @@ _{#3, \arabic{COOL@ct}}%
\ifthenelse{\value{COOL@listpointer} = 2}%
{%
\COOL@notation@EllipticPiSymb%
-\!\COOL@decide@paren{EllipticPi}%
+\COOL@decide@paren{EllipticPi}%
{\COOL@EllipticPi@arg@i \left| \, \COOL@EllipticPi@arg@ii \!\!\right.}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
\COOL@notation@EllipticPiSymb%
-\!\COOL@decide@paren{EllipticPi}%
+\COOL@decide@paren{EllipticPi}%
{ \COOL@EllipticPi@arg@i; \,%
\COOL@EllipticPi@arg@ii \left| \,%
\COOL@EllipticPi@arg@iii \!\!\right.%
@@ -1440,7 +1451,7 @@ _{#3, \arabic{COOL@ct}}%
\ifthenelse{ \value{COOL@listpointer} = 2 }%
{%
\COOL@notation@EllipticFSymb%
-\!\COOL@decide@paren{EllipticF}%
+\COOL@decide@paren{EllipticF}%
{\COOL@EllipticF@arg@i \left| \, \COOL@EllipticF@arg@ii \!\!\right.}%
}%
{%
@@ -1455,30 +1466,30 @@ _{#3, \arabic{COOL@ct}}%
\newcommand{\COOL@notation@JacobiZetaSymb}{Z}
\newcommand{\JacobiZeta}[2]{%
\COOL@notation@JacobiZetaSymb
-\!\COOL@decide@paren{JacobiZeta}{#1 \left| \, #2 \right.\!\!}%
+\COOL@decide@paren{JacobiZeta}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@EllipticThetaParen}{p}
\newcommand{\EllipticTheta}[3]%
-{\vartheta_{#1}\!\COOL@decide@paren{EllipticTheta}{#2, #3}}
+{\vartheta_{#1}\COOL@decide@paren{EllipticTheta}{#2, #3}}
\newcommand{\JacobiTheta}[3]{\EllipticTheta{#1}{#2}{#3}}
\newcommand{\COOL@notation@NevilleThetaCParen}{p}
\newcommand{\NevilleThetaC}[2]{%
-\vartheta_{c}\!\COOL@decide@paren{NevilleThetaC}%
+\vartheta_{c}\COOL@decide@paren{NevilleThetaC}%
{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@NevilleThetaDParen}{p}
\newcommand{\NevilleThetaD}[2]{%
-\vartheta_{d}\!\COOL@decide@paren{NevilleThetaD}%
+\vartheta_{d}\COOL@decide@paren{NevilleThetaD}%
{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@NevilleThetaNParen}{p}
\newcommand{\NevilleThetaN}[2]{%
-\vartheta_{n}\!\COOL@decide@paren{NevilleThetaN}%
+\vartheta_{n}\COOL@decide@paren{NevilleThetaN}%
{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@NevilleThetaSParen}{p}
\newcommand{\NevilleThetaS}[2]{%
-\vartheta_{s}\!\COOL@decide@paren{NevilleThetaS}%
+\vartheta_{s}\COOL@decide@paren{NevilleThetaS}%
{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@WeierstrassPParen}{p}
@@ -1492,7 +1503,7 @@ _{#3, \arabic{COOL@ct}}%
a comma separated list of length 2}%
}
{%
-\wp\!\COOL@decide@paren{WeierstrassP}{#1; #2}
+\wp\COOL@decide@paren{WeierstrassP}{#1; #2}
}%
}
\newcommand{\WeiP}[2]{\WeierstrassP{#1}{#2}}
@@ -1511,11 +1522,11 @@ _{#3, \arabic{COOL@ct}}%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
-\wp^{-1}\!\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
+\wp^{-1}\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
-\wp^{-1}\!\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
+\wp^{-1}\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
}%
{%
\PackageError{cool}{Invalid Argument}%
@@ -1540,11 +1551,11 @@ _{#3, \arabic{COOL@ct}}%
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
-\sigma\!\inp{#1; #2}%
+\sigma\inp{#1; #2}%
}%
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
-\sigma_{\COOL@WeiSigma@arg@z@i}\!\inp{\COOL@WeiSigma@arg@z@ii; #2}%
+\sigma_{\COOL@WeiSigma@arg@z@i}\inp{\COOL@WeiSigma@arg@z@ii; #2}%
}%
{%
\PackageError{cool}{Invalid Argument}%
@@ -1565,7 +1576,7 @@ _{#3, \arabic{COOL@ct}}%
a comma separated list of length 2}%
}%
{%
-\zeta\!\COOL@decide@paren{WeierstrassZeta}{#1; #2}%
+\zeta\COOL@decide@paren{WeierstrassZeta}{#1; #2}%
}%
}
\newcommand{\WeiZeta}[2]{\WeierstrassZeta{#1}{#2}}
@@ -1578,7 +1589,7 @@ _{#3, \arabic{COOL@ct}}%
a comma separated list of length 2}%
}%
{%
-\{ \omega_1\!\inp{#1}, \omega_3\!\inp{#1} \}%
+\{ \omega_1\inp{#1}, \omega_3\inp{#1} \}%
}%
}
\newcommand{\WeiHalfPeriods}[1]{\WeierstrassHalfPeriods{#1}}
@@ -1591,7 +1602,7 @@ _{#3, \arabic{COOL@ct}}%
a comma separated list of length 2}%
}%
{%
-\{ g_2\!\inp{#1}, g_3\!\inp{#1} \}%
+\{ g_2\inp{#1}, g_3\inp{#1} \}%
}%
}
\newcommand{\WeiInvars}[1]{\WeierstrassInvariants{#1}}
@@ -1612,9 +1623,9 @@ _{#3, \arabic{COOL@ct}}%
a comma separated list of length 2}%
}%
{%
-\{ e_1\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}},%
-e_2\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}},%
-e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
+\{ e_1\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\inp{#1}},%
+e_2\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\inp{#1}},%
+e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\inp{#1}}%
\}%
}%
}
@@ -1632,11 +1643,11 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
{%
\{%
\eta_1\COOL@hideOnSF%
-{WeierstrassZetaHalfPeriodValuesDisplay}{\!\inp{#1}},%
+{WeierstrassZetaHalfPeriodValuesDisplay}{\inp{#1}},%
\eta_2\COOL@hideOnSF%
-{WeierstrassZetaHalfPeriodValuesDisplay}{\!\inp{#1}},%
+{WeierstrassZetaHalfPeriodValuesDisplay}{\inp{#1}},%
\eta_3\COOL@hideOnSF%
-{WeierstrassZetaHalfPeriodValuesDisplay}{\!\inp{#1}}%
+{WeierstrassZetaHalfPeriodValuesDisplay}{\inp{#1}}%
\}%
}%
}
@@ -1645,159 +1656,159 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
\newcommand{\COOL@notation@JacobiAmplitudeParen}{p}
\DeclareMathOperator{\JacobiAmplitudeSymb}{am}
\newcommand{\JacobiAmplitude}[2]{%
-\JacobiAmplitudeSymb\!\COOL@decide@paren%
+\JacobiAmplitudeSymb\COOL@decide@paren%
{JacobiAmplitude}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiCDParen}{p}
\newcommand{\COOL@notation@JacobiCDInvParen}{p}
\DeclareMathOperator{\JacobiCDSymb}{cd}
\newcommand{\JacobiCD}[2]{%
-\JacobiCDSymb\!\COOL@decide@paren%
+\JacobiCDSymb\COOL@decide@paren%
{JacobiCD}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiCDInv}[2]{%
-\JacobiCDSymb^{-1}\!\COOL@decide@paren%
+\JacobiCDSymb^{-1}\COOL@decide@paren%
{JacobiCDInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiCNParen}{p}
\newcommand{\COOL@notation@JacobiCNInvParen}{p}
\DeclareMathOperator{\JacobiCNSymb}{cn}
\newcommand{\JacobiCN}[2]{%
-\JacobiCNSymb\!\COOL@decide@paren%
+\JacobiCNSymb\COOL@decide@paren%
{JacobiCN}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiCNInv}[2]{%
-\JacobiCNSymb^{-1}\!\COOL@decide@paren%
+\JacobiCNSymb^{-1}\COOL@decide@paren%
{JacobiCNInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiCSParen}{p}
\newcommand{\COOL@notation@JacobiCSInvParen}{p}
\DeclareMathOperator{\JacobiCSSymb}{cs}
\newcommand{\JacobiCS}[2]{%
-\JacobiCSSymb\!\COOL@decide@paren%
+\JacobiCSSymb\COOL@decide@paren%
{JacobiCS}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiCSInv}[2]{%
-\JacobiCSSymb^{-1}\!\COOL@decide@paren%
+\JacobiCSSymb^{-1}\COOL@decide@paren%
{JacobiCSInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiDCParen}{p}
\newcommand{\COOL@notation@JacobiDCInvParen}{p}
\DeclareMathOperator{\JacobiDCSymb}{dc}
\newcommand{\JacobiDC}[2]{%
-\JacobiDCSymb\!\COOL@decide@paren%
+\JacobiDCSymb\COOL@decide@paren%
{JacobiDC}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiDCInv}[2]{%
-\JacobiDCSymb^{-1}\!\COOL@decide@paren%
+\JacobiDCSymb^{-1}\COOL@decide@paren%
{JacobiDCInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiDNParen}{p}
\newcommand{\COOL@notation@JacobiDNInvParen}{p}
\DeclareMathOperator{\JacobiDNSymb}{dn}
\newcommand{\JacobiDN}[2]{%
-\JacobiDNSymb\!\COOL@decide@paren%
+\JacobiDNSymb\COOL@decide@paren%
{JacobiDN}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiDNInv}[2]{%
-\JacobiDNSymb^{-1}\!\COOL@decide@paren%
+\JacobiDNSymb^{-1}\COOL@decide@paren%
{JacobiDNInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiDSParen}{p}
\newcommand{\COOL@notation@JacobiDSInvParen}{p}
\DeclareMathOperator{\JacobiDSSymb}{ds}
\newcommand{\JacobiDS}[2]{%
-\JacobiDSSymb\!\COOL@decide@paren%
+\JacobiDSSymb\COOL@decide@paren%
{JacobiDS}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiDSInv}[2]{%
-\JacobiDSSymb^{-1}\!\COOL@decide@paren%
+\JacobiDSSymb^{-1}\COOL@decide@paren%
{JacobiDSInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiNCParen}{p}
\newcommand{\COOL@notation@JacobiNCInvParen}{p}
\DeclareMathOperator{\JacobiNCSymb}{nc}
\newcommand{\JacobiNC}[2]{%
-\JacobiNCSymb\!\COOL@decide@paren%
+\JacobiNCSymb\COOL@decide@paren%
{JacobiNC}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiNCInv}[2]{%
-\JacobiNCSymb^{-1}\!\COOL@decide@paren%
+\JacobiNCSymb^{-1}\COOL@decide@paren%
{JacobiNCInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiNDParen}{p}
\newcommand{\COOL@notation@JacobiNDInvParen}{p}
\DeclareMathOperator{\JacobiNDSymb}{nd}
\newcommand{\JacobiND}[2]{%
-\JacobiNDSymb\!\COOL@decide@paren%
+\JacobiNDSymb\COOL@decide@paren%
{JacobiND}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiNDInv}[2]{%
-\JacobiNDSymb^{-1}\!\COOL@decide@paren%
+\JacobiNDSymb^{-1}\COOL@decide@paren%
{JacobiNDInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiNSParen}{p}
\newcommand{\COOL@notation@JacobiNSInvParen}{p}
\DeclareMathOperator{\JacobiNSSymb}{ns}
\newcommand{\JacobiNS}[2]{%
-\JacobiNSSymb\!\COOL@decide@paren%
+\JacobiNSSymb\COOL@decide@paren%
{JacobiNS}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiNSInv}[2]{%
-\JacobiNSSymb^{-1}\!\COOL@decide@paren%
+\JacobiNSSymb^{-1}\COOL@decide@paren%
{JacobiNSInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiSCParen}{p}
\newcommand{\COOL@notation@JacobiSCInvParen}{p}
\DeclareMathOperator{\JacobiSCSymb}{sc}
\newcommand{\JacobiSC}[2]{%
-\JacobiSCSymb\!\COOL@decide@paren%
+\JacobiSCSymb\COOL@decide@paren%
{JacobiSC}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiSCInv}[2]{%
-\JacobiSCSymb^{-1}\!\COOL@decide@paren%
+\JacobiSCSymb^{-1}\COOL@decide@paren%
{JacobiSCInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiSDParen}{p}
\newcommand{\COOL@notation@JacobiSDInvParen}{p}
\DeclareMathOperator{\JacobiSDSymb}{sd}
\newcommand{\JacobiSD}[2]{%
-\JacobiSDSymb\!\COOL@decide@paren%
+\JacobiSDSymb\COOL@decide@paren%
{JacobiSD}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiSDInv}[2]{%
-\JacobiSDSymb^{-1}\!\COOL@decide@paren%
+\JacobiSDSymb^{-1}\COOL@decide@paren%
{JacobiSDInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@JacobiSNParen}{p}
\newcommand{\COOL@notation@JacobiSNInvParen}{p}
\DeclareMathOperator{\JacobiSNSymb}{sn}
\newcommand{\JacobiSN}[2]{%
-\JacobiSNSymb\!\COOL@decide@paren%
+\JacobiSNSymb\COOL@decide@paren%
{JacobiSN}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\JacobiSNInv}[2]{%
-\JacobiSNSymb^{-1}\!\COOL@decide@paren%
+\JacobiSNSymb^{-1}\COOL@decide@paren%
{JacobiSNInv}{#1 \left| \, #2 \right.\!\!}%
}
\newcommand{\COOL@notation@DedekindEtaParen}{p}
-\newcommand{\DedekindEta}[1]{\eta\!\COOL@decide@paren{DedekindEta}{#1}}
+\newcommand{\DedekindEta}[1]{\eta\COOL@decide@paren{DedekindEta}{#1}}
\newcommand{\COOL@notation@KleinInvariantJParen}{p}
\newcommand{\KleinInvariantJ}[1]%
-{J\!\COOL@decide@paren{KleinInvariantJ}{#1}}
+{J\COOL@decide@paren{KleinInvariantJ}{#1}}
\newcommand{\COOL@notation@ModularLambdaParen}{p}
\newcommand{\ModularLambda}[1]%
-{\lambda\!\COOL@decide@paren{ModularLambda}{#1}}
+{\lambda\COOL@decide@paren{ModularLambda}{#1}}
\newcommand{\COOL@notation@EllipticNomeQParen}{p}
\newcommand{\COOL@notation@EllipticNomeQInvParen}{p}
\newcommand{\EllipticNomeQ}[1]%
-{q\!\COOL@decide@paren{EllipticNomeQ}{#1}}
+{q\COOL@decide@paren{EllipticNomeQ}{#1}}
\newcommand{\EllipticNomeQInv}[1]%
-{q^{-1}\!\COOL@decide@paren{EllipticNomeQ}{#1}}
+{q^{-1}\COOL@decide@paren{EllipticNomeQ}{#1}}
\newcommand{\COOL@notation@ArithGeoMeanParen}{p}
\DeclareMathOperator{\ArithGeoMeanSymb}{agm}
\newcommand{\ArithGeoMean}[2]%
-{\ArithGeoMeanSymb\!\COOL@decide@paren{ArithGeoMean}{#1, #2}}
+{\ArithGeoMeanSymb\COOL@decide@paren{ArithGeoMean}{#1, #2}}
\newcommand{\AGM}[2]{\ArithGeoMean{#1}{#2}}
\newcommand{\COOL@notation@EllipticExpParen}{p}
\DeclareMathOperator{\EllipticExpSymb}{eexp}
@@ -1811,7 +1822,7 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
a comma separated list of length 2}%
}%
{%
-\EllipticExpSymb\!\COOL@decide@paren{EllipticExp}{#1; #2}%
+\EllipticExpSymb\COOL@decide@paren{EllipticExp}{#1; #2}%
}%
}
\newcommand{\EExp}[2]{\EllipticExp{#1}{#2}}
@@ -1836,7 +1847,7 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
a comma separated list of length 2}%
}%
{%
-\EllipticLogSymb\!\COOL@decide@paren{EllipticLog}{#1; #2}%
+\EllipticLogSymb\COOL@decide@paren{EllipticLog}{#1; #2}%
}%
}%
}
@@ -1849,12 +1860,12 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
\listval{#1}{0}% get the list length
\ifthenelse{\value{COOL@listpointer} = 2}%
{%
-\zeta\!\COOL@decide@paren{Zeta}{\COOL@Zeta@arg@i,\COOL@Zeta@arg@ii}%
+\zeta\COOL@decide@paren{Zeta}{\COOL@Zeta@arg@i,\COOL@Zeta@arg@ii}%
}%
{%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
-\zeta\!\COOL@decide@paren{Zeta}{#1}%
+\zeta\COOL@decide@paren{Zeta}{#1}%
}%
{%
\PackageError{cool}{`Zeta' Invalid Argument}%
@@ -1865,16 +1876,16 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
}%
\newcommand{\COOL@notation@RiemannSiegelThetaParen}{p}
\newcommand{\RiemannSiegelTheta}[1]%
-{\vartheta\!\COOL@decide@paren{RiemannSiegelTheta}{#1}}
+{\vartheta\COOL@decide@paren{RiemannSiegelTheta}{#1}}
\newcommand{\COOL@notation@RiemannSiegelZParen}{p}
\newcommand{\RiemannSiegelZ}[1]%
-{Z\!\COOL@decide@paren{RiemannSiegelZ}{#1}}
+{Z\COOL@decide@paren{RiemannSiegelZ}{#1}}
\newcommand{\StieltjesGamma}[1]{\gamma_{#1}}
\newcommand{\COOL@notation@LerchPhiParen}{p}
-\newcommand{\LerchPhi}[3]{\Phi\!\COOL@decide@paren{LerchPhi}{#1,#2,#3}}
+\newcommand{\LerchPhi}[3]{\Phi\COOL@decide@paren{LerchPhi}{#1,#2,#3}}
\newcommand{\COOL@notation@NielsenPolyLogParen}{p}
\newcommand{%
-\NielsenPolyLog}[3]{S_{#1}^{#2}\!%
+\NielsenPolyLog}[3]{S_{#1}^{#2}%
\COOL@decide@paren{NielsenPolyLog}{#3}%
}
\newcommand{\COOL@notation@PolyLogParen}{p}
@@ -1890,7 +1901,7 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
{%
\ifthenelse{ \value{COOL@listpointer} = 2 }%
{%
-\PolyLogSymb_{\COOL@PolyLog@arg@i}\!%
+\PolyLogSymb_{\COOL@PolyLog@arg@i}%
\COOL@decide@paren{PolyLog}{\COOL@PolyLog@arg@ii}%
}%
{%
@@ -1905,26 +1916,26 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
\newcommand{\COOL@notation@MathieuCParen}{p}
\DeclareMathOperator{\MathieuCSymb}{Ce}
\newcommand{\MathieuC}[3]%
-{\MathieuCSymb\!\COOL@decide@paren{MathieuC}{#1,#2,#3}}
+{\MathieuCSymb\COOL@decide@paren{MathieuC}{#1,#2,#3}}
\newcommand{\COOL@notation@MathieuSParen}{p}
\DeclareMathOperator{\MathieuSSymb}{Se}
\newcommand{\MathieuS}[3]%
-{\mathord{\MathieuSSymb}\!\COOL@decide@paren{MathieuS}{#1,#2,#3}}
+{\mathord{\MathieuSSymb}\COOL@decide@paren{MathieuS}{#1,#2,#3}}
\newcommand{\COOL@notation@MathieuCharacteristicAParen}{p}
\newcommand{\MathieuCharacteristicA}[2]%
-{a_{#1}\!\COOL@decide@paren{MathieuCharacteristicA}{#2}}
+{a_{#1}\COOL@decide@paren{MathieuCharacteristicA}{#2}}
\newcommand{\MathieuCharisticA}[2]{\MathieuCharacteristicA{#1}{#2}}
\newcommand{\COOL@notation@MathieuCharacteristicBParen}{p}
\newcommand{\MathieuCharacteristicB}[2]%
-{b_{#1}\!\COOL@decide@paren{MathieuCharacteristicB}{#2}}
+{b_{#1}\COOL@decide@paren{MathieuCharacteristicB}{#2}}
\newcommand{\MathieuCharisticB}[2]{\MathieuCharacteristicB{#1}{#2}}
\newcommand{\COOL@notation@MathieuCharacteristicExponentParen}{p}
\newcommand{\MathieuCharacteristicExponent}[2]%
-{r\!\COOL@decide@paren{MathieuCharacteristicExponent}{#1,#2}}
+{r\COOL@decide@paren{MathieuCharacteristicExponent}{#1,#2}}
\newcommand{\MathieuCharisticExp}[2]%
{\MathieuCharacteristicExponent{#1}{#2}}
\newcommand{\Abs}[1]{ \left|#1\right| }
-\newcommand{\Arg}[1]{ \arg\!\inp{#1} }
+\newcommand{\Arg}[1]{ \arg\inp{#1} }
\def\COOL@notation@Conjugate{star}
\newcommand{\COOL@notation@ConjugateParen}{inv}
\newcommand{\Conjugate}[1]{\Conj{#1}}
@@ -1955,7 +1966,7 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
\RealSymb{#1}%
}%
{%
-\RealSymb\!\COOL@decide@paren{Imag}{#1}%
+\RealSymb\COOL@decide@paren{Imag}{#1}%
}%
}
\newcommand{\COOL@notation@ImagParen}{none}
@@ -1966,37 +1977,37 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
\ImagSymb{#1}%
}%
{%
-\ImagSymb\!\COOL@decide@paren{Imag}{#1}%
+\ImagSymb\COOL@decide@paren{Imag}{#1}%
}%
}
\newcommand{\COOL@notation@SignParen}{p}
-\newcommand{\Sign}[1]{\operatorname{sgn}\!\COOL@decide@paren{Sign}{#1}}
+\newcommand{\Sign}[1]{\operatorname{sgn}\COOL@decide@paren{Sign}{#1}}
\newcommand{\COOL@notation@FactorIntegerParen}{p}
\DeclareMathOperator{\FactorIntegerSymb}{factors}
\newcommand{\FactorInteger}[1]%
-{\FactorIntegerSymb\!\COOL@decide@paren{FactorInteger}{#1}}
+{\FactorIntegerSymb\COOL@decide@paren{FactorInteger}{#1}}
\newcommand{\Factors}[1]{\FactorInteger{#1}}
\newcommand{\COOL@notation@DivisorsParen}{p}
\DeclareMathOperator{\DivisorsSymb}{divisors}
\newcommand{\Divisors}[1]%
-{\mathord{\DivisorsSymb}\!\COOL@decide@paren{Divisors}{#1}}
+{\mathord{\DivisorsSymb}\COOL@decide@paren{Divisors}{#1}}
\newcommand{\COOL@notation@PrimeParen}{p}
\DeclareMathOperator{\PrimeSymb}{prime}
\newcommand{\Prime}[1]%
-{\mathord{\PrimeSymb}\!\COOL@decide@paren{Prime}{#1}}
+{\mathord{\PrimeSymb}\COOL@decide@paren{Prime}{#1}}
\newcommand{\COOL@notation@PrimePiParen}{p}
-\newcommand{\PrimePi}[1]{\pi\!\COOL@decide@paren{PrimePi}{#1}}
+\newcommand{\PrimePi}[1]{\pi\COOL@decide@paren{PrimePi}{#1}}
\newcommand{\COOL@notation@DivisorSigmaParen}{p}
\newcommand{\DivisorSigma}[2]%
-{\sigma_{#1}\!\COOL@decide@paren{DivisorSigma}{#2}}
+{\sigma_{#1}\COOL@decide@paren{DivisorSigma}{#2}}
\newcommand{\COOL@notation@EulerPhiParen}{p}
-\newcommand{\EulerPhi}[1]{\varphi\!\COOL@decide@paren{EulerPhi}{#1}}
+\newcommand{\EulerPhi}[1]{\varphi\COOL@decide@paren{EulerPhi}{#1}}
\newcommand{\COOL@notation@MoebiusMuParen}{p}
-\newcommand{\MoebiusMu}[1]{\mu\!\COOL@decide@paren{MoebiusMu}{#1}}
+\newcommand{\MoebiusMu}[1]{\mu\COOL@decide@paren{MoebiusMu}{#1}}
\newcommand{\JacobiSymbol}[2]{\inp{\frac{#1}{#2}}}
\newcommand{\COOL@notation@CarmichaelLambdaParen}{p}
\newcommand{\CarmichaelLambda}[1]%
-{\lambda\!\COOL@decide@paren{CarmichaelLambda}{#1}}
+{\lambda\COOL@decide@paren{CarmichaelLambda}{#1}}
\newcommand{\DigitCount}[2]{%
\isint{#2}%
\ifthenelse{\boolean{COOL@isint}}%
@@ -2006,30 +2017,31 @@ e_3\COOL@hideOnSF{WeierstrassPHalfPeriodValuesDisplay}{\!\inp{#1}}%
\addtocounter{COOL@ct@}{-1}%
\forLoop{1}{\arabic{COOL@ct@}}{COOL@ct}%
{%
-s^{\arabic{COOL@ct}}_{#2}\!\inp{#1},
+s^{\arabic{COOL@ct}}_{#2}\inp{#1},
}%
-s^{\inp{0}}_{#2}\!\inp{#1}%
+s^{\inp{0}}_{#2}\inp{#1}%
\}%
}%
{%
\{%
-s^{\inp{1}}_{#2}\!\inp{#1},%
-s^{\inp{2}}_{#2}\!\inp{#1},%
+s^{\inp{1}}_{#2}\inp{#1},%
+s^{\inp{2}}_{#2}\inp{#1},%
\ldots,%
-s^{\inp{#2} - 1}_{#2}\!\inp{#1},%
-s^{\inp{0}}_{#2}\!\inp{#1}%
+s^{\inp{#2} - 1}_{#2}\inp{#1},%
+s^{\inp{0}}_{#2}\inp{#1}%
\}%
}%
}
\newcommand{\COOL@notation@DiracDeltaParen}{p}
-\newcommand{\DiracDelta}[1]{\delta\!\COOL@decide@paren{DiracDelta}{#1}}
+\newcommand{\DiracDelta}[1]{\delta\COOL@decide@paren{DiracDelta}{#1}}
\newcommand{\COOL@notation@HeavisideStepParen}{p}
\newcommand{\HeavisideStep}[1]%
-{\theta\!\COOL@decide@paren{HeavisideStep}{#1}}
+{\theta\COOL@decide@paren{HeavisideStep}{#1}}
\newcommand{\UnitStep}[1]{\HeavisideStep{#1}}
\newcounter{COOL@multideriv}
\newcommand{\COOL@notation@DDisplayFunc}{inset}
\newcommand{\COOL@notation@DShorten}{true}
+\newcommand{\COOL@notation@DSymb}{d}
\newcommand{\COOL@derivative}[4]{%
\listval{#3}{0}%
\setcounter{COOL@listlen}{\value{COOL@listpointer}}%
@@ -2068,11 +2080,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
}%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
}%
\ifthenelse{\value{COOL@ct}<\value{COOL@listlen}}%
@@ -2090,21 +2102,21 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
}%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
}%
}%
{}%
\ifthenelse{\value{COOL@ct@}=1}%
{%
-\frac{#4 #2}{\COOL@temp@D@bot}%
+\frac{{#4} #2}{\COOL@temp@D@bot}%
}%
{%
-\frac{#4^{\arabic{COOL@ct@}} #2}{\COOL@temp@D@bot}%
+\frac{{#4}^{\arabic{COOL@ct@}} #2}{\COOL@temp@D@bot}%
}%
}%
{%
@@ -2128,11 +2140,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
}%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
}%
\ifthenelse{\value{COOL@ct}<\value{COOL@listlen}}%
@@ -2156,16 +2168,16 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
}%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
}%
}%
{}%
-\frac{#4^{\COOL@temp@D@top@power} #2}{\COOL@temp@D@bot}%
+\frac{{#4}^{\COOL@temp@D@top@power} #2}{\COOL@temp@D@bot}%
}%
}%
{ \ifthenelse{ \equal{\COOL@notation@DShorten}{true} \AND
@@ -2187,11 +2199,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
}%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
}%
\ifthenelse{\value{COOL@ct}<\value{COOL@listlen}}%
@@ -2209,11 +2221,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
}%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
}%
}%
@@ -2223,7 +2235,7 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\frac{#4}{\COOL@temp@D@bot} #2%
}%
{%
-\frac{#4^{\arabic{COOL@ct@}}}{\COOL@temp@D@bot} #2%
+\frac{{#4}^{\arabic{COOL@ct@}}}{\COOL@temp@D@bot} #2%
}%
}%
{%
@@ -2247,11 +2259,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
}%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
}%
\ifthenelse{\value{COOL@ct}<\value{COOL@listlen}}%
@@ -2275,16 +2287,16 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp}%
}%
{%
\edef\COOL@temp@D@bot%
-{\COOL@temp@D@bot #4 \COOL@wrt@temp^\COOL@power@temp}%
+{\COOL@temp@D@bot {#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
}%
}%
{}%
-\frac{#4^{\COOL@temp@D@top@power} }{\COOL@temp@D@bot} #2%
+\frac{{#4}^{\COOL@temp@D@top@power} }{\COOL@temp@D@bot} #2%
}%
}%
{ \ifthenelse{ \equal{\COOL@notation@DShorten}{false} \AND
@@ -2304,11 +2316,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
}%
{%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
\edef\COOL@temp@D@result%
{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2322,11 +2334,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
}%
{%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
\edef\COOL@temp@D@result%
{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2338,11 +2350,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
}%
{%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
\edef\COOL@temp@D@result%
{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2352,11 +2364,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
}%
{%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
\edef\COOL@temp@D@result%
{\COOL@temp@D@result \frac{\COOL@temp@D@top #2}{\COOL@temp@D@bot}}%
@@ -2369,11 +2381,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
}%
{%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
\edef\COOL@temp@D@result%
{\COOL@temp@D@result \frac{\COOL@temp@D@top #2}{\COOL@temp@D@bot}}%
@@ -2395,11 +2407,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
}%
{%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
\edef\COOL@temp@D@result%
{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2416,11 +2428,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\ifthenelse{ \equal{\COOL@power@temp}{1} }%
{%
\edef\COOL@temp@D@top{#4}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp}%
}%
{%
-\edef\COOL@temp@D@top{#4^\COOL@power@temp}%
-\edef\COOL@temp@D@bot{#4 \COOL@wrt@temp^\COOL@power@temp}%
+\edef\COOL@temp@D@top{{#4}^\COOL@power@temp}%
+\edef\COOL@temp@D@bot{{#4} \COOL@wrt@temp^\COOL@power@temp}%
}%
\edef\COOL@temp@D@result%
{\COOL@temp@D@result \frac{\COOL@temp@D@top}{\COOL@temp@D@bot}}%
@@ -2437,9 +2449,10 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
}%
}}}%
}
-\newcommand{\D}[3][1]{\COOL@derivative{#1}{#2}{#3}{d}}
+\newcommand{\D}[3][1]{\COOL@derivative{#1}{#2}{#3}{{\COOL@notation@DSymb}}}
\newcommand{\pderiv}[3][1]{\COOL@derivative{#1}{#2}{#3}{\partial}}
\newcommand{\COOL@notation@IntegrateDisplayFunc}{inset}
+\newcommand{\COOL@notation@IntegrateDifferentialDSymb}{d}
\newcommand{\Integrate}[2]{%
\listval{#2}{0}%
\setcounter{COOL@listlen}{\value{COOL@listpointer}}%
@@ -2447,11 +2460,11 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
{%
\ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
{%
-\int \! d#2 \, #1%
+\int \! \COOL@notation@IntegrateDifferentialDSymb{}#2 \, #1%
}%
{ \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
{%
-\int #1 \, d#2%
+\int #1 \, \COOL@notation@IntegrateDifferentialDSymb{}#2%
}%
{%
\PackageError{cool}{Invalid Option Sent}%
@@ -2462,11 +2475,13 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
{%
\ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
{%
-\int_{\listval{#2}{2}} \! d{\listval{#2}{1}} \, #1%
+\int_{\listval{#2}{2}} \!
+\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}} \, #1%
}%
{ \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
{%
-\int_{\listval{#2}{2}} #1 \, d{\listval{#2}{1}}%
+\int_{\listval{#2}{2}} #1 \,
+\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}}%
}%
{%
\PackageError{cool}{Invalid Option Sent}%
@@ -2477,11 +2492,13 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
{%
\ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
{%
-\int_{\listval{#2}{2}}^{\listval{#2}{3}} \! d{\listval{#2}{1}} \, #1%
+\int_{\listval{#2}{2}}^{\listval{#2}{3}} \!
+\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}} \, #1%
}%
{ \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
{%
-\int_{\listval{#2}{2}}^{\listval{#2}{3}} #1 \, d{\listval{#2}{1}}%
+\int_{\listval{#2}{2}}^{\listval{#2}{3}} #1 \,
+\COOL@notation@IntegrateDifferentialDSymb{}{\listval{#2}{1}}%
}%
{%
\PackageError{cool}{Invalid Option Sent}%
@@ -2569,13 +2586,14 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
\newcommand{\COOL@notation@IdentityMatrixParen}{p}
\newcounter{COOL@row}%
\newcounter{COOL@col}%
+\newcommand{\COOL@notation@IdentityMatrixSymb}{\mathbbm{1}}
\newcommand{\IdentityMatrix}[1][0]{%
\isint{#1}%
\ifthenelse{\boolean{COOL@isint}}%
{%
\ifthenelse{ #1=0 }%
{%
-\mathbb{I}%
+\COOL@notation@IdentityMatrixSymb%
}%
{%
\setcounter{COOL@ct}{\value{MaxMatrixCols}}%
@@ -2623,7 +2641,7 @@ s^{\inp{0}}_{#2}\!\inp{#1}%
}%
}%
{%
-\mathbb{I}%
+\COOL@notation@IdentityMatrixSymb%
}%
}%
\endinput