diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-12 23:58:53 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-12 23:58:53 +0000 |
commit | 73737138494c38ab30b24873f1da7d19a34c820a (patch) | |
tree | 3810db1fc65217e393992e34a7afdc718d375dbb /Master/texmf-dist/tex/latex/mdwtools/mdwmath.sty | |
parent | 31d05ca84e9dba8a5f61b45b5c475fa154272b48 (diff) |
mdwtools
git-svn-id: svn://tug.org/texlive/trunk@1080 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/mdwtools/mdwmath.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/mdwtools/mdwmath.sty | 132 |
1 files changed, 132 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/mdwtools/mdwmath.sty b/Master/texmf-dist/tex/latex/mdwtools/mdwmath.sty new file mode 100644 index 00000000000..f06def5f137 --- /dev/null +++ b/Master/texmf-dist/tex/latex/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'. |