eqn.me (906B)
1 .nr _0 \n(c. 2 .\" @(#)eqn.me 2.1 8/18/80 3 .\" This version has had comments stripped; an unstripped version is available. 4 .de EQ 5 .ec 6 .if !\\n(?e \ 7 \{\ 8 . if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request 9 . @D 1 "\\$1" "\\$2" 10 . @C 2 11 . di |e 12 .\} 13 .ls 1 14 .in 0 15 .nf 16 .. 17 .de EN 18 .br 19 .ie "\\$1"C" \ 20 \{\ 21 . nr ?e 1 22 . sp \\n(esu 23 .\} 24 .el \ 25 \{\ 26 . nr ?e 0 27 . di 28 . if \\n(dn \ 29 . @q 30 . rm |e 31 . rm 10 32 . rm 11 33 . rm 12 34 . rm 13 35 . rm 14 36 . rm 15 37 . rm 16 38 . rm 17 39 . rm 18 40 . rm 19 41 . rm 20 42 . rm 21 43 . rm 22 44 . rm 23 45 . ev 46 .\} 47 .. 48 .de @q 49 .nr _Q \\n(dnu 50 .ev 51 .sp \\n(esu 52 .@C 2 53 .ie \\n(_d=1 \ 54 . in (\\n(.lu+\\n($iu-\\n(dlu)/2u 55 .el .ie \\n(_d=2 \ 56 . in \\n($iu 57 .el .ie \\n(_d=3 \ 58 . in \\n(biu+\\n($iu 59 .el .if \\n(_d=4 \ 60 . in 0 61 .if !"\\n(.z"" \!.ne \\n(_Qu 62 .ne \\n(_Qu+\n(.Vu 63 .mk _q 64 .if !"\\*(|p"" \ 65 \{\ 66 . rs 67 . sp (\\n(_Qu-\\n(.vu)/2u 68 . tl """\\*(|p" 69 . rt \\n(_qu 70 .\} 71 .|e 72 .sp |\\n(_qu+\\n(_Qu 73 .sp \\n(esu+\\n(.Lv-1v 74 .rr _q 75 .rr _Q 76 .. 77 .nr c. \n(_0