blob: 3bb06a55071cc7557b055c3d14f9c018aca79aaf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
%%
%% This is file `fouridx.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% fouridx.dtx (with options: `package')
%%
%% fouridx package
%%
%% Copyright 2008, 2013 Stefan Karrmann
%%
%% This program can be redistributed and/or modified under the terms
%% of the LaTeX Project Public License Distributed from CTAN
%% archives in directory macros/latex/base/lppl.txt; either
%% version 1 of the License, or any later version.
%%
%% S.Karrmann at web.de
%%
\def\fileversion{2.00}
\def\filedate{2013/11/21}
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesPackage{fouridx}[\filedate\space v\fileversion\space Four indices]
\newcommand{\fourIdx}[5]{%
\ensuremath{\mathchoice%
{{\setbox1=\hbox{$\scriptstyle{#1}$}%
\setbox2=\hbox{$\scriptstyle{#2}$}%
\setbox5=\hbox{$\displaystyle{#5}$}%
\hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}%
\copy5^{\scriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}%
_{\scriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}%
}}% display
{{\setbox1=\hbox{$\scriptstyle{#1}$}%
\setbox2=\hbox{$\scriptstyle{#2}$}%
\setbox5=\hbox{$\textstyle{#5}$}%
\hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}%
\copy5^{\scriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}%
_{\scriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}%
}}% text
{{\setbox1=\hbox{$\scriptscriptstyle{#1}$}%
\setbox2=\hbox{$\scriptscriptstyle{#2}$}%
\setbox5=\hbox{$\scriptstyle{#5}$}%
\hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}%
\copy5^{\scriptscriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}%
_{\scriptscriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}%
}}% script
{{\setbox1=\hbox{$\scriptscriptstyle{#1}$}%
\setbox2=\hbox{$\scriptscriptstyle{#2}$}%
\setbox5=\hbox{$\scriptscriptstyle{#5}$}%
\hspace*{\ifnum\wd1>\wd2\wd1\else\wd2\fi}%
\copy5^{\scriptscriptstyle\hspace{-\wd1}\hspace{-\wd5}#1\hspace{\wd5}#3}%
_{\scriptscriptstyle\hspace{-\wd2}\hspace{-\wd5}#2\hspace{\wd5}#4}%
}}% scriptscript
}}
\endinput
%%
%% End of file `fouridx.sty'.
|
