77 lines
906 B
Text
77 lines
906 B
Text
.nr _0 \n(c.
|
|
.\" @(#)eqn.me 2.1 8/18/80
|
|
.\" This version has had comments stripped; an unstripped version is available.
|
|
.de EQ
|
|
.ec
|
|
.if !\\n(?e \
|
|
\{\
|
|
. if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
|
|
. @D 1 "\\$1" "\\$2"
|
|
. @C 2
|
|
. di |e
|
|
.\}
|
|
.ls 1
|
|
.in 0
|
|
.nf
|
|
..
|
|
.de EN
|
|
.br
|
|
.ie "\\$1"C" \
|
|
\{\
|
|
. nr ?e 1
|
|
. sp \\n(esu
|
|
.\}
|
|
.el \
|
|
\{\
|
|
. nr ?e 0
|
|
. di
|
|
. if \\n(dn \
|
|
. @q
|
|
. rm |e
|
|
. rm 10
|
|
. rm 11
|
|
. rm 12
|
|
. rm 13
|
|
. rm 14
|
|
. rm 15
|
|
. rm 16
|
|
. rm 17
|
|
. rm 18
|
|
. rm 19
|
|
. rm 20
|
|
. rm 21
|
|
. rm 22
|
|
. rm 23
|
|
. ev
|
|
.\}
|
|
..
|
|
.de @q
|
|
.nr _Q \\n(dnu
|
|
.ev
|
|
.sp \\n(esu
|
|
.@C 2
|
|
.ie \\n(_d=1 \
|
|
. in (\\n(.lu+\\n($iu-\\n(dlu)/2u
|
|
.el .ie \\n(_d=2 \
|
|
. in \\n($iu
|
|
.el .ie \\n(_d=3 \
|
|
. in \\n(biu+\\n($iu
|
|
.el .if \\n(_d=4 \
|
|
. in 0
|
|
.if !"\\n(.z"" \!.ne \\n(_Qu
|
|
.ne \\n(_Qu+\n(.Vu
|
|
.mk _q
|
|
.if !"\\*(|p"" \
|
|
\{\
|
|
. rs
|
|
. sp (\\n(_Qu-\\n(.vu)/2u
|
|
. tl """\\*(|p"
|
|
. rt \\n(_qu
|
|
.\}
|
|
.|e
|
|
.sp |\\n(_qu+\\n(_Qu
|
|
.sp \\n(esu+\\n(.Lv-1v
|
|
.rr _q
|
|
.rr _Q
|
|
..
|
|
.nr c. \n(_0
|