home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD90.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  3.7 KB  |  127 lines
  1. (defun hdd90()
  2. (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s752")
  4.        (setq c 0)
  5.        (setq c1 0)
  6.        (while (and (/= c "s2") (/= c "S2"))
  7.               (setq c1 (getint "\n╩Σ╚δ╝╞╦π╧ε <1-4>: "))
  8.               (cond ((= c1 1) (jx21))
  9.                     ((= c1 2) (jx22))
  10.                     ((= c1 3) (jx23))
  11.                     ((= c1 4) (jx24))
  12.              )
  13.        (setq c (getstring "\n╝╠╨°╝╞╦π <c> ╗≥═╦│÷<s2>: "))
  14.        )
  15. (check 'hdd75 "hdd75")
  16. )
  17. (defun jx21()
  18.        (setq k1 0)
  19.        (setq kk (getreal "\nkk= "))
  20.        (setq kjx (getreal "\nkjx= "))
  21.        (setq igxl (getreal "\nig.xl= "))
  22.        (setq ud (getreal "\nud= "))
  23.        (setq zll (getreal "\nzll= "))
  24.        (setq kq (getreal "\nkq= "))
  25.        (setq seb (getreal "\nseb= "))
  26.        (setq sd  (getreal "\nsd = "))
  27.        (setq kh (getreal "\nkh = "))
  28.        (setq nl (getreal "\nnl = "))
  29.        (setq a26 (/ seb (* kq sd)))
  30.        (setq a27 (+ ud zll a26))
  31.        (setq igh (/ igxl a27))
  32.        (setq idzj (/ (* kk (* kjx igh)) (* kh nl)))
  33.        (setq km (getstring "\n╥¬╨ú╤Θ┴Θ├⌠╢╚┬≡?<y/n>: "))
  34.                   (setq a21 (getreal "\nid2(2).min= "))
  35.        (if (or (= km "y") (= km "Y"))
  36.             (progn (setq idz (/ (* idzj nl) kjx))
  37.                   (setq yu (/ a21 idz))
  38.        (if (>= yu 1.5)
  39.        (progn (setq k1 "yes")
  40.        (setq q "km= ")
  41.        (setq yu (strcat q (rtos yu 2 4)))
  42.        (print yu)
  43.        (print k1)
  44.        )
  45.        (print "no")
  46.        )
  47.      )
  48.        )
  49.        (setq q "idzj= ")
  50.        (setq idzj (strcat q (rtos idzj 2 4)))
  51.        (print idzj)
  52. )
  53. (defun jx22()
  54.        (setq k1 0)
  55.        (setq kk (getreal "\nkk= "))
  56.        (setq kjx (getreal "\nkjx= "))
  57.        (setq nl (getreal "\nnl= "))
  58.        (setq a22 (getreal "\nid2(3).max= "))
  59.        (setq idzj (/ (* kk (* kjx a22)) nl))
  60.        (setq km (getstring "\n╥¬╨ú╤Θ┴Θ├⌠╢╚┬≡?<Y/N>: "))
  61.        (if (or (= km "y") (= km "Y"))
  62.            (progn (setq a23 (getreal "\nid1(2).min= "))
  63.                   (setq idz (/ (* idzj nl) kjx))
  64.                   (setq yu (/ a23 idz))
  65.        (if (>= yu 2)
  66.            (progn (setq k1 "yes")
  67.            (print k1)
  68.        (setq q "yu= ")
  69.        (setq yu (strcat q (rtos yu 2 4)))
  70.        (print yu)
  71.        )
  72.        (print "no")
  73.             )
  74.            )
  75.        )
  76.        (setq q "idzj= ")
  77.        (setq idzj (strcat q (rtos idzj 2 4)))
  78.        (print idzj)
  79. )
  80. (defun jx23()
  81.        (setq k1 0)
  82.        (setq kk (getreal "\nkk= "))
  83.        (setq kjx (getreal "\nkjx= "))
  84.        (setq a24 (getreal "\nid3(3).max= "))
  85.        (setq nl (getreal "\nnl= "))
  86.        (setq idzj (/ (* kk (* kjx a24)) nl))
  87.        (setq km (getstring "\n╥¬╨ú╤Θ┴Θ├⌠╢╚┬≡?<Y/N>: "))
  88.        (if (or (= km "y") (= km "Y"))
  89.            (progn (setq a25 (getreal "\nid1(2).min= "))
  90.                   (setq idz (/ (* idz nl) kjx))
  91.                   (setq yu (/ a25 idz))
  92.        (if (>= yu 2)
  93.            (progn (setq k1 "yes")
  94.            (print k1)
  95.        (setq q "km= ")
  96.        (setq yu (strcat q (rtos yu 2 4)))
  97.        (print yu)
  98.        )
  99.        (print "no")
  100.         )
  101.            )
  102.        )
  103.        (setq q "idzj= ")
  104.        (setq idzj (strcat q (rtos idzj 2 4)))
  105.        (print idzj)
  106. )
  107. (defun jx24()
  108.        (setq k1 0)
  109.        (setq kk (getreal "\nkk= "))
  110.        (setq icx (getreal "\nicx= "))
  111.        (setq kdz (getreal "\nkdz= "))
  112.        (setq ic (getreal "\nic= "))
  113.        (setq z (* kk icx))
  114.        (setq z1 (/ (- ic icx) 1.25))
  115.    (if (and (>= kdz z) (<= kdz z1))
  116.        (progn (setq k1 "yes")
  117.        (print k1)
  118.     )
  119.        (print "no")
  120. )
  121.         (setq q "kx.Icx=") (setq q1 "(Ic -Icx)/1.25=")
  122.         (setq qz (strcat q (rtos  z 2 4)))
  123.         (setq qz1 (strcat q1 (rtos z1 2 4)))
  124.         (print qz) (print qz1)
  125. )
  126. (hdd90)
  127.