|
|
1.1 ! root 1: .nr _0 \n(c. ! 2: .\" @(#)eqn.me 2.1 8/18/80 ! 3: .\" %beginstrip% ! 4: .de EQ \" *** equation start ! 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 \" *** equation end ! 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 \" actual equation output ! 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 \" --- equation output ! 49: .nr _Q \\n(dnu ! 50: .ev ! 51: .sp \\n(esu \" output rest of preceeding text ! 52: .@C 2 \" .ev 2 may be jumbled from header ! 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 \" keep it on one page ! 63: .mk _q ! 64: .if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p ! 65: .if !"\\*(|p"" \ ! 66: \{\ ! 67: . rs ! 68: . sp (\\n(_Qu-\\n(.vu)/2u ! 69: . tl """\\*(|p" ! 70: . rt \\n(_qu ! 71: .\} ! 72: .|e ! 73: .sp |\\n(_qu+\\n(_Qu ! 74: .sp \\n(esu+\\n(.Lv-1v ! 75: .rr _q ! 76: .rr _Q ! 77: .. ! 78: .nr c. \n(_0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.