home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD88.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  2.6 KB  |  85 lines
  1. (defun hdd88 ()
  2.  (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s703")
  4.        (setq y1 "c")
  5.        (while (and (/= y1 "E") (/= y1 "e"))
  6.               (setq c1 (getint "\n╩Σ╚δ╝╞╦π╧ε<1,2>: "))
  7.               (cond ((= c1 1) (dld1))
  8.                     ((= c1 2) (dld2)))
  9.               (setq y1 (getstring "\n╝╠╨°╝╞╦π<C>╗≥═╦│÷╝╞╦π<E>: "))
  10.        )
  11. (check 'hdd70 "hdd70")
  12. )
  13. (defun dld1()
  14.        (setq y2 "c")
  15.        (while (and (/= y2 "s1") (/= y2 "S1"))
  16.               (setq c2 (getint "╩Σ╚δ╤í╘±╧ε<11,12>: "))
  17.               (cond ((= c2 11) (tri))
  18.                     ((= c2 12) (bin)))
  19.               (setq y2 (getstring "\n╝╠╨°<C>╗≥═╦│÷┤╦╧ε╝╞╦π<S1>: "))
  20.        )
  21. )
  22. (defun tri()
  23.        (setq Up (getreal "\nUp= "))
  24.        (setq Rc (getreal "\nR= "))
  25.        (setq Xc (getreal "\nX= "))
  26.        (if (= Rc nil) (setq Zc (getreal "\nZ= ")))
  27.        (if (/= Rc nil) (progn (setq Zc (sqrt
  28.                              (+ (* Rc Rc)
  29.                                 (* Xc Xc)
  30.                              )))))
  31.        (setq Id3 (/ Up (* Zc (sqrt 3))))
  32.         (setq Q "Id3= ")
  33.         (setq Id31 (strcat Q (rtos Id3 2 4)))
  34.         (print Id31)
  35. )
  36. (defun bin()
  37.        (cond ((= Id3 nil) (tri)))
  38.        (setq Id2 (* 0.866 Id3))
  39.         (setq Q1 "Id2= ")
  40.         (setq Id2 (strcat Q1 (rtos Id2 2 4)))
  41.         (print Id2)
  42. )
  43. (defun dld2()
  44.        (setq y3 "c")
  45.        (while (and (/= y3 "S2") (/= y3 "s2"))
  46.               (setq c3 (getint "╩Σ╚δ╝╞╦π╧ε<21,22>: "))
  47.               (if (= c3 21) (dz))
  48.               (if (= c3 22) (pz))
  49.               (setq y3 (getstring "\n╝╠╨°<C>╗≥═╦│÷┤╦╧ε╝╞╦π<S2>: "))
  50.        )
  51. )
  52. (defun dz()
  53.        (setq Up (getreal "\nUp= "))
  54.        (setq R1c (getreal "\nR1= "))
  55.        (setq R2c (getreal "\nR2= "))
  56.        (setq R3c (getreal "\nR3= "))
  57.        (setq R0c (getreal "\nR0= "))
  58.        (setq X1c (getreal "\nX1= "))
  59.        (setq X2c (getreal "\nX2= "))
  60.        (setq X3c (getreal "\nX3c= "))
  61.        (setq X0c (getreal "\nX0= "))
  62.        (setq R3 (/ (+ R1c R2c R3c) 3))
  63.        (setq X3 (/ (+ X1c X2c X3c) 3))
  64.        (setq R4 (sqrt (+ (* R3c R3c) (* X3c X3c))))
  65.        (setq R5 (/ Up (sqrt 3)))
  66.        (setq Id1 (/ R5 R4))
  67.        (setq Q "Id1= ")
  68.        (setq Id1 (strcat Q (rtos Id1 2 4)))
  69.        (print Id1)
  70. )
  71. (defun pz ()
  72.           (setq up (getreal "\nup="))
  73.           (setq rxl (getreal "\nrxl="))
  74.           (setq xxl (getreal "\nxxl="))
  75.           (setq rxl (* rxl rxl))
  76.           (setq xxl (* xxl xxl))
  77.           (setq jx1 (sqrt (+ rxl xxl)))
  78.           (setq jx2 (/ up 1.732 ))
  79.           (setq id (/ jx1 jx2))
  80.           (setq Q "id= ")
  81.           (setq id (strcat Q (rtos id 2 4)))
  82.           (print id)
  83. )
  84. (hdd88)
  85.