From 8650f6e3d8df6655cddbdcdfc63e83dcc0c0cf6f Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 9 Oct 2006 23:07:15 +0000 Subject: cool update git-svn-id: svn://tug.org/texlive/trunk@2293 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/source/latex/cool/cool.dtx | 502 ++++++++++++++------------- Master/texmf-dist/source/latex/cool/cool.ins | 78 ++--- 2 files changed, 306 insertions(+), 274 deletions(-) (limited to 'Master/texmf-dist/source/latex/cool') 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 @@ % %\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} % % %<*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 -- cgit v1.2.3