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