| .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 |