|
|
1.1 root 1: .\" @(#)eqn.ms 1.3 (Berkeley) 6/2/90
2: .bd S B 3
3: . \" EQ - equation, breakout and display
4: .de EQ
5: .nr UR \\n(.u
6: .rm EE
7: .nr LE 1 \" default centered
8: .ds EL \f1\\$1\fP
9: .if \\$1C .ds EL \f1\\$2\fP
10: .if \\$1L \{\
11: . ds EL \f1\\$2\fP
12: . nr LE 0
13: .\}
14: .if \\$1I \{\
15: . ds EL \f1\\$2\fP
16: . nr LE 0
17: . ds EE \\h'|10n'
18: . if !\\$3 .ds EE \\h'\\$3'
19: .\}
20: .if \\n(YE>0 .nf
21: .di EZ
22: ..
23: . \" EN - end of a displayed equation
24: .de EN
25: .if !\\*(10 .br
26: .di
27: .rm EZ
28: .nr ZN \\n(dn
29: .if \\n(ZN>0 .if \\n(YE=0 .LP
30: .if \\n(ZN=0 .if !\\*(EL .nr ZN 1
31: .if \\n(.z .if \\n(ZN>0 .if !\\n(nl=\\n(PE .sp \\n(DDu
32: .if !\\n(.z .if \\n(ZN>0 .if !\\n(.d=\\n(PE .sp \\n(DDu
33: .pc
34: .if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
35: .if \\n(MK>0 .if \\n(LE=1 .ds EE \\h'|10n'
36: .if \\n(MK>0 .nr LE 0 \" don't center if mark/lineup
37: .lt \\n(.lu
38: .if \\n(EP=0 .if \\n(ZN>0 \{\
39: . if \\n(LE>0 .tl \\*(10\\*(EL
40: . if \\n(LE=0 .if \\n(BD=0 .tl \\*(EE\\*(10\\*(EL
41: . if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\\*(10 .nr BD \\w\\*(10
42: . if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\t\\*(EL
43: .\}
44: .if \\n(EP>0 .if \\n(ZN>0 \{\
45: . if \\n(LE>0 .tl \\*(EL\\*(10
46: . if \\n(LE=0 .if \\n(BD=0 .tl \\*(EL\\*(EE\\*(10
47: . if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w\\*(10 .nr BD \\w\\*(10
48: . if \\n(LE=0 .if \\n(BD>0 \!\\h'-\\\\n(.iu'\\*(EL\\h'|0'\\*(10
49: .\}
50: .lt \\n(LLu
51: .pc %
52: .if \\n(YE>0 .if \\n(UR>0 .fi
53: .rm 10 11 12 13 14 15 16 17 18 19 20 21 22 23 EL
54: .rr 10 11 12 13 14 15 16 17 18 19 20 21 22 23
55: .if \\n(ZN>0 .if t .sp \\n(DDu
56: .if \\n(.z .nr PE \\n(nl
57: .if !\\n(.z .nr PE \\n(.d
58: ..
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.