home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / bin / lib / me / eqn.me < prev    next >
Text File  |  1980-02-17  |  943b  |  79 lines
  1. .nr _0 \n(c.
  2. .\" This version has had comments stripped; an unstripped version is available.
  3. .de EQ
  4. .ec
  5. .if !\\n(?e \
  6. \{\
  7. .    if "\\n(.z"|e" .tm Line \\n(c. -- Nested .EQ request
  8. .    @D 1 "\\$1" "\\$2"
  9. .    @C 2
  10. .    di |e
  11. .\}
  12. .ls 1
  13. .in 0
  14. .nf
  15. ..
  16. .de EN
  17. .br
  18. .ie "\\$1"C" \
  19. \{\
  20. .    nr ?e 1
  21. .    sp \\n(esu
  22. .\}
  23. .el \
  24. \{\
  25. .    nr ?e 0
  26. .    di
  27. .    if \\n(dn \
  28. .        @q
  29. .    rm |e
  30. .    rm 10
  31. .    rm 11
  32. .    rm 12
  33. .    rm 13
  34. .    rm 14
  35. .    rm 15
  36. .    rm 16
  37. .    rm 17
  38. .    rm 18
  39. .    rm 19
  40. .    rm 20
  41. .    rm 21
  42. .    rm 22
  43. .    rm 23
  44. .    ev
  45. .\}
  46. ..
  47. .de @q
  48. .nr _Q \\n(dnu
  49. .ev
  50. .br
  51. .ev 2
  52. .sp \\n(esu
  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 \n@>1 .tm --@e: _Q=\\n(_Q _q=\\n(_q nl=\\n(nl |p=\\*(|p
  65. .if !"\\*(|p"" \
  66. \{\
  67. .    rs
  68. .    sp (\\n(_Qu-\\n(.vu)/2u
  69. .    tl """\\*(|p"
  70. .    rt \\n(_qu
  71. .\}
  72. .|e
  73. .sp |\\n(_qu+\\n(_Qu
  74. .sp \\n(esu+\\n(.Lv-1v
  75. .rr _q
  76. .rr _Q
  77. ..
  78. .nr c. \n(_0
  79.