|
|
1.1 ! root 1: .nr _0 \n(c. ! 2: .\" @(#)eqn.me 2.3 (Berkeley) 5/21/88 ! 3: .\" ! 4: .\" Copyright (c) 1988 Regents of the University of California. ! 5: .\" All rights reserved. ! 6: .\" ! 7: .\" Redistribution and use in source and binary forms are permitted ! 8: .\" provided that this notice is preserved and that due credit is given ! 9: .\" to the University of California at Berkeley. The name of the University ! 10: .\" may not be used to endorse or promote products derived from this ! 11: .\" software without specific prior written permission. This software ! 12: .\" is provided ``as is'' without express or implied warranty. ! 13: .\" %beginstrip% ! 14: .\" ! 15: .de EQ \" *** equation start ! 16: .ec ! 17: .if !\\n(?e \ ! 18: \{\ ! 19: . if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request ! 20: . @D 1 "\\$1" "\\$2" ! 21: . @C 2 ! 22: . di |e ! 23: .\} ! 24: .ls 1 ! 25: .in 0 ! 26: .nf ! 27: .. ! 28: .de EN \" *** equation end ! 29: .br ! 30: .ie "\\$1"C" \ ! 31: \{\ ! 32: . nr ?e 1 ! 33: . sp \\n(esu ! 34: .\} ! 35: .el \ ! 36: \{\ ! 37: . nr ?e 0 ! 38: . di ! 39: . if \\n(dn \ ! 40: . @q \" actual equation output ! 41: . rm |e ! 42: . rm 10 ! 43: . rm 11 ! 44: . rm 12 ! 45: . rm 13 ! 46: . rm 14 ! 47: . rm 15 ! 48: . rm 16 ! 49: . rm 17 ! 50: . rm 18 ! 51: . rm 19 ! 52: . rm 20 ! 53: . rm 21 ! 54: . rm 22 ! 55: . rm 23 ! 56: . ev ! 57: .\} ! 58: .. ! 59: .de @q \" --- equation output ! 60: .nr _Q \\n(dnu ! 61: .ev ! 62: .sp \\n(esu \" output rest of preceeding text ! 63: .@C 2 \" .ev 2 may be jumbled from header ! 64: .ie \\n(_d=1 \ ! 65: . in (\\n(.lu+\\n($iu-\\n(dlu)/2u ! 66: .el .ie \\n(_d=2 \ ! 67: . in \\n($iu ! 68: .el .ie \\n(_d=3 \ ! 69: . in \\n(biu+\\n($iu ! 70: .el .if \\n(_d=4 \ ! 71: . in 0 ! 72: .if !"\\n(.z"" \!.ne \\n(_Qu ! 73: .ne \\n(_Qu+\n(.Vu \" keep it on one page ! 74: .mk _q ! 75: .if \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p ! 76: .if !"\\*(|p"" \ ! 77: \{\ ! 78: . rs ! 79: . sp (\\n(_Qu-\\n(.vu)/2u ! 80: . tl """\\*(|p" ! 81: . rt \\n(_qu ! 82: .\} ! 83: .|e ! 84: .sp |\\n(_qu+\\n(_Qu ! 85: .sp \\n(esu+\\n(.Lv-1v ! 86: .rr _q ! 87: .rr _Q ! 88: .. ! 89: .nr c. \n(_0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.