diff options
author | Norbert Preining <preining@logic.at> | 2006-10-09 23:07:15 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2006-10-09 23:07:15 +0000 |
commit | 8650f6e3d8df6655cddbdcdfc63e83dcc0c0cf6f (patch) | |
tree | d9d3e661d4269683d48b718460bc52a619cb8b4c /Master/texmf-dist/tex | |
parent | a2804fb7b5228d3b8b2b855919c0b9425b76208c (diff) |
cool update
git-svn-id: svn://tug.org/texlive/trunk@2293 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r-- | Master/texmf-dist/tex/latex/cool/cool.sty | 468 |
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 |