home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD75.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  3.9 KB  |  127 lines
  1. (defun hdd75()
  2. (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s75")
  4.               (setq A1 (getstring "\n╩Σ╚δ╝╞╦π╧ε <1-6> ╗≥╜ß╩° <E>: "))
  5.               (cond ((= A1 "1") (jx1))
  6.                     ((= A1 "2") (check 'hdd91 "hdd91"))
  7.                     ((= A1 "3") (check 'hdd90 "hdd90"))
  8.                     ((= A1 "4") (check 'hdd92 "hdd92"))
  9.                     ((= A1 "5") (check 'hdd93 "hdd93"))
  10.                     ((= A1 "6") (check 'hdd84 "hdd84"))
  11.                     ((or (= A1 "e") (= A1 "E")) (print "\nend"))
  12.  
  13.               )
  14.  (command "REDRAW")
  15. )
  16. (defun jx1()
  17.               (command "vslide" "\\house1\\sld\\s750")
  18.        (setq B "c")
  19.        (setq B1 0)
  20.        (while (and (/= B "s1") (/= B "S1"))
  21.               (setq B1 (getint "\n╩Σ╚δ╝╞╦π╧ε <1-4>: "))
  22.               (cond ((= B1 1) (jx11))
  23.                     ((= B1 2) (jx12))
  24.                     ((= B1 3) (jx13))
  25.                     ((= B1 4) (jx14))
  26.               )
  27.               (setq B (getstring "\n╝╠╨°╝╞╦π <C> ╗≥═╦│÷ <s1>: "))
  28.        )
  29. (hdd75)
  30. )
  31. (defun jx11()
  32.        (setq Kk (getreal "\nKk= "))
  33.        (setq Kjx (getreal "\nKjx= "))
  34.        (setq Kgh (getreal "\nKgh= "))
  35.        (setq Kh (getreal "\nKh= "))
  36.        (setq Nl (getreal "\nNl= "))
  37.        (setq Ieb (getreal "\nIeb= "))
  38.        (setq Idzj (/ (* Kk (* Kjx (* Kgh Ieb))) (* Kh Nl)))
  39.        (setq K (getstring "\n╥¬╨ú╤Θ┴Θ├⌠╢╚┬≡?<Y/N>: "))
  40.    (if (or (= K "y") (= K "Y"))
  41.         (progn (setq Id2 (getreal "\nId2(2).min= "))
  42.                  (setq Idz (/ (* Idzj nl) Kjx))
  43.                  (setq yu (/ Id2 Idz))
  44.            (if (<= yu 1.5)
  45.                (progn (setq k1 "yes") 
  46.                      (print k1)
  47.                  (setq q "km= ")
  48.                  (setq yu (strcat q (rtos yu 2 4)))
  49.                  (print yu)
  50.                 )
  51.                (print "no")
  52.            )
  53.         )
  54.     )
  55.                  (setq q "Idzj= ")
  56.                  (setq Idzj (strcat q (rtos Idzj 2 4)))
  57.                  (print Idzj)
  58. )
  59. (defun jx12()
  60.        (setq kk (getreal "\nkk= "))
  61.        (setq kjx (getreal "\nkjx= "))
  62.        (setq nl (getreal "\nnl= "))
  63.        (setq a12 (getreal "\nIdz(3).max= "))
  64.        (setq Idzj (/ (* kk (* kjx a12)) nl))
  65.        (setq km (getstring "\n╥¬╨º╤Θ┴Θ├⌠╢╚┬≡?<y/n>= "))
  66.        (if (or (= km "y") (= km "Y"))
  67.            (progn (setq a13 (getreal "\nId1(2).max=  "))
  68.                   (setq Idz (/ (* Idzj nl) kjx))
  69.                   (setq yu (/ a13 Idz))
  70.        (if (>= yu 2.0)
  71.            (progn (setq k1 "yes")
  72.            (print k1)
  73.        (setq q "km= ")
  74.        (setq yu (strcat q (rtos yu 2 4)))
  75.        (print yu)
  76.        )
  77.                (print "no")
  78.        )
  79.            )
  80.        )
  81.        (setq q "Idzj= ")
  82.        (setq Idzj (strcat q (rtos Idzj 2 4)))
  83.        (print Idzj)
  84. )
  85. (defun jx13()
  86.        (setq A21 (getreal "\nidz(1).min= "))
  87.        (setq idzj (getreal "\nidzj= "))
  88.       (setq kjx (getreal "\nkjx= "))
  89.       (setq nl (getreal "\nnl= "))
  90.        (setq idz (/ (* idzj nl) kjx))
  91.        (setq yu (/ A21 idz))
  92.        (if (>= yu 2)
  93.            (progn (setq k1 "yes")
  94.            (print k1)
  95.            (jX14)
  96.        ))
  97.        (setq q "idzj= ")
  98.        (setq idzj (strcat q (rtos idzj 2 4)))
  99.        (print idzj)
  100. )
  101. (defun jx14()
  102.        (setq kk (getreal "\nkk= "))
  103.        (setq ieb (getreal "\nieb= "))
  104.        (setq nl (getreal "\nnl= "))
  105.        (setq idzj (/ (* kk (* ieb 0.25)) nl))
  106.        (setq km (getstring "\n╥¬╨ú╤Θ┴Θ├⌠┬≡?<y/n>= "))
  107.        (if (or (= km "y") (= km "Y"))
  108.            (progn (setq a14 (getreal "\nidz2(1).min= "))
  109.                   (setq idz (/ (* idzj nl) kjx))
  110.                   (setq yu (/ a14 idz))
  111.         (if (>= yu 2)
  112.          (progn (setq k1 "yes")
  113.             (print k1)
  114.        (setq q "km= ")
  115.        (setq yu (strcat q (rtos yu 2 4)))
  116.        (print yu)
  117.         )
  118.                (print "no")
  119.         )
  120.            )
  121.         )
  122.        (setq q "idzj= ")
  123.        (setq idzj (strcat q (rtos idzj 2 4)))
  124.        (print idzj)
  125. )
  126. (hdd75)
  127.