home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD72.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  4.2 KB  |  147 lines
  1. (defun hdd72()
  2. (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s72")
  4.        (setq a "b")
  5.        (setq a1 0)
  6.        (while (and (/= a "E") (/= a "e"))
  7.               (setq a1 (getint "╩Σ╚δ╤í╘±╧ε<1-2>: "))
  8.               (cond ((= a1 1) (fj1))
  9.                     ((= a1 2) (fj2))
  10.               )
  11.               (setq a (getstring "╝╠╨°╝╞╦π <C> ╗≥╜ß╩° <E>: "))
  12.        )
  13. (command "redraw")
  14. (print "end")
  15. )
  16. (defun fj1()
  17.        (setq b "a")
  18.        (setq b1 0)
  19.        (while (and (/= b "s1") (/= b "S1"))
  20.               (setq b1 (getint "╩Σ╚δ╤í╘±╧ε<1-3>: "))
  21.               (cond ((= b1 1) (fj11))
  22.                     ((= b1 2) (fj12))
  23.                     ((= b1 3) (fj13))
  24.               )
  25.               (setq b (getstring "╝╠╨°╝╞╦π <C> ╗≥═╦│÷ <S1>: "))
  26.               )
  27. )
  28. (defun fj11()
  29.        (setq c "b")
  30.        (setq c1 0)
  31.        (while (and (/= c "s11") (/= c "S11"))
  32.               (setq c1 (getint "╩Σ╚δ╤í╘±╧╧ε <1-2>: "))
  33.               (cond ((= c1 1) (fj111))
  34.                     ((= c1 2) (fj112))
  35.               )
  36.               (setq c (getstring "╝╠╨°╝╞╦π <C> ╗≥═╦│÷<S11>: "))
  37.               )
  38. )
  39. (defun fj111()
  40.        (setq h (getreal "h= "))
  41.        (setq r (* h 1.5))
  42.        (setq q "r=")
  43.        (setq r (strcat q (rtos r 2 4)))
  44.        (print r)
  45. )
  46. (defun fj112()
  47.        (setq h (getreal "h= "))
  48.        (setq hx (getreal "hx= "))
  49.        (setq p (getreal "p= "))
  50.        (cond ((>= hx (/ h 2)) (setq rx (* (- h hx) p))))
  51.        (cond ((< hx (/ h 2)) (setq rx (* (- (* h 1.5) (* hx 2)) p))))
  52.             (setq q "rx=")
  53.             (setq rx (strcat q (rtos rx 2 4)))
  54.            (print rx)
  55. )
  56. (defun fj12()
  57.        (setq d "c")
  58.        (setq d1 0)
  59.        (while (and (/= d "s12") (/= d "S12"))
  60.               (setq d1 (getint "╩Σ╚δ╤í╘±╧ε <1-2>: "))
  61.               (cond ((= d1 1) (fj121))
  62.                     ((= d1 2) (fj122))
  63.               )
  64.               (setq d (getstring "╝╠╨°╝╞╦π <C>╗≥═╦│÷<S12>: "))
  65.        )
  66. )
  67. (defun fj121()
  68.        (setq h (getreal "h= "))
  69.        (setq p (getreal "p= "))
  70.        (setq d (getreal "d= "))
  71.        (setq ho (- h (/ d (* 7 p))))
  72.        (setq ht ho)
  73.        (setq q "ho=")
  74.        (setq ho (strcat q (rtos ho 2 4)))
  75.        (print ho)
  76. )
  77. (defun fj122()
  78.        (setq hx (getreal "hx= "))
  79.        (setq bx (* 1.5 (- ht hx)))
  80.        (setq q "bx=")
  81.        (setq bx (strcat q (rtos bx 2 4)))
  82.        (print bx)
  83. )
  84. (defun fj13()
  85.        (setq h2 (getreal "h2= "))
  86.        (setq d (getreal "d= "))
  87.        (setq p (getreal "p= "))
  88.        (setq ho1 (- h2 (/ d (* 7 p))))
  89.        (setq q "ho1=")
  90.        (setq ho1 (strcat q (rtos ho1 2 4)))
  91.        (print ho1)
  92. )
  93. (defun fj2()
  94.        (setq f "d")
  95.        (setq f1 0)
  96.        (while (and (/= f "s2") (/= f "S2"))
  97.               (setq f1 (getint "╩Σ╚δ╤í╘±╧╧ε <1-2>: "))
  98.               (cond ((= f1 1) (fj21))
  99.                     ((= f1 2) (fj22))
  100.               )
  101.               (setq f (getstring "╝╠╨°╝╞╦π <C> ╗≥═╦│÷<S2>: "))
  102.        )
  103. )
  104. (defun fj21()
  105.        (setq h "f")
  106.        (setq h1 0)
  107.        (while (and (/= h "s21") (/= h "S21"))
  108.               (setq h1 (getint "╩Σ╚δ╤í╘±╧ε <211> ╗≥ <212>: "))
  109.               (cond ((= h1 211) (fj211))
  110.                     ((= h1 212) (fj212))
  111.               )
  112.               (setq h (getstring "╝╠╨°╝╞╦π <C> ╗≥═╦│÷<S21>: "))
  113.        )
  114. )
  115. (defun fj211()
  116.        (setq h (getreal "h= "))
  117.        (setq hx (getreal "hx= "))
  118.        (setq p (getreal "p= "))
  119.        (cond ((>= hx (/ h 2)) (setq rx (* (- h hx) (* p 0.47)))))
  120.        (cond ((< hx (/ h 2)) (setq rx (* p (- h (* hx 1.53))))))
  121.        (setq q "rx=")
  122.        (setq rx (strcat q (rtos rx 2 4)))
  123.        (print rx)
  124. )
  125. (defun fj212()
  126.        (setq h (getreal "h= "))
  127.        (setq hx (getreal "hx= "))
  128.        (setq p (getreal "p= "))
  129.            (setq a11 (* 1.2 h))
  130.            (setq a12 (* 1.7 hx))
  131.        (cond ((>= hx (/ h 2)) (setq bx (* (- h hx) (* 0.7 p)))))
  132.        (cond ((< hx (/ h 2)) (setq bx (* p (- a11 a12)))))
  133.        (setq q "bx=")
  134.        (setq bx (strcat q (rtos bx 2 4)))
  135.        (print bx)
  136. )
  137. (defun fj22()
  138.        (setq h (getreal "h= "))
  139.        (setq p (getreal "p= "))
  140.        (setq d (getreal "d= "))
  141.        (setq ho2 (- h (/ d (* 4 p))))
  142.        (setq q "ho2=")
  143.        (setq ho2 (strcat q (rtos ho2 2 4)))
  144.        (print ho2)
  145. )
  146. (hdd72)
  147.