home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD93.LSP < prev   
Encoding:
Text File  |  1994-01-31  |  4.6 KB  |  148 lines
  1. (defun hdd93()
  2. (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s754")
  4.        (setq g "f")
  5.        (setq g1 0)
  6.        (while (and (/= g "s5") (/= g "S5"))
  7.               (setq g1 (getint "\n╩Σ╚δ╝╞╦π╧ε<1-5>: "))
  8.               (cond ((= g1 1) (jx51))
  9.                     ((= g1 2) (jx52))
  10.                     ((= g1 3) (jx53))
  11.                     ((= g1 4) (jx54))
  12.                     ((= g1 5) (jx55))
  13.               )
  14.               (setq g (getstring "\n╝╠╨°╝╞╦π <c> ╗≥═╦│÷ <s5>: "))
  15. )
  16. (check 'hdd75 "hdd75")
  17. )
  18. (defun jx51()
  19.        (setq kk (getreal "\nkk= "))
  20.        (setq kjx (getreal "\nkjx= "))
  21.        (setq kq (getreal "\nkq= "))
  22.        (setq ied (getreal "\nied= "))
  23.        (setq nl (getreal "\nnl= "))
  24.        (setq idzj (/ (* kk (* kjx (* kq ied))) nl))
  25.               (setq km (getstring "\n╥¬╨ú╤Θ┴Θ├⌠╢╚┬≡?<Y/N>: "))
  26.               (if (or (= km "y") (= km "Y"))
  27.                   (progn (setq a56 (getreal "\nid(2).min= "))
  28.                          (setq idz (/ (* idzj nl) kjx))
  29.                          (setq yu (/ a56 idz))
  30.               (if (>= yu 2)
  31.                   (progn (setq k1 "yes")
  32.                   (print k1)
  33.               (setq q "km= ")
  34.               (setq yu (strcat q (rtos yu 2 4)))
  35.               (print yu)
  36.               )
  37.               (print "no")
  38.                   )
  39.                   )
  40.               )
  41.               (setq q "idzj= ")
  42.               (setq idzj (strcat q (rtos idzj 2 4)))
  43.               (print idzj)
  44. )
  45. (defun jx52()
  46.        (setq i "h")
  47.        (setq i1 0)
  48.        (while (and (/= i "s52") (/= i "S52"))
  49.               (setq i1 (getint "╩Σ╚δ╝╞╦π╧ε<1-4>: "))
  50.               (cond ((= i1 1) (jx521))
  51.                     ((= i1 2) (jx522))
  52.                     ((= i1 3) (jx523))
  53.                     ((= i1 4) (jx524))
  54.               )
  55.               (setq i (getstring "\n╝╠╨°╝╞╦π <c> ╗≥═╦│÷ <s52>: "))
  56.        )
  57. )
  58. (defun jx521()
  59.        (setq kk (getreal "\nkk= "))
  60.        (setq kjx (getreal "\nkjx= "))
  61.        (setq kq (getreal "\nkq= "))
  62.        (setq ied (getreal "\nied= "))
  63.        (setq nl (getreal "\nnl= "))
  64.        (setq idzj (/ (* kk (* kjx (* kq (* ied 0.05)))) nl))
  65.               (setq q "idzj= ")
  66.               (setq idzj (strcat q (rtos idzj 2 4)))
  67.               (print idzj)
  68. )
  69. (defun jx522()
  70.        (setq kk (getreal "\nkk= "))
  71.        (setq kjx (getreal "\nkjx= "))
  72.        (setq ied (getreal "\nied= "))
  73.        (setq nl (getreal "\nnl= "))
  74.        (setq idzj (/ (* kk (* kjx ied)) nl))
  75.               (setq q "idzj= ")
  76.               (setq idzj (strcat q (rtos idzj 2 4)))
  77.               (print idzj)
  78. )
  79. (defun jx523()
  80.        (setq kk (getreal "\nkk= "))
  81.        (setq kjx (getreal "\nkjx= "))
  82.        (setq a533 (getreal "\nidd(3)= "))
  83.        (setq nl (getreal "\nnl= "))
  84.        (setq idzj (/ (* kk (* kjx (* a533 0.05))) nl))
  85.               (setq q "idzj= ")
  86.               (setq idzj (strcat q (rtos idzj 2 4)))
  87.               (print idzj)
  88. )
  89. (defun jx524()
  90.        (setq awo (getreal "\nawo= "))
  91.        (setq idzj (getreal "\nidzj= "))
  92.        (setq wjs (/ awo idzj))
  93.               (setq q "wjs= ")
  94.               (setq wjs (strcat q (rtos wjs 2 4)))
  95.               (print wjs)
  96. )
  97. (defun jx53()
  98.        (setq ied (getreal "\nied= "))
  99.        (setq nl (getreal "\nnl= "))
  100.        (setq idzj (/ (* 1.75 ied) nl))
  101.        (setq km (getstring "\n╥¬╨ú╤Θ┴Θ├⌠╢╚┬≡?<Y/N>: "))
  102.        (if (or (= km "y") (= km "Y"))
  103.            (progn (setq a53 (getreal "\nid(2).min= "))
  104.                   (setq Idz (/ (* Idzj nl) kjx))
  105.                   (setq yu (/ a53 Idz))
  106.        (if (>= yu 2)
  107.            (progn (setq k1 "yes")
  108.            (print k1)
  109.               (setq q "km= ")
  110.               (setq yu (strcat q (rtos yu 2 4)))
  111.               (print yu)
  112.        )
  113.               (print "no")
  114.    )
  115.            )
  116.        )
  117.               (setq q "idzj= ")
  118.               (setq idzj (strcat q (rtos idzj 2 4)))
  119.               (print idzj)
  120. )
  121. (defun jx54()
  122.        (setq kk (getreal "\nkk= "))
  123.        (setq kjx (getreal "\nkjx= "))
  124.        (setq ied (getreal "\nied= "))
  125.        (setq kh (getreal "\nkh= "))
  126.        (setq nl (getreal "\nnl= "))
  127.        (setq idzj (/ (* kk (* kjx ied)) (* kh nl)))
  128.               (setq q "idzj= ")
  129.               (setq idzj (strcat q (rtos idzj 2 4)))
  130.               (print idzj)
  131. )
  132. (defun jx55()
  133.        (setq ic (getreal "\nic = "))
  134.        (setq icd (getreal "\nicd= "))
  135.        (setq idz (getreal "\nidz= "))
  136.         (setq z1 (/ (- ic icd) 1.25))
  137.        (if (<= idz z1)
  138.            (progn (setq k1 "yes")
  139.            (print k1)
  140.        )
  141.               (print "no")
  142. )
  143.        (setq q "(Ic -Icd)/1.25=")
  144.        (setq z (strcat q (rtos z1 2 4)))
  145.        (print z)
  146. )
  147. (hdd93)
  148.