home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD71.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  7.1 KB  |  222 lines
  1. (defun hdd71()
  2. (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s71")
  4.        (setq a "b")
  5.        (setq a1 0)
  6.        (while (and (/= a "e") (/= a "E"))
  7.               (setq a1 (getint "╩Σ╚δ╝╞╦π╧ε<1-7>: "))
  8.               (cond ((= a1 1) (sb1))
  9.                     ((= a1 2) (sb2))
  10.                     ((= a1 3) (sb3))
  11.                     ((= a1 4) (sb4))
  12.                     ((= a1 5) (sb5))
  13.                     ((= a1 6) (sb6))
  14.                     ((= a1 7) (sb7))
  15.               )
  16.               (setq a (getstring "\n╝╠╨°╔Φ▒╕╤í╘±╧ε<C>╗≥╜ß╩°<E>: "))
  17.         )
  18. (command "redraw")
  19. (print "end")
  20. )
  21. (defun sb1()
  22.        (setq a2 (getstring "\n╝╞╦π╢»╬╚╢¿<D1>╗≥╝╞╦π╚╚╬╚╢¿<T1>: "))
  23.        (if (or (= a2 "d1") (= a2 "D1"))
  24.            (progn (setq a3 (getreal "\nImax= "))
  25.                   (setq a4 (getreal "\nimax= "))
  26.                   (setq a5 (getreal "\nich= "))
  27.                   (setq Ich (getreal "\nIch= "))
  28.               (if (and (<= Ich a3) (<= a5 a4))
  29.                   (setq k1 "yes")
  30.                   (setq k1 "no")
  31.               )
  32.            )
  33.     (progn (setq a6 (getreal "\nIt= "))
  34.            (setq a7 (getreal "\ntj= "))
  35.            (setq a8 (getreal "\nt= "))
  36.            (setq Iw (getreal "\nIw= "))
  37.            (setq a9 (/ a8 a7))
  38.            (setq a10 (* (sqrt a9) a6))
  39.            (if (<= Iw a10)
  40.                (setq k1 "yes")
  41.                (setq k1 "no")
  42.            )
  43.     )
  44.        )
  45.     (print k1)
  46. )
  47. (defun sb2()
  48.        (setq a10 (getstring "\n╝╞╦π╢»╬╚╢¿<D2>╗≥╝╞╦π╚╚╬╚╢¿<T2>: "))
  49.        (if (or (= a10 "d2") (= a10 "D2"))
  50.            (progn (setq a11 (getreal "\nich= "))
  51.                   (setq a12 (getreal "\nidw= "))
  52.            (if (<= a11 a12)
  53.                (setq k1 "yes")
  54.                (setq k1 "no")
  55.            )
  56.            )
  57.     (progn (setq a13 (getreal "\nIw= "))
  58.            (setq a14 (getreal "\nIt= "))
  59.            (setq a15 (getreal "\nt= "))
  60.            (setq a16 (getreal "\ntj= "))
  61.            (if (<= a13 (* (/ (sqrt a15) (sqrt a16)) a14))
  62.                (setq k1 "yes")
  63.                (setq k1 "no")
  64.            )
  65.      )
  66.         )
  67.       (print k1)
  68. )
  69. (defun sb3()
  70.        (setq a17 (getstring "\n╝╞╦π╢»╬╚╢¿<D3>╗≥╝╞╦π╚╚╬╚╢¿<T3>: "))
  71.        (cond ((or (= a17 "d3") (= a17 "D3")) (sb31))
  72.              ((or (= a17 "t3") (= a17 "T3")) (sb32))
  73.        )
  74. )
  75. (defun sb31()
  76.        (setq a19 0)
  77.        (while (and (/= a19 "s31") (/= a19 "S31"))
  78.        (setq a18 (getint "╩Σ╚δ╝╞╦π╧ε<1-4>: "))
  79.               (cond ((= a18 1) (sb311))
  80.                     ((= a18 2) (sb312))
  81.                     ((= a18 3) (sb313))
  82.                     ((= a18 4) (sb314))
  83.               )
  84.               (setq a19 (getstring "\n╝╠╨°╝╞╦π╧ε<C>╗≥═╦│÷╝╞╦π<S31>: "))
  85.        )
  86. )
  87. (defun sb311()
  88.        (setq a20 (getreal "\nich= "))
  89.        (setq a21 (getreal "\nkdw= "))
  90.        (setq a22 (getreal "\nIel= "))
  91.        (if (<= a20 (* 1.41 (* a21 (* a22 0.001))))
  92.                    (setq k1 "yes")
  93.                    (setq k1 "no")
  94.        )
  95.        (print k1)
  96. )
  97. (defun sb312()
  98.        (setq a20 (getreal "\nich= "))
  99.        (setq a21 (getreal "\na= "))
  100.        (setq a22 (getreal "\nf'= "))
  101.        (setq a23 (getreal "\nl= "))
  102.        (if (<= a20 (* 10.65 (sqrt (* a21 (/ a22 a23)))))
  103.            (setq k1 "yes")
  104.            (setq k1 "no")
  105.        )
  106.        (print k1)
  107. )
  108. (defun sb313()
  109.        (setq a20 (getreal "\nich= "))
  110.        (setq a21 (getreal "\na= "))
  111.        (setq a22 (getreal "\nl= "))
  112.        (setq a23 (getreal "\nkdw= "))
  113.        (setq a24 (getreal "\nIel= "))
  114.        (setq a25 (sqrt (/ (* a21 50) (* 40 a22))))
  115.        (if (<= a20 (* 1.41 (* a23 (* a24 (* a25 0.001)))))
  116.            (setq k1 "yes")
  117.            (setq k1 "no")
  118.        )
  119.        (print k1)
  120. )
  121. (defun sb314()
  122.        (setq a20 (getreal "\na= "))
  123.        (setq a21 (getreal "\nfm= "))
  124.        (setq a23 (getreal "\nlm= "))
  125.        (setq a24 (getreal "\nich= "))
  126.        (if (<= a24 (* 7.55 (sqrt (* a20 (/ a21 a23)))))
  127.                    (setq k1 "yes")
  128.                    (setq k1 "no")
  129.        )
  130.         (print k1)
  131. )
  132. (defun sb32()
  133.        (setq a20 (getreal "\nkt= "))
  134.        (setq a21 (getreal "\nIe1= "))
  135.        (setq a22 (getreal "\ntj= "))
  136.        (setq a23 (getreal "\nIw= "))
  137.        (setq a22 (sqrt a22))
  138.        (if (<= a23 (/ (* a20 (* a21 0.001)) (sqrt a22)))
  139.                    (setq k1 "yes")
  140.                    (setq k1 "no")
  141.        )
  142.       (print k1)
  143. )
  144. (defun sb4()
  145.        (setq a20 (getreal "\nk= "))
  146.        (setq a21 (getreal "\nLc= "))
  147.        (setq a23 (getreal "\na= "))
  148.        (setq a24 (getreal "\nich= "))
  149.        (setq a25 (/ (* 1.76 (* a20 (* a21 (* 0.01 (* a24 a24))))) a23))
  150.        (setq a20 (getreal "\nfph= "))
  151.        (if (<= a25 (* a20 0.6))
  152.            (setq k1 "yes")
  153.            (setq k1 "no")
  154.        )
  155.         (print k1)
  156. )
  157. (defun sb5()
  158.        (setq a20 (getstring "\n╝╞╦π╢»╬╚╢¿<D5>╗≥╝╞╦π╚╚╬╚╢¿<T5>: "))
  159.        (if (or (= a20 "d5") (= a20 "D5"))
  160.            (progn (setq a21 (getreal "\nfph= "))
  161.                   (setq a22 (getreal "\nlt1= "))
  162.                   (setq a23 (getreal "\nlt2= "))
  163.                   (setq a24 (getreal "\na= "))
  164.                   (setq a25 (getreal "\nich= "))
  165.                   (setq a26 (+ a22 a23))
  166.                   (setq a25 (/ (* 0.88 (* a26 (* 0.01 (* a25 a25)))) a24))
  167.                 (if (<= a25 (* 0.6 a21))
  168.                     (setq k1 "yes")
  169.                     (setq k1 "no")
  170.                 )
  171.            )
  172.     (progn (setq a21 (getreal "\nIt= "))
  173.            (setq a22 (getreal "\nt= "))
  174.            (setq a23 (getreal "\ntj= "))
  175.            (setq a24 (getreal "\nIw= "))
  176.            (if (<= a24 (* a21 (sqrt (/ a22 a23))))
  177.                (setq k1 "yes")
  178.                (setq k1 "no")
  179.            )
  180.       )
  181.       )
  182.       (print k1)
  183. )
  184. (defun sb6()
  185.        (setq a2 (getstring "\n╝╞╦π╢»╬╚╢¿<D6>╗≥╝╞╦π╚╚╬╚╢¿<T6>: "))
  186.        (if (or (= a2 "d6") (= a2 "D6"))
  187.            (progn (setq a20 (getreal "\na= "))
  188.                   (setq a21 (getreal "\nw= "))
  189.                   (setq a22 (getreal "\nlc= "))
  190.                   (setq a23 (getreal "\nich= "))
  191.                   (setq a22 (* a22 a22))
  192.                   (setq a23 (* a23 a23))
  193.                   (setq a24 (/ (* 1.76 (* a22 (* a23 0.001))) (* a20 a21)))
  194.                   (setq a25 (getreal "\ndrty= "))
  195.                   (if (<= a24 a25)
  196.                       (setq k1 "yes")
  197.                       (setq k1 "no")
  198.                   )
  199.             (print k1)
  200.            )
  201.      (progn (setq a26 (getstring "\n╝╞╦π┬┴─╕╧▀<L> ╗≥╝╞╦π═¡─╕╧▀<T>: "))
  202.                   (setq a27 (getreal "\niw= "))
  203.                   (setq a28 (getreal "\ntj= "))
  204.                   (setq a29 (getreal "\nkjf= "))
  205. (cond ((or (= a26 "l") (= a26 "L")) (setq a30 (/ (* a27 (* 1000 (sqrt (* a28 a29)))) 95)))
  206. ((or (= a26 "t") (= a26 "T")) (setq a30 (/ (* a27 (* 1000 (sqrt (* a28 a29)))) 165)))
  207.             )
  208.       (print a30)
  209.      )
  210. )
  211. )
  212. (defun sb7()
  213.        (setq a20 (getreal "\nIw= "))
  214.        (setq a21 (getreal "\nc= "))
  215.        (setq a22 (getreal "\ntj= "))
  216.        (setq Smin (/ (* a20 (* (sqrt a22) 1000)) a21))
  217.        (setq q "smin= ")
  218.        (setq smin (strcat q (rtos smin 2 4)))
  219.        (print smin)
  220. )
  221. (hdd71)
  222.