summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/mdwtools/mdwmath.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/mdwtools/mdwmath.sty
Initial commit
Diffstat (limited to 'macros/latex/contrib/mdwtools/mdwmath.sty')
-rw-r--r--macros/latex/contrib/mdwtools/mdwmath.sty132
1 files changed, 132 insertions, 0 deletions
diff --git a/macros/latex/contrib/mdwtools/mdwmath.sty b/macros/latex/contrib/mdwtools/mdwmath.sty
new file mode 100644
index 0000000000..f06def5f13
--- /dev/null
+++ b/macros/latex/contrib/mdwtools/mdwmath.sty
@@ -0,0 +1,132 @@
+%%
+%% This is file `mdwmath.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% mdwmath.dtx (with options: `package')
+%%
+%% IMPORTANT NOTICE
+%%
+%% mdwmath package -- various nicer mathematical things
+%% Copyright (c) 1996 Mark Wooding
+%%
+%% This program is free software; you can redistribute it and/or modify
+%% it under the terms of the GNU General Public License as published by
+%% the Free Software Foundation; either version 2 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program; if not, write to the Free Software
+%% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+%%
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{mdwmath}
+ [1996/04/11 1.1 Nice mathematical things]
+%% \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
+%% Digits \0\1\2\3\4\5\6\7\8\9
+%% Exclamation \! Double quote \" Hash (number) \#
+%% Dollar \$ Percent \% Ampersand \&
+%% Acute accent \' Left paren \( Right paren \)
+%% Asterisk \* Plus \+ Comma \,
+%% Minus \- Point \. Solidus \/
+%% Colon \: Semicolon \; Less than \<
+%% Equals \= Greater than \> Question mark \?
+%% Commercial at \@ Left bracket \[ Backslash \\
+%% Right bracket \] Circumflex \^ Underscore \_
+%% Grave accent \` Left brace \{ Vertical bar \|
+%% Right brace \} Tilde \~}
+%%
+\newcount\sq@sqrt
+\begingroup
+ \catcode`\|0 \catcode`\\12
+ |def|sq@readrad#1"#2\#3|relax{|global|sq@sqrt"#2|relax}
+ |expandafter|sq@readrad|meaning|sqrtsign|relax
+|endgroup
+\def\sq@delim{\delimiter\sq@sqrt\relax}
+\def\sqrtdel{\mathpalette\sqrtdel@i}
+\def\sqrtdel@i#1#2{%
+ \setbox\z@\hbox{$\m@th#1#2$}% %%% Bzzzt -- uncramps the mathstyle
+ \ifx#1\displaystyle%
+ \@tempdima1ex%
+ \else%
+ \@tempdima.6\p@%
+ \fi%
+ \@tempdimb.6\p@%
+ \advance\@tempdimb.25\@tempdima%
+ \dimen@.6\p@%
+ \advance\dimen@\@tempdimb%
+ \advance\dimen@\ht\z@%
+ \advance\dimen@\dp\z@%
+ \setbox\tw@\hbox{%
+ $\left\sq@delim\vcenter to\dimen@{}\right.\n@space$%
+ }%
+ \@tempdima\ht\tw@%
+ \advance\@tempdima\dp\tw@%
+ \advance\@tempdima-\ht\z@%
+ \advance\@tempdima-\dp\z@%
+ \ifdim\@tempdima>\@tempdimb%
+ \advance\@tempdima\@tempdimb%
+ \@tempdimb.5\@tempdima%
+ \fi%
+ \@tempdima\ht\z@%
+ \advance\@tempdima\@tempdimb%
+ \advance\@tempdima-\ht\tw@%
+ {\raise\@tempdima\box\tw@\vbox{\kern\@tempdimb\box\z@}}%
+}
+\DeclareRobustCommand\sqrt{\@ifstar{\sqrt@i\sqrtdel}{\sqrt@i\sqrtsign}}
+\def\sqrt@i#1{\@ifnextchar[{\sqrt@ii{#1}}{\sqrt@iv{#1}}}
+\def\sqrt@ii#1[#2]{%
+ \setbox\rootbox\hbox{$\m@th\scriptscriptstyle{#2}$}%
+ \ifdim\wd\rootbox<6\p@%
+ \setbox\rootbox\hb@xt@6\p@{\hfil\unhbox\rootbox}%
+ \fi%
+ \mathpalette{\sqrt@iii{#1}}%
+}
+\def\sqrt@iii#1#2#3{%
+ \setbox\z@\hbox{$\m@th#2#1{#3}$}%
+ \dimen@\ht\z@%
+ \advance\dimen@-\dp\z@%
+ \dimen@.6\dimen@%
+ \advance\dimen@\dp\rootbox%
+ \mkern-3mu%
+ \raise\dimen@\copy\rootbox%
+ \mkern-10mu%
+ \box\z@%
+}
+\def\sqrt@iv#1#2{#1{#2}}
+\def\root{\@ifstar{\root@i\sqrtdel}{\root@i\sqrtsign}}
+\def\root@i#1#2\of{\sqrt@ii{#1}[#2]}
+\DeclareMathSymbol{&}{\mathbin}{operators}{`\&}
+\DeclareMathSymbol{\bitand}{\mathbin}{operators}{`\&}
+\def\bitor{\mathbin\mid}
+\def\dblor{\mathbin{\mid\mid}}
+\def\dbland{\mathbin{\mathrel\bitand\mathrel\bitand}}
+\def\bbigg{\@bbigg\mathord}
+\def\bbiggl{\@bbigg\mathopen}
+\def\bbiggr{\@bbigg\mathclose}
+\def\bbiggm{\@bbigg\mathrel}
+\def\@bbigg#1{\@ifnextchar[{\@bigg@i{#1}}{\@bigg@i{#1}[\z@]}}
+\def\@bigg@i#1[#2]#3#4{#1{\bbigg@{#2}{#3}{#4}}}
+\def\bbigg@#1#2#3{%
+ \hbox{$%
+ \dimen@\ht\strutbox\advance\dimen@\dp\strutbox%
+ \advance\dimen@#1%
+ \dimen@#2\dimen@%
+ \left#3\vcenter to\dimen@{}\right.\n@space%
+ $}%
+}
+\def\big{\bbigg@\z@\@ne}
+\def\Big{\bbigg@\z@{1.5}}
+\def\bigg{\bbigg@\z@\tw@}
+\def\Bigg{\bbigg@\z@{2.5}}
+\endinput
+%%
+%% End of file `mdwmath.sty'.