. \" EQ - equation, breakout and display
.nr LE 1 \" default centered
.if
\a\\$1
\aC
\a .ds EL \f1\\$2\fP
. if !
\a\\$3
\a\a .ds EE \\h'\\$3'
. \" EN - end of a displayed equation
.if \\n(ZN>0 .if \\n(YE=0 .LP
.if \\n(ZN=0 .if !
\a\\*(EL
\a\a .nr ZN 1
.if
\a\\n(.z
\a\a .if \\n(ZN>0 .if !\\n(nl=\\n(PE .sp \\n(DDu
.if !
\a\\n(.z
\a\a .if \\n(ZN>0 .if !\\n(.d=\\n(PE .sp \\n(DDu
.if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
.if \\n(MK>0 .if \\n(LE=1 .ds EE \\h'|10n'
.if \\n(MK>0 .nr LE 0 \" don't center if mark/lineup
.if \\n(EP=0 .if \\n(ZN>0 \{\
. if \\n(LE>0 .tl
\a\a\\*(10
\a\\*(EL
\a
. if \\n(LE=0 .if \\n(BD=0 .tl
\a\\*(EE\\*(10
\a\a\\*(EL
\a
. if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w
\a\\*(10
\a .nr BD \\w
\a\\*(10
\a
. if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\t\\*(EL
.if \\n(EP>0 .if \\n(ZN>0 \{\
. if \\n(LE>0 .tl
\a\\*(EL
\a\\*(10
\a\a
. if \\n(LE=0 .if \\n(BD=0 .tl
\a\\*(EL\\*(EE\\*(10
\a\a\a
. if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w
\a\\*(10
\a .nr BD \\w
\a\\*(10
\a
. if \\n(LE=0 .if \\n(BD>0 \!\\h'-\\\\n(.iu'\\*(EL\\h'|0'\\*(10
.if \\n(YE>0 .if \\n(UR>0 .fi
.rm 10 11 12 13 14 15 16 17 18 19 20 21 22 23 EL
.rr 10 11 12 13 14 15 16 17 18 19 20 21 22 23
.if \\n(ZN>0 .if t .sp \\n(DDu
.if
\a\\n(.z
\a\a .nr PE \\n(nl
.if !
\a\\n(.z
\a\a .nr PE \\n(.d