home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD85.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  4.1 KB  |  126 lines
  1. (defun hdd85()
  2.        (setvar "CMDECHO" 0)
  3.        (setq l (open "hu8.tst" "w"))
  4.               (setq c1 (getstring "\n╩Σ╚δ╝╞╦π╧ε<1-4> ╗≥╜ß╩°<.>: "))
  5.               (print c1 l)
  6.               (close l)
  7.               (cond ((= c1 "1") (yj21))
  8.                     ((= c1 "2") (check 'hdd86 "hdd86"))
  9.                     ((= c1 "3") (yj23))
  10.                     ((= c1 "4") (check 'hdd86 "hdd86"))
  11.                     ((= c1 ".") (check 'hdd78 "hdd78"))
  12.               )
  13. )
  14. (defun yj21()
  15.        (setq d "c")
  16.        (setq d1 0)
  17.        (while (and (/= d "s21") (/= d "S21"))
  18.               (setq d1 (getint "╩Σ╚δ╝╞╦π╧ε<1-5>: "))
  19.               (cond ((= d1 1) (yj211))
  20.                     ((= d1 2) (yj212))
  21.                     ((= d1 3) (yj213))
  22.                     ((= d1 4) (yj214))
  23.                     ((= d1 5) (yj215))
  24.                   )
  25.               (setq d (getstring "\n╝╠╨°╝╞╦π<c> ╗≥═╦│÷<s21>: "))
  26.        )
  27. (hdd85)
  28. )
  29. (defun yj211()
  30.        (setq r0 (getreal "\n╩Σ╚δ╧▀┬╖╡Ñ╬╗│ñ╢╚╡─╡τ╫Φr0= "))
  31.        (setq n1 (getreal "\n╩Σ╚δ╣Ñ┬╩╥≥╩²cosfi= "))
  32.        (setq x0 (getreal "\n╩Σ╚δ╧▀┬╖╡Ñ╬╗│ñ╢╚╡─╕╨┐╣x0= "))
  33.        (setq n2 (getreal "\n╩Σ╚δsinfi= "))
  34.        (setq ue (getreal "\n╩Σ╚δ╢ε╢¿╡τ╤╣ue= "))
  35.        (setq il (getreal "\n╩Σ╚δ╡τ┴≈╛╪il= "))
  36.        (setq n3 (+ (* r0 n1) (* x0 n2)))
  37.        (setq drtu% (/ (* 1.732 (* n3 il)) (* ue 10)))
  38.        (setq n50 drtu%)
  39.        (setq Q "drtu%= ")
  40.        (setq drtu% (strcat Q (rtos drtu% 2 4)))
  41.        (print drtu%)
  42. )
  43. (defun yj212()
  44.        (setq g (getstring "\nyj211 valution?<y/n>: "))
  45.        (cond ((or (= g "y") (= g "Y")) (yj211))
  46.        )
  47.            (setq n (getint "enter the number of calculat: "))
  48.            (setq n51 0)
  49.            (setq n51 (* n50 n))
  50.        (setq Q "drtu%= ")
  51.        (setq drtu% (strcat Q (rtos n51 2 4)))
  52.            (print drtu%)
  53. )
  54. (defun yj213()
  55.        (setq r0 (getreal "\n╩Σ╚δ╧▀┬╖╡Ñ╬╗│ñ╢╚╡─╡τ╫Φr0= "))
  56.        (setq x0 (getreal "\n╩Σ╚δ╧▀┬╖╡Ñ╬╗│ñ╢╚╡─╕╨┐╣x0= "))
  57.        (setq fgfi (getreal "\n╩Σ╚δtgfi= "))
  58.        (setq pl (getreal "\n╩Σ╚δ╣Ñ┬╩╛╪pl= "))
  59.        (setq ue (getreal "\n╩Σ╚δ╢ε╢¿╡τ╤╣ue= "))
  60.        (setq drtu (/ (* (* (+ r0 (* x0 fgfi)) pl) 2) (* (* ue ue) 10)))
  61.        (setq n21 dtru)
  62.        (setq Q "drtu= ")
  63.        (setq drt (strcat Q (rtos drtu 2 4)))
  64.        (print drt)
  65. )
  66. (defun yj214()
  67.        (setq g1 (getstring "yj213 valution?<y/n>: "))
  68.        (cond ((or (= g1 "y") (= g1 "Y")) (yj213))
  69.        )
  70.            (setq n (getint "enter the number of calculat: "))
  71.            (setq n51 0)
  72.            (setq n51 (* n50 n))
  73.        (setq Q "drtu%= ")
  74.        (setq drtu% (strcat Q (rtos n51 2 4)))
  75.        (print drtu%)
  76. )
  77. (defun yj215()
  78.        (setq pl (getreal "\n╩Σ╚δ╣Ñ┬╩╛╪pl= "))
  79.        (setq c (getreal "\n╩Σ╚δ╣Ñ┬╩╥≥╩²╬¬1╩▒╡─╝╞╦π╧╡╩²C= "))
  80.        (setq s (getreal "\n╩Σ╚δ╧▀╨╛▒Ω│╞╜╪├µS= "))
  81.        (setq n (getint "enter number of valution: "))
  82.               (setq n50 (* drtu pl n))
  83.        (setq drtu% (/ n50 (* c s)))
  84.        (setq Q "drtu%= ")
  85.        (setq drtu% (strcat Q (rtos drtu% 2 4)))
  86.        (print drtu%)
  87. )
  88. (defun yj23()
  89.        (setq h "f")
  90.        (setq h1 0)
  91.        (while (and (/= h "s23") (/= h "S23"))
  92.               (setq h1 (getint "╩Σ╚δ╝╞╦π╧ε <1-3>: "))
  93.               (cond ((= h1 1) (yj231))
  94.                     ((= h1 2) (yj232))
  95.                     ((= h1 3) (yj233))
  96.               )
  97.               (setq h (getstring "\n╝╠╨°╝╞╦π<c> ╗≥═╦│÷<s23>: "))
  98.         )
  99. (hdd85)
  100. )
  101. (defun yj231()
  102.        (yj211)
  103.        (setq drtu% (* 1.5 n50))
  104.        (setq Q "drtu%= ")
  105.        (setq drtu% (strcat Q (rtos drtu% 2 4)))
  106.        (print drtu%)
  107. )
  108. (defun yj232()
  109.        (yj213)
  110.        (setq drtu% (* 2.25 n50))
  111.        (setq Q "drtu%= ")
  112.        (setq drtu% (strcat Q (rtos drtu% 2 4)))
  113.        (print drtu%)
  114. )
  115. (defun yj233()
  116.        (setq p (getreal "\n╩Σ╚δ╙╨╣Ñ╣Ñ┬╩p= "))
  117.        (setq l (getreal "\n╩Σ╚δ╧▀┬╖│ñ╢╚l= "))
  118.        (setq c (getreal "\n╩Σ╚δ╣Ñ┬╩╥≥╩²╬¬1╩▒╡─╝╞╦π╧╡╩²c= "))
  119.        (setq s (getreal "\n╩Σ╚δ╧▀╨╛▒Ω│╞╜╪├µs= "))
  120.        (setq drtu% (/ (* p l) (* c s)))
  121.         (setq q "drtu%= ")
  122.         (setq drtu% (strcat q (rtos drtu% 2 4)))
  123.        (print drtu%)
  124. )
  125. (hdd85)
  126.