home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD78.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  2.7 KB  |  80 lines
  1. (defun hdd78()
  2.                (setvar "CMDECHO" 0)
  3.               (command "vslide" "\\house1\\sld\\s78")
  4.               (setq a1 (getstring "\n╩Σ╚δ╝╞╦π╧ε<1-2>╗≥╜ß╩°<.>: "))
  5.               (cond ((= a1 "1") (yj1))
  6.                     ((= a1 "2") (check 'hdd85 "hdd85"))
  7.                     ((= a1 ".") (progn (command "redraw") (print "end")))
  8.                                                                    
  9.               )
  10. )
  11. (defun yj1()
  12.        (setq b "a")
  13.        (setq b1 0)
  14.        (while (and (/= b "s1") (/= b "S1"))
  15.               (setq b1 (getint "╩Σ╚δ╝╞╦π╧ε<1-4>: "))
  16.               (cond ((= b1 1) (yj11))
  17.                     ((= b1 2) (yj12))
  18.                     ((= b1 3) (yj13))
  19.                     ((= b1 4) (wd))
  20.               )
  21.               (setq b (getstring "\n╝╠╨°╝╞╦π <c>╗≥═╦│÷ <s1>: "))
  22.        )
  23. (hdd78)
  24. )
  25. (defun yj11()
  26.        (setq p20 (getreal "\n╩Σ╚δ╡╝╧▀╬┬╢╚╬¬20╢╚╩▒╡─╡τ╫Φ┬╩P20="))
  27.        (setq a (getreal "\n╩Σ╚δ╡τ╫Θ╬┬╢╚╧╡╩²a= "))
  28.        (setq cat (getreal "\n╩Σ╚δcat= "))
  29.        (setq n1 (* a (- cat 20)))
  30.        (setq pcta (* p20 (+ n1 1)))
  31.        (setq cj (getreal "\n╩Σ╚δ╜╩╚δ╧╡╩²cj= "))
  32.        (setq n2 (getreal "\n╩Σ╚δ╧▀┬╖│ñ╢╚L= "))
  33.        (setq n3 (getreal "\n╩Σ╚δ╡╝╧▀╜╪├µA= "))
  34.        (setq Rcat (/ (* pcta (* cj n2)) a))
  35.        (setq n50 Rcat)
  36.        (setq q "Rcat=")
  37.        (setq Rcat (strcat q (rtos Rcat 2 4)))
  38.        (print Rcat)
  39. )
  40. (defun yj12()
  41.        (setq p20 (getreal "\n╩Σ╚δ╡╝╧▀╬┬╢╚╬¬20╢╚╡─╡τ╫Φ┬╩p20= "))
  42.        (setq a (getreal "\n╩Σ╚δ╡τ╫Φ╬┬╢╚╧╡╩²a= "))
  43.        (setq cat (getreal "\n╩Σ╚δcat= "))
  44.        (setq n1 (* a (- cat 20)))
  45.        (setq pcta (* p20 (+ n1 1)))
  46.        (setq n2 (getreal "\n╩Σ╚δ╢ε╢¿╡τ╤╣u= "))
  47.        (setq f (getreal "\n╩Σ╚δ╣Ñ┬╩╥≥╩²╜╟f= "))
  48.        (setq n3 (* (sqrt (/ pcta (* n2 f))) 5030))
  49.        (setq r (getreal "\n╩Σ╚δ╡τ╡╝┬╩r= "))
  50.        (setq n4 (/ (* r r) (* n3 (- (* 2 r) n3))))
  51.        (setq kjl (getreal "\n╩Σ╚δkjl= "))
  52.        (setq rj (* n4 (* kjl n50)))
  53.        (setq q "rj=")
  54.        (setq rj (strcat q (rtos rj 2 4)))
  55.        (print rj)
  56. )
  57. (defun yj13()
  58.        (setq f (getreal "\n╩Σ╚δ╣Ñ┬╩╥≥╦╪╜╟f= "))
  59.        (setq dj (getreal "\n╩Σ╚δdj= "))
  60.        (setq r (getreal "\n╩Σ╚δr= "))
  61.        (setq n1 (log (/ dj r)))
  62.        (setq L (log (exp 0.25)))
  63.        (setq L1 (* 2 (+ n1 L)))
  64.        (setq lo (* L1 (expt 10 -4)))
  65.        (setq xo (* 2 (* pi (* f lo))))
  66.         (setq q "xo=")
  67.         (setq xo (strcat q (rtos xo 2 4)))
  68.        (print xo)
  69. )
  70. (defun wd()
  71.        (setq n1 (getreal "\n╩Σ╚δdrt.ctac= "))
  72.        (setq kp (getreal "\n╩Σ╚δkp= "))
  73.        (setq cata (getreal "\n╩Σ╚δcata= "))
  74.        (setq cat (+ cata (* n1 (* kp kp))))
  75.        (setq Q "cat= ")
  76.        (setq cat (strcat Q (rtos cat 2 4)))
  77.        (print cat)
  78. )
  79. (hdd78)
  80.