home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY08.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  305 b   |  12 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq pt1 (osnap (getpoint "╩Σ╚δ╧▀╡─╡┌╥╗╡π: ") "NEA"))
  4. (setq pt2 (osnap (getpoint "╩Σ╚δ╧▀╡─╡┌╢■╡π: ") "NEA"))
  5. (setq n (getint "╩Σ╚δ╕∙╩²: "))
  6. (setq x (- (car pt2) (car pt1)))
  7. (setq m (+ n 2))
  8. (setq q (/ x (+ n 1)))
  9. (command "array" p1 "" "r" 1 m q)
  10. )
  11. (hj01)
  12.