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