1 .nr _0 \n(c.
2 .\"	@(#)eqn.me	2.1	8/18/80
3 .\" This version has had comments stripped; an unstripped version is available.
4 .de EQ
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
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
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
49 .nr _Q \\n(dnu
50 .ev
51 .sp \\n(esu
52 .@C 2
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
63 .mk _q
64 .if !"\\*(|p"" \
65 \{\
66 .	rs
67 .	sp (\\n(_Qu-\\n(.vu)/2u
68 .	tl """\\*(|p"
69 .	rt \\n(_qu
70 .\}
71 .|e
72 .sp |\\n(_qu+\\n(_Qu
73 .sp \\n(esu+\\n(.Lv-1v
74 .rr _q
75 .rr _Q
76 ..
77 .nr c. \n(_0