tmac/me/eqn.me

   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