home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD92.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  2.3 KB  |  81 lines
  1. (defun hdd92()
  2. (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s753")
  4.        (setq f "d")
  5.        (setq f1 0)
  6.        (while (and (/= f "s4") (/= f "S4"))
  7.               (setq f1 (getint "\n╩Σ╚δ╝╞╦π╧ε<1-4>: "))
  8.               (cond ((= f1 1) (jx41))
  9.                     ((= f1 2) (jx42))
  10.                     ((= f1 3) (jx43))
  11.                     ((= f1 4) (jx44))
  12.               )
  13.               (setq f (getstring "\n╝╠╨°╝╞╦π<c> ╗≥═╦│÷ <s4>: "))
  14.         )
  15. (check 'hdd75 "hdd75")
  16. )
  17. (defun jx41()
  18.        (setq kk (getreal "\nkk= "))
  19.        (setq kjx (getreal "\nkjx= "))
  20.        (setq iec (getreal "\niec= "))
  21.        (setq nl (getreal "\nnl= "))
  22.        (setq idzj (/ (* kk (* kjx iec)) nl))
  23.        (setq km (getstring "\n╥¬╨ú╤Θ┴Θ├⌠╢╚┬≡?<Y/N>: "))
  24.        (if (or (= km "y") (= km "Y"))
  25.            (progn (setq a41 (getreal "\nid(2).min= "))
  26.                   (setq idz (/ (* idzj nl) kjx))
  27.                   (setq yu (/ a41 idz))
  28.        (if (>= yu 1.5)
  29.            (progn (setq k1 "yes")
  30.            (print k1)
  31.              (setq q "km= ")
  32.              (setq yu (strcat q (rtos yu 2 4)))
  33.              (print yu)
  34.            )
  35.         (print "no")
  36.        )
  37.            )
  38.        )
  39.              (setq q "idzj= ")
  40.              (setq idzj (strcat q (rtos idzj 2 4)))
  41.              (print idzj)
  42. )
  43. (defun jx42()
  44.        (setq kk (getreal "\nkk= "))
  45.        (setq ibp (getreal "\nibp= "))
  46.        (setq idzj (getreal "\nidzj= "))
  47.        (if (>= idzj (* kk ibp))
  48.            (progn (setq k1 "yes")
  49.            (print k1)
  50.            )
  51.         (print "no")
  52.        )
  53.              (setq q "idzj= ")
  54.              (setq idzj (strcat q (rtos idzj 2 4)))
  55.              (print idzj)
  56. )
  57. (defun jx43()
  58.        (setq Idzj (getreal "\nidzj= "))
  59.        (setq kjx (getreal "\nkjx= "))
  60.        (setq Ic (getreal "\nIcgma= "))
  61.        (setq nl (getreal "\nnl= "))
  62.        (setq Idz (/ (* Idzj nl) kjx))
  63.        (if (<= Idzj (/ Ic 1.5))
  64.            (progn (setq k1 "yes")
  65.            (print k1)
  66.        )
  67.         (print "no")
  68.              )
  69.              (setq q "idzj= ")
  70.              (setq idzj (strcat q (rtos idzj 2 4)))
  71.              (print idzj)
  72. )
  73. (defun jx44()
  74.        (setq ue2 (getreal "\nue2= "))
  75.        (setq udzj (* ue2 1.1))
  76.        (setq q "udzj= ")
  77.        (setq udzj (strcat q (rtos udzj 2 4)))
  78.        (print udzj)
  79. )
  80. (hdd92)
  81.