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