summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/source')
-rw-r--r--Master/texmf-dist/source/latex/cool/cool.dtx502
-rw-r--r--Master/texmf-dist/source/latex/cool/cool.ins78
2 files changed, 306 insertions, 274 deletions
diff --git a/Master/texmf-dist/source/latex/cool/cool.dtx b/Master/texmf-dist/source/latex/cool/cool.dtx
index 0312fb8fee0..c1a2086d1f6 100644
--- a/Master/texmf-dist/source/latex/cool/cool.dtx
+++ b/Master/texmf-dist/source/latex/cool/cool.dtx
@@ -2,18 +2,20 @@
%
%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
%<package>\ProvidesPackage{cool}
-%<package> [2006/09/17 v1.2 COntent Oriented LaTeX]
+%<package> [2006/10/07 v1.3 COntent Oriented LaTeX]
%<package>\RequirePackage{ifthen}
%<package>\RequirePackage{coollist}
%<package>\RequirePackage{coolstr}
%<package>\RequirePackage{forloop}
%<package>\RequirePackage{amsmath}
%<package>\RequirePackage{amssymb}
+%<package>\RequirePackage{bbm}
%
%
%<*driver>
\documentclass{ltxdoc}
\usepackage{cool}
+\usepackage[bbgreekl]{mathbbol}
\usepackage{url}
\EnableCrossrefs
\CodelineIndex
@@ -49,6 +51,7 @@
% \changes{v1.0}{2005/08/27}{Initial Release}
% \changes{v1.1}{2006/03/19}{Added listlenstore to package to allow storing of the list length}
% \changes{v1.2}{2006/09/17}{Split off the list, string, and forloop parts to separate packages}
+% \changes{v1.3}{2006/10/07}{Redefined the {\tt in*} commands to have a {\tt mathopen} before the {\tt left}. Added {\tt IntegrateDifferentialDSymb} and {\tt DSymb} options for {\tt Integrate} and {\tt D}. Added {\tt IdentityMatrixSymb} for {\tt IdentityMatrix} and changed the default to display a double-struck $1$. Added {\tt ESymb}, {\tt ISymb}, {\tt PISymb}, and {\tt EulerGammaSymb} for fundamental constants}
%
% \GetFileInfo{cool.sty}
%
@@ -351,6 +354,8 @@
% This is the \textsf{cool} package: a COntent Oriented \LaTeX{} package. That is, it is designed to give \LaTeX{}
% commands the ability to contain the mathematical meaning while retaining the typesetting versatility.
%
+% Please note that there are examples of use of each of the defined commands at the location where they are defined.
+%
% This package requires the following, non-standard \LaTeX{} packages (all of which are available on \url{www.ctan.org}):
% \textsf{coolstr},
% \textsf{coollist},
@@ -377,15 +382,15 @@
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% \begin{macrocode}
-\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{\inbr}[2][0cm]{\mathopen{}\left\{#2\parbox[h][#1]{0cm}{}\right\}}
% in braces {}
-\newcommand{\inap}[2][0cm]{\left<{#2}\parbox[h][#1]{0cm}{}\right>}
+\newcommand{\inap}[2][0cm]{\mathopen{}\left<{#2}\parbox[h][#1]{0cm}{}\right>}
% in angular parentheses <>
-\newcommand{\nop}[1]{\left.{#1}\right.}
+\newcommand{\nop}[1]{\mathopen{}\left.{#1}\right.}
% no parentheses
% \end{macrocode}
%
@@ -570,23 +575,32 @@
%
% see \url{http://functions.wolfram.com/} for the definitions
% \begin{macro}{\I}
-% The square root of minus 1 ($\sqrt{-1}$), $\I$.
+% The square root of minus 1, $\I = \sqrt{-1}$.
+%
+% |\Style{ISymb=\mathbbm{i}}| \Style{ISymb=\mathbbm{i}}, |\I| gives $\I$. \Style{ISymb=i}
% \begin{macrocode}
-\newcommand{\I}{i}
+ \newcommand{\COOL@notation@ISymb}{i}
+\newcommand{\I}{\COOL@notation@ISymb}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\E}
-% Euler's constant and the base of the natural logarithm, $\E$.
+% Euler's constant and the base of the natural logarithm, $\E$.
+%
+%|\Style{ESymb=\mathbbm{e}}| \Style{ESymb=\mathbbm{e}}, |\E| gives $\E$. \Style{ESymb=e}
% \begin{macrocode}
-\newcommand{\E}{e}
+ \newcommand{\COOL@notation@ESymb}{e}
+\newcommand{\E}{\COOL@notation@ESymb}
% \end{macrocode}
% \end{macro}
%
% \begin{macro}{\PI}
-% Pi---the ratio of the circumference of a circle to its diameter, $\PI$.
+% Pi---the ratio of the circumference of a circle to its diameter, $\PI$.
+%
+% |\Style{PISymb=\bbpi}| \footnote{to get the `bbpi' symbol , you will need to use the package \textsf{mathbbol} and pass the \textsf{bbgreekl} option} \Style{PISymb=\bbpi}, |\PI| gives $\PI$. \Style{PISymb=\pi}
% \begin{macrocode}
-\newcommand{\PI}{\pi}
+ \newcommand{\COOL@notation@PISymb}{\pi}
+\newcommand{\PI}{\COOL@notation@PISymb}
% \end{macrocode}
% \end{macro}
%
@@ -598,9 +612,12 @@
% \end{macro}
%
% \begin{macro}{\EulerGamma}
-% Euler's Gamma constant, $\EulerGamma$
+% Euler's Gamma constant, $\EulerGamma$.
+%
+%|\Style{EulerGammaSymb=\gamma_E}| \Style{EulerGammaSymb=\gamma_E}, |\EulerGamma| gives $\EulerGamma$ \Style{EulerGammaSymb=\gamma}
% \begin{macrocode}
-\newcommand{\EulerGamma}{\gamma}
+ \newcommand{\COOL@notation@EulerGammaSymb}{\gamma}
+\newcommand{\EulerGamma}{\COOL@notation@EulerGammaSymb}
% \end{macrocode}
% \end{macro}
%
@@ -1085,13 +1102,13 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer}=1}%
{%
- W\!\COOL@decide@paren{ProductLog}{#1}%
+ W\COOL@decide@paren{ProductLog}{#1}%
}%
% else
{%
\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}}%
}%
% else
{%
@@ -1137,7 +1154,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1147,7 +1164,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1157,7 +1174,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1167,7 +1184,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1182,7 +1199,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1191,7 +1208,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1205,7 +1222,7 @@
% Struve H function, |\StruveH{\nu}{z}|, $\StruveH{\nu}{z}$
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1213,7 +1230,7 @@
% Struve L function, |\StruveL{\nu}{z}|, $\StruveL{\nu}{z}$
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1359,7 +1376,7 @@
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
- F_{\COOL@Fibonacci@arg@i}\!%
+ F_{\COOL@Fibonacci@arg@i}%
\COOL@decide@paren{Fibonacci}{\COOL@Fibonacci@arg@ii}%
}%
% Else
@@ -1386,7 +1403,7 @@
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
- E_{\COOL@Euler@arg@i}\!%
+ E_{\COOL@Euler@arg@i}%
\COOL@decide@paren{Euler}{\COOL@Euler@arg@ii}%
}%
% Else
@@ -1415,7 +1432,7 @@
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
- B_{\COOL@Bernoulli@arg@i}\!%
+ B_{\COOL@Bernoulli@arg@i}%
\COOL@decide@paren{Bernoulli}{\COOL@Bernoulli@arg@ii}%
}%
% Else
@@ -1446,7 +1463,7 @@
% Number of unrestricted partitions of an integer, |\PartitionsP{x}|, $\PartitionsP{x}$
% \begin{macrocode}
\newcommand{\COOL@notation@PartitionsPParen}{p}
-\newcommand{\PartitionsP}[1]{p\!\COOL@decide@paren{PartitionsP}{#1}}
+\newcommand{\PartitionsP}[1]{p\COOL@decide@paren{PartitionsP}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -1454,7 +1471,7 @@
% number of partitions of an integer into distinct parts, |\PartitionsQ{x}|, $\PartitionsQ{x}$
% \begin{macrocode}
\newcommand{\COOL@notation@PartitionsQParen}{p}
-\newcommand{\PartitionsQ}[1]{q\!\COOL@decide@paren{PartitionsQ}{#1}}
+\newcommand{\PartitionsQ}[1]{q\COOL@decide@paren{PartitionsQ}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -1520,9 +1537,16 @@
{%
\ifthenelse{\equal{\COOL@notation@LeviCivitaUseComma}{true}}%
{%
- \ifthenelse{\NOT \value{COOL@ct} = 1}{,}{}%
- \edef\COOL@arg@temp%
- {\COOL@arg@temp \csname COOL@arg@\roman{COOL@ct}\endcsname}%
+ \ifthenelse{\NOT \value{COOL@ct} = 1}%
+ {%
+ \edef\COOL@arg@temp%
+ {\COOL@arg@temp, \csname COOL@arg@\roman{COOL@ct}\endcsname}%
+ }%
+ % Else
+ {%
+ \edef\COOL@arg@temp%
+ {\COOL@arg@temp \csname COOL@arg@\roman{COOL@ct}\endcsname}%
+ }%
}%
% Else
{%
@@ -1549,7 +1573,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1566,13 +1590,13 @@
\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}%
}%
% Else If
{ \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}%
}%
% Else
{%
@@ -1604,14 +1628,14 @@
\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}%
}%
% ElseIf
{ \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}%
}%
% ElseIf
@@ -1628,11 +1652,11 @@
{`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}%
@@ -1674,14 +1698,14 @@
\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}%
}%
% ElseIf
{ \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}%
}%
% ElseIf
@@ -1698,11 +1722,11 @@
{`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}%
@@ -1729,7 +1753,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1739,7 +1763,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -1750,7 +1774,7 @@
\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}%
}
% \end{macrocode}
% \end{macro}
@@ -1786,7 +1810,7 @@
\newcommand{\COOL@notation@GegenbauerCSymb}{C}
\newcommand{\GegenbauerC}[3]{%
\COOL@notation@GegenbauerCSymb_{#1}^{#2}%
-\!\COOL@decide@paren{GegenbauerC}{#3}%
+\COOL@decide@paren{GegenbauerC}{#3}%
}
% \end{macrocode}
% \end{macro}
@@ -1804,7 +1828,7 @@
\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}}
@@ -1824,7 +1848,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@CyclotomicCParen}{p}
\newcommand{\CyclotomicC}[2]%
-{C_{#1}\!\COOL@decide@paren{CyclotomicC}{#2}}
+{C_{#1}\COOL@decide@paren{CyclotomicC}{#2}}
% \end{macrocode}
% \end{macro}
%
@@ -1939,17 +1963,17 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
- \Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+ \Gamma\COOL@decide@paren{GammaFunc}{#1}%
}%
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
- \Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+ \Gamma\COOL@decide@paren{GammaFunc}{#1}%
}%
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
- \Gamma\!\COOL@decide@paren{GammaFunc}{#1}%
+ \Gamma\COOL@decide@paren{GammaFunc}{#1}%
}%
% Else
{%
@@ -1991,12 +2015,12 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 2}%
{%
- Q\!\COOL@decide@paren{GammaRegularized}{#1}%
+ Q\COOL@decide@paren{GammaRegularized}{#1}%
}%
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
- Q\!\COOL@decide@paren{GammaRegularized}{#1}%
+ Q\COOL@decide@paren{GammaRegularized}{#1}%
}%
% Else
{%
@@ -2029,12 +2053,12 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 2}%
{%
- Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
+ Q^{-1}\COOL@decide@paren{InverseGammaRegularized}{#1}%
}%
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 3}%
{%
- Q^{-1}\!\COOL@decide@paren{InverseGammaRegularized}{#1}%
+ Q^{-1}\COOL@decide@paren{InverseGammaRegularized}{#1}%
}%
% Else
{%
@@ -2096,7 +2120,7 @@
% Digamma function, |\DiGamma{x}|, $\DiGamma{x}$
% \begin{macrocode}
\newcommand{\COOL@notation@DiGammaParen}{p}
-\newcommand{\DiGamma}[1]{\digamma\!\COOL@decide@paren{DiGamma}{#1}}
+\newcommand{\DiGamma}[1]{\digamma\COOL@decide@paren{DiGamma}{#1}}
% \end{macrocode}
% \end{macro}
% PolyGamma function, |\PolyGamma{\nu}{x}|, $\PolyGamma{\nu}{x}$
@@ -2105,7 +2129,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@PolyGammaParen}{p}
\newcommand{\PolyGamma}[2]%
-{\psi^{\inp{#1}}\!\COOL@decide@paren{PolyGamma}{#2}}
+{\psi^{\inp{#1}}\COOL@decide@paren{PolyGamma}{#2}}
% \end{macrocode}
% \end{macro}
%
@@ -2157,18 +2181,18 @@
\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}%
}%
% ElseIf
{ \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}%
}%
% ElseIf
{ \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}%
}%
% Else
@@ -2222,14 +2246,14 @@
\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}%
}%
% ElseIf
{ \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}%
}%
@@ -2265,7 +2289,7 @@
\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}%
@@ -2276,7 +2300,7 @@
I^{-1}_{\inp{ \COOL@InverseBetaRegularized@arg@i,%
\COOL@InverseBetaRegularized@arg@ii%
}%
- }\!%
+ }%
\COOL@decide@paren{InverseBetaRegularized}%
{\COOL@InverseBetaRegularized@arg@iii,%
\COOL@InverseBetaRegularized@arg@iv}%
@@ -2339,12 +2363,12 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
- \ErfSymb\!\COOL@decide@paren{Erf}{#1}
+ \ErfSymb\COOL@decide@paren{Erf}{#1}
}%
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
- \ErfSymb\!\COOL@decide@paren{Erf}{#1}
+ \ErfSymb\COOL@decide@paren{Erf}{#1}
}%
% Else
{%
@@ -2370,12 +2394,12 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
- \ErfSymb^{-1}\!\COOL@decide@paren{ErfInv}{#1}
+ \ErfSymb^{-1}\COOL@decide@paren{ErfInv}{#1}
}%
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
- \ErfSymb^{-1}\!\COOL@decide@paren{ErfInv}{#1}
+ \ErfSymb^{-1}\COOL@decide@paren{ErfInv}{#1}
}%
% Else
{%
@@ -2413,10 +2437,10 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -2425,7 +2449,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -2439,7 +2463,7 @@
% Fresnel Integral, |\FresnelS{z}|, $\FresnelS{z}$
% \begin{macrocode}
\newcommand{\COOL@notation@FresnelSParen}{p}
-\newcommand{\FresnelS}[1]{S\!\COOL@decide@paren{FresnelS}{#1}}
+\newcommand{\FresnelS}[1]{S\COOL@decide@paren{FresnelS}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -2447,7 +2471,7 @@
% Fresnel Integral, |\FresnelC{z}|, $\FresnelC{z}$
% \begin{macrocode}
\newcommand{\COOL@notation@FresnelCParen}{p}
-\newcommand{\FresnelC}[1]{C\!\COOL@decide@paren{FresnelC}{#1}}
+\newcommand{\FresnelC}[1]{C\COOL@decide@paren{FresnelC}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -2461,7 +2485,7 @@
% Exponential Integral, |\ExpIntE{\nu}{x}|, $\ExpIntE{\nu}{x}$
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -2471,7 +2495,7 @@
\newcommand{\COOL@notation@ExpIntEiParen}{p}
\DeclareMathOperator{\ExpIntEiSymb}{Ei}
\newcommand{\ExpIntEi}[1]%
-{\ExpIntEiSymb\!\COOL@decide@paren{ExpIntEi}{#1}}
+{\ExpIntEiSymb\COOL@decide@paren{ExpIntEi}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -2480,7 +2504,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -2489,7 +2513,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -2498,7 +2522,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -2507,7 +2531,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -2516,7 +2540,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -2698,7 +2722,7 @@
% \end{macrocode}
% First print the ${}_p F_q$
% \begin{macrocode}
-{}_{#2}{\COOL@notation@HypergeometricSymb}_{#3}\!%
+{}_{#2}{\COOL@notation@HypergeometricSymb}_{#3}%
\COOL@decide@paren{Hypergeometric}%
{%
\COOL@Hypergeometric@pq@ab@value{p}{#2}{a}{#4};%
@@ -2785,7 +2809,7 @@
% \end{macrocode}
% First print the ${}_p F_q$
% \begin{macrocode}
-{}_{#2}{\COOL@notation@RegHypergeometricSymb}_{#3}\!%
+{}_{#2}{\COOL@notation@RegHypergeometricSymb}_{#3}%
\COOL@decide@paren{RegHypergeometric}%
{%
\COOL@Hypergeometric@pq@ab@value{p}{#2}{a}{#4};%
@@ -2806,7 +2830,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -2820,7 +2844,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@HypergeometricUSymb}{U}
\newcommand{\HypergeometricU}[3]%
-{\COOL@notation@HypergeometricUSymb\!\inp{#1, #2, #3}}
+{\COOL@notation@HypergeometricUSymb\inp{#1, #2, #3}}
% \end{macrocode}
% \end{macro}
%
@@ -2939,7 +2963,7 @@
\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} }%
@@ -2973,7 +2997,7 @@
\listval{#3}{0}% p
\addtocounter{COOL@ct}{\value{COOL@listpointer}}%
_{\arabic{COOL@ct},#5}%
- \!\left(%
+ \mathopen{}\left(%
#6%
\left|%
{%
@@ -2984,7 +3008,7 @@
% else
{%
^{#4,#2}_{#3,#5}%
- \!\left(%
+ \mathopen{}\left(%
#6%
\left|%
{%
@@ -3006,7 +3030,7 @@
\listval{#5}{0}% q
\addtocounter{COOL@ct}{\value{COOL@listpointer}}%
_{#3, \arabic{COOL@ct}}%
- \!\left(%
+ \mathopen{}\left(%
#6%
\left|%
{%
@@ -3222,7 +3246,7 @@
\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}}%
% \end{macrocode}
% \end{macro}
%
@@ -3241,12 +3265,12 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
- \COOL@notation@EllipticESymb\!\COOL@decide@paren{EllipticE}{#1}%
+ \COOL@notation@EllipticESymb\COOL@decide@paren{EllipticE}{#1}%
}%
% ElseIf
{ \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.}%
}%
@@ -3276,14 +3300,14 @@
\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.}%
}%
% ElseIf
{ \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.%
@@ -3323,7 +3347,7 @@
\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.}%
}%
% Else
@@ -3377,7 +3401,7 @@
\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.\!\!}%
}
% \end{macrocode}
% \end{macro}
@@ -3401,7 +3425,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
@@ -3419,7 +3443,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@NevilleThetaCParen}{p}
\newcommand{\NevilleThetaC}[2]{%
- \vartheta_{c}\!\COOL@decide@paren{NevilleThetaC}%
+ \vartheta_{c}\COOL@decide@paren{NevilleThetaC}%
{#1 \left| \, #2 \right.\!\!}%
}
% \end{macrocode}
@@ -3430,7 +3454,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@NevilleThetaDParen}{p}
\newcommand{\NevilleThetaD}[2]{%
- \vartheta_{d}\!\COOL@decide@paren{NevilleThetaD}%
+ \vartheta_{d}\COOL@decide@paren{NevilleThetaD}%
{#1 \left| \, #2 \right.\!\!}%
}
% \end{macrocode}
@@ -3441,7 +3465,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@NevilleThetaNParen}{p}
\newcommand{\NevilleThetaN}[2]{%
- \vartheta_{n}\!\COOL@decide@paren{NevilleThetaN}%
+ \vartheta_{n}\COOL@decide@paren{NevilleThetaN}%
{#1 \left| \, #2 \right.\!\!}%
}
% \end{macrocode}
@@ -3452,7 +3476,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@NevilleThetaSParen}{p}
\newcommand{\NevilleThetaS}[2]{%
- \vartheta_{s}\!\COOL@decide@paren{NevilleThetaS}%
+ \vartheta_{s}\COOL@decide@paren{NevilleThetaS}%
{#1 \left| \, #2 \right.\!\!}%
}
% \end{macrocode}
@@ -3485,7 +3509,7 @@
}
% Else
{%
- \wp\!\COOL@decide@paren{WeierstrassP}{#1; #2}
+ \wp\COOL@decide@paren{WeierstrassP}{#1; #2}
}%
}
\newcommand{\WeiP}[2]{\WeierstrassP{#1}{#2}}
@@ -3520,12 +3544,12 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
- \wp^{-1}\!\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
+ \wp^{-1}\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
}%
% ElseIf
{ \ifthenelse{\value{COOL@listpointer} = 2}%
{%
- \wp^{-1}\!\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
+ \wp^{-1}\COOL@decide@paren{WeierstrassPInv}{#1; #2}%
}%
% Else
{%
@@ -3575,12 +3599,12 @@
\listval{#1}{0}%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
- \sigma\!\inp{#1; #2}%
+ \sigma\inp{#1; #2}%
}%
% ElseIf
{ \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}%
}%
% Else
{%
@@ -3627,7 +3651,7 @@
}%
% Else
{%
- \zeta\!\COOL@decide@paren{WeierstrassZeta}{#1; #2}%
+ \zeta\COOL@decide@paren{WeierstrassZeta}{#1; #2}%
}%
}
\newcommand{\WeiZeta}[2]{\WeierstrassZeta{#1}{#2}}
@@ -3654,7 +3678,7 @@
}%
% Else
{%
- \{ \omega_1\!\inp{#1}, \omega_3\!\inp{#1} \}%
+ \{ \omega_1\inp{#1}, \omega_3\inp{#1} \}%
}%
}
\newcommand{\WeiHalfPeriods}[1]{\WeierstrassHalfPeriods{#1}}
@@ -3681,7 +3705,7 @@
}%
% Else
{%
- \{ g_2\!\inp{#1}, g_3\!\inp{#1} \}%
+ \{ g_2\inp{#1}, g_3\inp{#1} \}%
}%
}
\newcommand{\WeiInvars}[1]{\WeierstrassInvariants{#1}}
@@ -3735,9 +3759,9 @@
}%
% Else
{%
- \{ 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}}%
\}%
}%
}
@@ -3777,11 +3801,11 @@
{%
\{%
\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}}%
\}%
}%
}
@@ -3803,7 +3827,7 @@
\newcommand{\COOL@notation@JacobiAmplitudeParen}{p}
\DeclareMathOperator{\JacobiAmplitudeSymb}{am}
\newcommand{\JacobiAmplitude}[2]{%
-\JacobiAmplitudeSymb\!\COOL@decide@paren%
+\JacobiAmplitudeSymb\COOL@decide@paren%
{JacobiAmplitude}{#1 \left| \, #2 \right.\!\!}%
}
% \end{macrocode}
@@ -3822,11 +3846,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -3846,11 +3870,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -3870,11 +3894,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -3894,11 +3918,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -3918,11 +3942,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -3942,11 +3966,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -3966,11 +3990,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -3990,11 +4014,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -4014,11 +4038,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -4038,11 +4062,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -4062,11 +4086,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -4086,11 +4110,11 @@
\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.\!\!}%
}
% \end{macrocode}
@@ -4107,7 +4131,7 @@
% Dedekind eta modular function, |\DedekindEta{z}|, $\DedekindEta{z}$
% \begin{macrocode}
\newcommand{\COOL@notation@DedekindEtaParen}{p}
-\newcommand{\DedekindEta}[1]{\eta\!\COOL@decide@paren{DedekindEta}{#1}}
+\newcommand{\DedekindEta}[1]{\eta\COOL@decide@paren{DedekindEta}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4116,7 +4140,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@KleinInvariantJParen}{p}
\newcommand{\KleinInvariantJ}[1]%
- {J\!\COOL@decide@paren{KleinInvariantJ}{#1}}
+ {J\COOL@decide@paren{KleinInvariantJ}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4125,7 +4149,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@ModularLambdaParen}{p}
\newcommand{\ModularLambda}[1]%
- {\lambda\!\COOL@decide@paren{ModularLambda}{#1}}
+ {\lambda\COOL@decide@paren{ModularLambda}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4141,9 +4165,9 @@
\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}}
% \end{macrocode}
% \end{macro}
% \end{macro}
@@ -4166,7 +4190,7 @@
\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}}
% \end{macrocode}
% \end{macro}
@@ -4200,7 +4224,7 @@
}%
% Else
{%
- \EllipticExpSymb\!\COOL@decide@paren{EllipticExp}{#1; #2}%
+ \EllipticExpSymb\COOL@decide@paren{EllipticExp}{#1; #2}%
}%
}
\newcommand{\EExp}[2]{\EllipticExp{#1}{#2}}
@@ -4240,7 +4264,7 @@
}%
% Else
{%
- \EllipticLogSymb\!\COOL@decide@paren{EllipticLog}{#1; #2}%
+ \EllipticLogSymb\COOL@decide@paren{EllipticLog}{#1; #2}%
}%
}%
}
@@ -4293,13 +4317,13 @@
\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}%
}%
% else
{%
\ifthenelse{\value{COOL@listpointer} = 1}%
{%
- \zeta\!\COOL@decide@paren{Zeta}{#1}%
+ \zeta\COOL@decide@paren{Zeta}{#1}%
}%
% else
{%
@@ -4317,7 +4341,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@RiemannSiegelThetaParen}{p}
\newcommand{\RiemannSiegelTheta}[1]%
- {\vartheta\!\COOL@decide@paren{RiemannSiegelTheta}{#1}}
+ {\vartheta\COOL@decide@paren{RiemannSiegelTheta}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4326,7 +4350,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@RiemannSiegelZParen}{p}
\newcommand{\RiemannSiegelZ}[1]%
- {Z\!\COOL@decide@paren{RiemannSiegelZ}{#1}}
+ {Z\COOL@decide@paren{RiemannSiegelZ}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4341,7 +4365,7 @@
% Lerch transcendent, |\LerchPhi{z}{s}{a}|, $\LerchPhi{z}{s}{a}$
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -4356,7 +4380,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@NielsenPolyLogParen}{p}
\newcommand{%
-\NielsenPolyLog}[3]{S_{#1}^{#2}\!%
+\NielsenPolyLog}[3]{S_{#1}^{#2}%
\COOL@decide@paren{NielsenPolyLog}{#3}%
}
% \end{macrocode}
@@ -4384,7 +4408,7 @@
{%
\ifthenelse{ \value{COOL@listpointer} = 2 }%
{%
- \PolyLogSymb_{\COOL@PolyLog@arg@i}\!%
+ \PolyLogSymb_{\COOL@PolyLog@arg@i}%
\COOL@decide@paren{PolyLog}{\COOL@PolyLog@arg@ii}%
}%
% else
@@ -4418,7 +4442,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -4428,7 +4452,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -4449,7 +4473,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
@@ -4466,7 +4490,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
@@ -4483,7 +4507,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
@@ -4506,7 +4530,7 @@
% \begin{macro}{\Arg}
% Argument, |\Arg{z}|, $\Arg{z}$
% \begin{macrocode}
-\newcommand{\Arg}[1]{ \arg\!\inp{#1} }
+\newcommand{\Arg}[1]{ \arg\inp{#1} }
% \end{macrocode}
% \end{macro}
%
@@ -4563,7 +4587,7 @@
}%
% Else
{%
- \RealSymb\!\COOL@decide@paren{Imag}{#1}%
+ \RealSymb\COOL@decide@paren{Imag}{#1}%
}%
}
% \end{macrocode}
@@ -4584,7 +4608,7 @@
}%
% Else
{%
- \ImagSymb\!\COOL@decide@paren{Imag}{#1}%
+ \ImagSymb\COOL@decide@paren{Imag}{#1}%
}%
}
% \end{macrocode}
@@ -4594,7 +4618,7 @@
% Sign function, |\Sign{x}|, $\Sign{x}$
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -4611,7 +4635,7 @@
\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}}
% \end{macrocode}
% \end{macro}
@@ -4623,7 +4647,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -4633,7 +4657,7 @@
\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}}
% \end{macrocode}
% \end{macro}
%
@@ -4641,7 +4665,7 @@
% Prime counting function, |\PrimePi{x}|, $\PrimePi{x}$
% \begin{macrocode}
\newcommand{\COOL@notation@PrimePiParen}{p}
-\newcommand{\PrimePi}[1]{\pi\!\COOL@decide@paren{PrimePi}{#1}}
+\newcommand{\PrimePi}[1]{\pi\COOL@decide@paren{PrimePi}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4650,7 +4674,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@DivisorSigmaParen}{p}
\newcommand{\DivisorSigma}[2]%
- {\sigma_{#1}\!\COOL@decide@paren{DivisorSigma}{#2}}
+ {\sigma_{#1}\COOL@decide@paren{DivisorSigma}{#2}}
% \end{macrocode}
% \end{macro}
%
@@ -4658,7 +4682,7 @@
% Euler Totient Function, |\EulerPhi{x}|, $\EulerPhi{x}$
% \begin{macrocode}
\newcommand{\COOL@notation@EulerPhiParen}{p}
-\newcommand{\EulerPhi}[1]{\varphi\!\COOL@decide@paren{EulerPhi}{#1}}
+\newcommand{\EulerPhi}[1]{\varphi\COOL@decide@paren{EulerPhi}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4666,7 +4690,7 @@
% Moebius Function, |\MoebiusMu{x}|, $\MoebiusMu{x}$
% \begin{macrocode}
\newcommand{\COOL@notation@MoebiusMuParen}{p}
-\newcommand{\MoebiusMu}[1]{\mu\!\COOL@decide@paren{MoebiusMu}{#1}}
+\newcommand{\MoebiusMu}[1]{\mu\COOL@decide@paren{MoebiusMu}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4682,7 +4706,7 @@
% \begin{macrocode}
\newcommand{\COOL@notation@CarmichaelLambdaParen}{p}
\newcommand{\CarmichaelLambda}[1]%
- {\lambda\!\COOL@decide@paren{CarmichaelLambda}{#1}}
+ {\lambda\COOL@decide@paren{CarmichaelLambda}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4703,19 +4727,19 @@
\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}%
\}%
}%
% else
{%
\{%
- 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}%
\}%
}%
}
@@ -4732,7 +4756,7 @@
% Dirac Delta Function, |\DiracDelta{x}|, $\DiracDelta{x}$
% \begin{macrocode}
\newcommand{\COOL@notation@DiracDeltaParen}{p}
-\newcommand{\DiracDelta}[1]{\delta\!\COOL@decide@paren{DiracDelta}{#1}}
+\newcommand{\DiracDelta}[1]{\delta\COOL@decide@paren{DiracDelta}{#1}}
% \end{macrocode}
% \end{macro}
%
@@ -4747,7 +4771,7 @@
% \begin{macrocode}
\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}}
% \end{macrocode}
% \end{macro}
@@ -4792,7 +4816,7 @@
%
% \meta{wrt} is a comma separated list of length $\ge$ 1.
%
-% \meta{symbol} is passed by |\D| or |\pderiv| and is `d' or `$\partial$' respectively
+% \meta{symbol} is passed by |\D| or |\pderiv| and is |\COOL@notation@DSymb| or `$\partial$' respectively
%
% \begin{tabular}{ll}
% |\COOL@derivative{2,3}{f}{x,y,z}{d}| & \makeatletter
@@ -4817,7 +4841,7 @@
% \\
% |\Style{DDisplayFunc=outset}| \Style{DDisplayFunc=outset}
% \\
-% |\COOL@derivative{2,n}{f}{x,y,z}{d}| & \makeatletter
+% |\COOL@derivative{2,n}{f}{x,y,z}{d}| & \makeatletter
% $\COOL@derivative{2,n}{f}{x,y,z}{d}$
% \makeatother
% \\
@@ -4841,6 +4865,7 @@
% \makeatother
% \end{tabular}
% \begin{macrocode}
+ \newcommand{\COOL@notation@DSymb}{d}
\newcommand{\COOL@derivative}[4]{%
% \end{macrocode}
% Get the length of \meta{wrt} argument.
@@ -4897,12 +4922,12 @@
\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}%
}%
% Else
{%
\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}%
}%
}%
% \end{macrocode}
@@ -4924,12 +4949,12 @@
\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}%
}%
% Else
{%
\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}%
}%
}%
}%
@@ -4937,11 +4962,11 @@
{}%
\ifthenelse{\value{COOL@ct@}=1}%
{%
- \frac{#4 #2}{\COOL@temp@D@bot}%
+ \frac{{#4} #2}{\COOL@temp@D@bot}%
}%
% Else
{%
- \frac{#4^{\arabic{COOL@ct@}} #2}{\COOL@temp@D@bot}%
+ \frac{{#4}^{\arabic{COOL@ct@}} #2}{\COOL@temp@D@bot}%
}%
}%
% Else
@@ -4970,12 +4995,12 @@
\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}%
}%
% Else
{%
\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}%
}%
}%
% \end{macrocode}
@@ -5004,18 +5029,18 @@
\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}%
}%
% Else
{%
\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}%
}%
}%
}%
% Else
{}%
- \frac{#4^{\COOL@temp@D@top@power} #2}{\COOL@temp@D@bot}%
+ \frac{{#4}^{\COOL@temp@D@top@power} #2}{\COOL@temp@D@bot}%
}%
}%
% \end{macrocode}
@@ -5047,12 +5072,12 @@
\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}%
}%
% Else
{%
\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}%
}%
}%
% \end{macrocode}
@@ -5074,12 +5099,12 @@
\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}%
}%
% Else
{%
\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}%
}%
}%
}%
@@ -5091,7 +5116,7 @@
}%
% Else
{%
- \frac{#4^{\arabic{COOL@ct@}}}{\COOL@temp@D@bot} #2%
+ \frac{{#4}^{\arabic{COOL@ct@}}}{\COOL@temp@D@bot} #2%
}%
}%
% Else
@@ -5120,12 +5145,12 @@
\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}%
}%
% Else
{%
\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}%
}%
}%
% \end{macrocode}
@@ -5154,18 +5179,18 @@
\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}%
}%
% Else
{%
\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}%
}%
}%
}%
% Else
{}%
- \frac{#4^{\COOL@temp@D@top@power} }{\COOL@temp@D@bot} #2%
+ \frac{{#4}^{\COOL@temp@D@top@power} }{\COOL@temp@D@bot} #2%
}%
}%
% \end{macrocode}
@@ -5195,12 +5220,12 @@
\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}%
}%
% Else
{%
- \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}}%
@@ -5221,12 +5246,12 @@
\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}%
}%
% Else
{%
- \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}}%
@@ -5241,12 +5266,12 @@
\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}%
}%
% Else
{%
- \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}}%
@@ -5259,12 +5284,12 @@
\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}%
}%
% Else
{%
- \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}}%
@@ -5281,12 +5306,12 @@
\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}%
}%
% Else
{%
- \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}}%
@@ -5318,12 +5343,12 @@
\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}%
}%
% Else
{%
- \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}}%
@@ -5344,12 +5369,12 @@
\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}%
}%
% Else
{%
- \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}}%
@@ -5381,6 +5406,7 @@
% Derivatives
%
% \begin{tabular}{ll}
+% |\Style{DSymb={\mathrm d}}| \Style{DSymb={\mathrm d}} \\
% |\D{f}{x}| & \vspace{0.15cm}$\D{f}{x}$ \\
% |\D[n]{f}{x}| & \vspace{0.15cm}$\D[n]{f}{x}$ \\
% |\D{f}{x,y,z}| & \vspace{0.15cm}$\D{f}{x,y,z}$ \\
@@ -5391,7 +5417,7 @@
% |\pderiv[1,2,1]{f}{x,y,z}| & \vspace{0.15cm}$\pderiv[1,2,1]{f}{x,y,z}$ \\
% \end{tabular}
% \begin{macrocode}
-\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}}
% \end{macrocode}
% \end{macro}
@@ -5419,8 +5445,8 @@
% \end{tabular}
% \\
% \\
-% |\Style{IntegrateDisplayFunc=outset}|%
-% \Style{IntegrateDisplayFunc=outset}
+% |\Style{IntegrateDisplayFunc=outset,IntegrateDifferentialDSymb=\text{d}}|%
+% \Style{IntegrateDisplayFunc=outset,IntegrateDifferentialDSymb=\text{d}}
% \\
% \begin{tabular}{ll}
% |\Integrate{f}{x}| & \vspace{0.15cm}$\Integrate{f}{x}$ \\
@@ -5435,6 +5461,7 @@
% \end{tabular}
% \begin{macrocode}
\newcommand{\COOL@notation@IntegrateDisplayFunc}{inset}
+ \newcommand{\COOL@notation@IntegrateDifferentialDSymb}{d}
\newcommand{\Integrate}[2]{%
\listval{#2}{0}%
% \end{macrocode}
@@ -5445,12 +5472,12 @@
{%
\ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{outset}}%
{%
- \int \! d#2 \, #1%
+ \int \! \COOL@notation@IntegrateDifferentialDSymb{}#2 \, #1%
}%
% ElseIf
{ \ifthenelse{\equal{\COOL@notation@IntegrateDisplayFunc}{inset}}%
{%
- \int #1 \, d#2%
+ \int #1 \, \COOL@notation@IntegrateDifferentialDSymb{}#2%
}%
% Else
{%
@@ -5463,12 +5490,14 @@
{%
\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%
}%
% ElseIf
{ \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}}%
}%
% Else
{%
@@ -5481,12 +5510,14 @@
{%
\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%
}%
% ElseIf
{ \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}}%
}%
% Else
{%
@@ -5712,13 +5743,14 @@
\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%
}%
% Else
{%
@@ -5774,7 +5806,7 @@
}%
% Else
{%
- \mathbb{I}%
+ \COOL@notation@IdentityMatrixSymb%
}%
}%
% \end{macrocode}
diff --git a/Master/texmf-dist/source/latex/cool/cool.ins b/Master/texmf-dist/source/latex/cool/cool.ins
index 0f41b595606..cf0c9ee534b 100644
--- a/Master/texmf-dist/source/latex/cool/cool.ins
+++ b/Master/texmf-dist/source/latex/cool/cool.ins
@@ -1,40 +1,40 @@
-%%
-%% Copyright (C) 2005 by nsetzer
-%%
-%% This file may be distributed and/or modified under the
-%% conditions of the Lesser General Product License
-%%
-
-\input docstrip.tex
-
-\keepsilent
-
-\usedir{texmf/tex/latex/cool}
-
-\preamble
-
-This is a generated file
-
-This file may be distributed and/or modified under the
-conditions of the Limited General Product License
-
-\endpreamble
-
-
-\generate{\file{cool.sty}{\from{cool.dtx}{package}}}
-
-\obeyspaces
-\Msg{****************************************************}
-\Msg{* *}
-\Msg{* To finish the installation you have to move the *}
-\Msg{* following file into a directory searched by TeX: *}
-\Msg{* *}
-\Msg{* cool.sty *}
-\Msg{* *}
-\Msg{* To produce the documentation run the file *}
-\Msg{* cool.dtx through LaTeX. *}
-\Msg{* *}
-\Msg{* *}
-\Msg{****************************************************}
-
+%%
+%% Copyright (C) 2005 by nsetzer
+%%
+%% This file may be distributed and/or modified under the
+%% conditions of the Lesser General Product License
+%%
+
+\input docstrip.tex
+
+\keepsilent
+
+\usedir{texmf/tex/latex/cool}
+
+\preamble
+
+This is a generated file
+
+This file may be distributed and/or modified under the
+conditions of the Limited General Product License
+
+\endpreamble
+
+
+\generate{\file{cool.sty}{\from{cool.dtx}{package}}}
+
+\obeyspaces
+\Msg{****************************************************}
+\Msg{* *}
+\Msg{* To finish the installation you have to move the *}
+\Msg{* following file into a directory searched by TeX: *}
+\Msg{* *}
+\Msg{* cool.sty *}
+\Msg{* *}
+\Msg{* To produce the documentation run the file *}
+\Msg{* cool.dtx through LaTeX. *}
+\Msg{* *}
+\Msg{* *}
+\Msg{****************************************************}
+
\endbatchfile \ No newline at end of file