home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 2.img / HD / HDD89.LSP < prev    next >
Encoding:
Text File  |  1994-01-31  |  3.2 KB  |  109 lines
  1. (defun hdd89 ()
  2. (setvar "CMDECHO" 0)
  3. (command "vslide" "\\house1\\sld\\s704")
  4.       (setq c1 0)
  5.              (setq c1 (getstring "\n╩Σ╚δ╝╞╦π╧ε<1-4>╗≥═╦│÷╝╞╦π<.>: "))
  6.              (cond ((= c1 "1") (dl1))
  7.                    ((= c1 "3") (dl3))
  8.                    ((= c1 "4") (dl4))
  9.                    ((= c1 ".") (dd))
  10.                    ((= c1 "2") (check 'hd3 "hd3"))
  11.              )
  12. )
  13. (defun dl1()
  14.        (setq y2 "c")
  15.        (while (and (/= y2 "S11") (/= y2 "s11"))
  16.               (setq c2 (getint "\n╩Σ╚δ╝╞╦π╧ε <11,12>: "))
  17.               (cond ((= c2 11) (udl1))
  18.                      ((= c2 12) (ndl1))
  19.               )
  20.               (setq y2 (getstring "\n╝╠╨°╝╞╦π<C>╗≥═╦│÷╝╞╦π<S11>: "))
  21.        )
  22. (hdd89)
  23. )
  24. (defun udl1()
  25.        (setq Up (getreal "\nUp= "))
  26.        (setq Rjs (getreal "\nRjs= "))
  27.        (setq Xjs (getreal "\nXjs= "))
  28.        (setq Iz (SQRT (+ (* Rjs Rjs) (* Xjs Xjs))))
  29.        (setq Iz (* Iz (SQRT 3)))
  30.        (setq Iz (/ Up Iz))
  31.        (setq Q "Iz= ")
  32.        (setq Iz (strcat Q (rtos Iz 2 4)))
  33.        (print Iz)
  34. )
  35. (defun ndl1()
  36.        (setq Xnjs (getreal "\nXnjs= "))
  37.        (setq Ij (getreal "\nIj= "))
  38.        (setq Sj (getreal "\nSj= "))
  39.        (setq Inz (/ 1 Xnjs))
  40.        (setq Iz (/ Ij Xnjs))
  41.        (setq Sd (/ Sj Xnjs))
  42.        (setq Q "Inz= ")
  43.        (setq Inz (strcat Q (rtos Inz 2 4)))
  44.        (print Inz)
  45.        (setq Q "Iz= ")
  46.        (setq Iz (strcat Q (rtos Iz 2 4)))
  47.        (print Iz)
  48.        (setq Q "Sd= ")
  49.        (setq Sd (strcat Q (rtos Sd 2 4)))
  50.        (print Sd)
  51. )
  52. (defun dl3 ()
  53.        (setq I2 (getreal "\nI''= "))
  54.        (setq Xc (getreal "\nX = "))
  55.        (setq Rc (getreal "\nR = "))
  56.        (setq Tf (/ Xc (* 314 Rc)))
  57.        (setq Tf (- 0.0 (/ 0.01 Tf)))
  58.        (setq Kch (expt Tf))
  59.        (setq Kch (1+ kch))
  60.        (setq sich (* Kch (* I2 (sqrt 2))))
  61.        (setq Ich (sqrt (1+ (* 2 (* (- Kch 1) (- Kch 1))))))
  62.        (setq Ich (* I2 Ich))
  63.        (setq Q "Ich= ")
  64.        (setq Ich (strcat Q (rtos Ich 2 4)))
  65.        (print Ich)
  66.        (setq Q "sich= ")
  67.        (setq sich (strcat Q (rtos sich 2 4)))
  68.        (print sich)
  69. (hdd89)
  70. )
  71. (defun dl4 ()
  72.        (setq n (getint "Motor number: "))
  73.        (setq vmtp 0) (setq vmti 0)
  74.        (setq vmtk 0)
  75.        (repeat n
  76.               (setq Ped (getreal "\nPed= "))
  77.               (setq Ked (getreal "\nKqd= "))
  78.               (setq Ied (getreal "\nIed= "))
  79.               (setq vmtp (+ vmtp (* Ked Ped)))
  80.               (setq vmtk (+ vmtk Ped))
  81.               (setq vmti (+ vmti Ied))
  82.        )
  83.        (setq Kqd (/ Vmtp Vmtk))
  84.        (setq Kchd (getreal "\nKch.d= "))
  85.        (setq ichd (* 0.9 (* 1.14 (* Kchd (* Kqd Vmti)))))
  86.        (setq Id (* 0.9 (* Kqd Vmti)))
  87.        (setq Ix (getreal "\nIx''(KA)= "))
  88.        (setq Kchx (getreal "\nKchx= "))
  89.        (setq a (+ Ix Id))
  90.        (setq a (* a a))
  91.        (setq b (+ (* Ix (- Kchx 1)) (* Id (- Kchd 1))))
  92.        (setq b (* 2 (* b b)))
  93.        (setq Ich (sqrt (+ a b)))
  94.        (setq Q "Ich= ")
  95.        (setq Ich (strcat Q (rtos Ich 2 4)))
  96.        (print Ich)
  97.        (setq Q "Id= ")
  98.        (setq Id (strcat Q (rtos Id 2 4)))
  99.        (print Id)
  100.        (setq Q "ichd= ")
  101.        (setq ichd (strcat Q (rtos ichd 2 4)))
  102.        (print ichd)
  103. (hdd89)
  104. )
  105. (defun dd()
  106. (check 'hdd70 "hdd70")
  107. )
  108. (hdd89)
  109.