home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD73.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  4.4 KB  |  150 lines
  1. (defun hdd73()
  2. (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s73")
  4.        (setq b "c")
  5.        (while (and (/= b "e") (/= b "E") (/= b "2"))
  6.               (setq b (getstring "\n╩Σ╚δ╝╞╦π╧ε <1-2> ╗≥╜ß╩° <E>: "))
  7.               (cond ((= b "1") (jdz1))
  8.                     ((= b "2") (check 'hdd1 "hdd1"))
  9.               )
  10.        )
  11. (command "redraw")
  12. (print "\nend")
  13. )
  14. (defun jdz1 ()
  15.        (setq c "b")
  16.        (setq c1 0)
  17.        (while (and (/= c "s1") (/= c "S1"))
  18.               (setq c1 (getint "\n╩Σ╚δ╝╞╦π╧ε <1-5>: "))
  19.                        (cond ((= c1 1) (jdz11))
  20.                              ((= c1 2) (jdz12))
  21.                              ((= c1 3) (jdz13))
  22.                              ((= c1 4) (jdz14))
  23.                              ((= c1 5) (jdz15))
  24.                        )
  25.                        (setq c (getstring "\n╝╠╨°╝╞╦π <C> ╗≥═╦│÷<S1>: "))
  26.      )
  27. (hdd73)
  28. )
  29. (defun jdz11 ()
  30.        (setq d "c")
  31.        (setq d1 0)
  32.        (while (and (/= d "s11") (/= d "S11"))
  33.               (setq d1 (getint "\n╩Σ╚δ╝╞╦π╧ε <1-2>: "))
  34.               (cond ((= d1 1) (jdz111))
  35.                     ((= d1 2) (jdz112))
  36.               )
  37.               (setq d (getstring "\n╝╠╨°╝╞╦π <C> ╗≥═╦│÷<S11>: "))
  38.        )
  39. )
  40. (defun jdz111 ()
  41.        (setq a1 (getreal "p= "))
  42.        (setq a2 (getreal "p1= "))
  43.        (setq a3 (getreal "k1= "))
  44.        (setq a4 (getreal "k2= "))
  45.        (setq a5 (getreal "d= "))
  46.        (setq a6 (getreal "d1= "))
  47.        (setq a7 (getreal "l= "))
  48.        (setq a1 (/ a2 a3))
  49.        (setq a2 (/ (- a1 a2) a4))
  50.        (setq a3 (/ (* 4 a7) a5))
  51.        (setq a4 (/ (* 4 a7) a6))
  52.        (setq a5 (/ 1 (* a7 (* 2 pi))))
  53.        (setq a6 (* a1 (log a3)))
  54.        (setq a7 (* a2 (log a4)))
  55.        (setq a8 (+ a6 a7))
  56.        (setq a9 (* a5 a8))
  57.        (setq q "r= ")
  58.        (setq r (strcat q (rtos a9 2 4)))
  59.        (print r)
  60. )
  61. (defun jdz112 ()
  62. (setq A1 (getreal "l= "))
  63. (setq A2 (getreal "l1= "))
  64. (setq A3 (getreal "d= "))
  65. (setq A4 (getreal "d1= "))
  66. (setq A5 (getreal "p= "))
  67. (setq A6 (getreal "p1= "))
  68. (setq A7 (getreal "p2= "))
  69. (setq A8 (getreal "p3= "))
  70. (setq a9 (log (/ (* a1 4) a3)))
  71. (setq a10 (log (/ (* a1 4) a4)))
  72. (setq a11 (- a5 a6))
  73. (setq a12 (- a8 a7))
  74. (setq a13 (- a1 a2))
  75. (setq a14 (/ 1 (* 2 (* pi a2))))
  76. (setq a15 (+ (* a6 a9) (* a11 a10)))
  77. (setq a16 (* a14 a15))
  78. (setq a17 (+ (* a7 a9) (* a12 a10)))
  79. (setq a18 (/ 1 (* 2 (* pi a13))))
  80. (setq a19 (* a18 a17))
  81. (setq a20 (/ (* a16 a19) (+ a16 a19)))
  82. (setq q "r= ")
  83. (setq r (strcat q (rtos a16 2 4)))
  84. (print r)
  85. (setq q "r1= ")
  86. (setq r1 (strcat q (rtos a19 2 4)))
  87. (print r1)
  88. (setq q "r2= ")
  89. (setq r2 (strcat q (rtos a20 2 4)))
  90. (print r2)
  91. )
  92. (defun jdz12 ()
  93.        (setq a1 (getreal "l= "))
  94.        (setq a2 (getreal "p= "))
  95.        (setq a3 (getreal "p1= "))
  96.        (setq a4 (getreal "d= "))
  97.        (setq a5 (getreal "d1= "))
  98.        (setq a6 (getreal "h= "))
  99.        (setq a7 (log (/ a5 a4)))
  100.        (setq a8 (log (/ (* a1 a1) (* a5 a6))))
  101.        (setq a9 (/ a3 (* 2 (* pi a1))))
  102.        (setq a10 (/ a2 (* 2 (* pi a1))))
  103.        (setq a11 (+ (* a9 a7) (* a10 a8)))
  104.        (setq q "r= ")
  105.        (setq r (strcat q (rtos a11 2 4)))
  106.        (print r)
  107. )
  108. (defun jdz13 ()
  109.        (setq a1 (getreal "l= "))
  110.        (setq a2 (getreal "d= "))
  111.        (setq a3 (getreal "d1= "))
  112.        (setq a4 (getreal "p= "))
  113.        (setq a5 (getreal "p1= "))
  114.        (setq a6 (getreal "h= "))
  115.        (setq a7 (getreal "a= "))
  116.        (setq a8 (log (/ a3 a2)))
  117.        (setq a9 (log (/ (* a1 a1) (* a3 a6))))
  118.        (setq a10 (+ a9 a7))
  119.        (setq a11 (* a10 (/ a4 (* 2 (* pi a1)))))
  120.        (setq a12 (/ (* a5 a8) (* 2 (* pi a1))))
  121.        (setq a13 (+ a11 a12))
  122.        (setq q "r= ")
  123.        (setq r (strcat q (rtos a13 2 4)))
  124.        (print r)
  125. )
  126. (defun jdz14 ()
  127.        (setq a1 (getreal "a= "))
  128.        (setq a2 (getreal "kn= "))
  129.        (setq a3 (getreal "p= "))
  130.        (setq a4 (getreal "dp= "))
  131.        (setq a5 (/ (* a1 (* a2 a3)) (* 4 a4)))
  132.        (setq a6 (getreal "r1= "))
  133.        (setq a7 (+ a6 a5))
  134.        (setq a8 (/ (* a6 a5) (* 0.9 a7)))
  135.        (setq q "r= ")
  136.        (setq r (strcat q (rtos a8 2 4)))
  137.        (print r)
  138. )
  139. (defun jdz15 ()
  140.        (setq a1 (getreal "dp= "))
  141.        (setq a2 (getreal "kn "))
  142.        (setq a4 (getreal "a="))
  143.        (setq a5 (getreal "p="))
  144.        (setq a3 (/ (* a5 a4 a2) (* a4 a1)))
  145.        (setq q "r2= ")
  146.        (setq r2 (strcat q (rtos a3 2 4)))
  147.        (print r2)
  148. )
  149. (hdd73)
  150.