home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD1.LSP < prev    next >
Encoding:
Text File  |  1988-11-22  |  1.5 KB  |  51 lines
  1. (defun hdd1 ()
  2. (setvar "cmdecho" 0)
  3. (command "vslide" "\\house1\\sld\\s73")
  4.        (setq d "c")
  5.        (setq d1 0)
  6.        (while (and (/= d "s2") (/= d "S2"))
  7.               (setq d1 (getint "enter select of calculat <1-3>: "))
  8.               (cond ((= d1 1) (jdz21))
  9.                     ((= d1 2) (jdz22))
  10.                     ((= d1 3) (jdz23))
  11.              )
  12.              (setq d (getstring "continue <C> or end <S2>: "))
  13.       )
  14. (check 'hdd73 "hdd73")
  15. )
  16. (defun jdz21 ()
  17.        (setq a1 (getreal "p= "))
  18.        (setq a2 (getreal "l= "))
  19.        (setq a3 (getreal "d= "))
  20.        (setq a4 (* (/ a1 (* 2 (* pi a2))) (log (/ (* 4 a2) a3))))
  21.        (setq q "r= ")
  22.        (setq r (strcat q (rtos a4 2 4)))
  23.        (print r)
  24. )
  25. (defun jdz22 ()
  26.        (setq a1 (getreal "p= "))
  27.        (setq a2 (getreal "l= "))
  28.        (setq a3 (getreal "h= "))
  29.        (setq a4 (getreal "d= "))
  30.        (setq a5 (getreal "A= "))
  31.        (setq a6 (+ a5 (log (/ (* a2 a2) (* a3 a4)))))
  32.        (setq a7 (* (/ a1 (* 2 (* pi a2))) a6))
  33.        (setq q "r= ")
  34.        (setq r (strcat q (rtos a7 2 4)))
  35.        (print r)
  36. )
  37. (defun jdz23 ()
  38.        (setq a1 (getreal "p= "))
  39.        (setq a2 (getreal "l= "))
  40.        (setq a3 (getreal "S= "))
  41.        (setq a4 (getreal "h= "))
  42.        (setq a5 (getreal "d= "))
  43.        (setq a6 (* (/ (sqrt pi) 4) (/ a1 (sqrt a3))))
  44.        (setq a7 (* (/ a1 (* 2 (* pi a2))) (log (/ (* a2 a2) (* a4 (* a5 (* 1.6 (expt 10 4))))))))
  45.        (setq a8 (+ a6 a7))
  46.        (setq q "r= ")
  47.        (setq r (strcat q (rtos a8 2 4)))
  48.        (print r)
  49. )
  50. (hdd1)
  51.