home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD91.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.6 KB  |  57 lines
  1. (defun hdd91()
  2. (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s751")
  4.        (setq d "b")
  5.        (setq d1 0)
  6.        (while (and (/= d "s3") (/= d "S3"))
  7.               (setq d1 (getint "\n╩Σ╚δ╝╞╦π╧ε<1-2>: "))
  8.               (cond ((= d1 1) (jx31))
  9.                     ((= d1 2) (jx32))
  10.               )
  11.               (setq d (getstring "\n╝╠╨°╝╞╦π<c> ╗≥═╦│÷<s3>: "))
  12.        )
  13. (check 'hdd75 "hdd75")
  14. )
  15. (defun jx31()
  16.        (setq kk (getreal "\nkk= "))
  17.        (setq kjx (getreal "\nkjx= "))
  18.        (setq ifh (getreal "\nifh= "))
  19.        (setq kh (getreal "\nkh= "))
  20.        (setq nl (getreal "\nnl= "))
  21.        (setq idzj (/ (* kk (* kjx ifh)) (* kh nl)))
  22.        (setq km (getstring "\n╥¬╨ú╤Θ┴Θ├⌠╢╚┬≡?<Y/N>: "))
  23.        (if (or (= km "y") (= km "Y"))
  24.            (progn (setq a31 (getreal "\nid(2)min= "))
  25.                   (setq idz (/ (* idzj nl) kjx))
  26.        (setq yu (/ a31 idz))
  27.        (if (>= yu 1.5)
  28.            (progn (setq k1 "yes")
  29.            (print k1)
  30.        (setq q "km= ")
  31.        (setq yu (strcat q (rtos yu 2 4)))
  32.        (print yu)
  33.        )
  34.        (print "no")
  35. )
  36.            )
  37.        )
  38.        (setq q "idzj= ")
  39.        (setq idzj (strcat q (rtos idzj 2 4)))
  40.        (print idzj)
  41. )
  42. (defun jx32()
  43.        (setq a32 (getreal "\nid(2)min= "))
  44.        (setq nl (getreal "\nnl= "))
  45.        (setq idzj (getreal "\nidzj= "))
  46.        (if (<= idzj (/ a32 (* nl 2)))
  47.            (progn (setq k1 "yes")
  48.            (print k1)
  49.        )
  50.        (print "no")
  51. )
  52.        (setq q "idzj= ")
  53.        (setq idzj (strcat q (rtos idzj 2 4)))
  54.        (print idzj)
  55. )
  56. (hdd91)
  57.