转子抽速公式编程

sxy1119

求大神指教： 下面是螺杆泵的抽速公式，要怎样调用程序才能求出最后的sth
(defun qiu_acos (num);;定义arccos
  (if (= num 0) (atan 1 0)
                (atan (/ (sqrt (- 1 (* num num))) num))))

(defun tan(mm) ;;定义tan
  (/ (sin mm) (cos mm)))

(defun chousu (r r0 r1 R n p / s2 s4 s1 s3 c)
  (setq aaa (/ r0 R))
  (setq bbb (/ r1 R))
  (setq cc (qiu_acos aaa))
  (setq dd (qiu_acos bbb))
  (setq ee (tan cc))
  (setq s2 (* (/ (* R R) 2) (- pi (- (/ pi 3) (sqrt 3)) (- ee cc))))
  (setq s4 (* (/ (* r r) 2) (+ pi (- (/ pi 3) (sqrt 3)) (- ee cc))))
  (setq s1 (* (/ 1 6) (* r0 r0) (expt ee 3)))
  (setq s3 (- (+ (* (+ (* 2 r1 r1) (* R R)) f) (* (* r1 r1) (sin (* 2 f))) (* (/ 1 4) (* R R) (sin (* 4 f)))) (+ (* 3 r1 R (sin f)) (* r1 R (sin (* 3 f))))))
  (setq f dd)
  (setq c (- 1 (/ (- (+ s1 s2 s4) s3) (* pi R R))))
  (setq sth (* 2 n c p pi R R))
  )

(setq qq 30 ww 30 tt1 60 yy 90 uu 3000 ii 35)
(chousu qq ww tt1 yy uu ii)
(princ sth)

sxy1119

求大神啊求大神

USER2128

1、函数chousu定义中不允许有两个R参数(r和R是相同意义的)，可将R改为R3等
2、求s3算式中，f参数无值，当然不能求出S3值，

sxy1119

USER2128 发表于 2016-5-6 18:45
1、函数chousu定义中不允许有两个R参数(r和R是相同意义的)，可将R改为R3等
2、求s3算式中，f参数无值，当然 ...

你好，谢谢你的回复。
程序里面是给f赋值了的
(setq dd (qiu_acos bbb))
(setq f dd)
将R改为R3之后显示参数太少

sxy1119

USER2128 发表于 2016-5-6 18:45
1、函数chousu定义中不允许有两个R参数(r和R是相同意义的)，可将R改为R3等
2、求s3算式中，f参数无值，当然 ...

您好，感谢您的回复
我是给f赋值了的
（setq f dd）
我将R改为R3之后结果还是显示参数太少

USER2128

2. ;;; 求大神指教： 下面是螺杆泵的抽速公式，要怎样调用程序才能求出最后的sth
   
3. (defun qiu_acos (num);;定义arccos
   
4.   (if (= num 0) (atan 1 0)
   
5.                 (atan (/ (sqrt (- 1 (* num num))) num))))
   
6. 
   
7. (defun tan(mm) ;;定义tan
   
8.   (/ (sin mm) (cos mm)))
   
9. 
   
10. (defun chousu (r r0 r1 R3 n p / s2 s4 s1 s3 c)
    
11.   (setq aaa (/ r0 R3))
    
12.   (setq bbb (/ r1 R3))
    
13.   (setq cc (qiu_acos aaa))
    
14.   (setq dd (qiu_acos bbb))
    
15.   (setq ee (tan cc))
    
16.   (setq s2 (* (/ (* R3 R3) 2) (- pi (- (/ pi 3) (sqrt 3)) (- ee cc))))
    
17.   (setq s4 (* (/ (*  r  r) 2) (+ pi (- (/ pi 3) (sqrt 3)) (- ee cc))))
    
18.   (setq s1 (* (/ 1 6) (* r0 r0) (expt ee 3)))
    
19.   (setq f dd)
    
20.   (setq s3 (- (+ (* (+ (* 2 r1 r1) (* R3 R3)) f) (* (* r1 r1) (sin (* 2 f))) (* (/ 1 4) (* R3 R3) (sin (* 4 f)))) (+ (* 3 r1 R3 (sin f)) (* r1 R3 (sin (* 3 f))))))
    
21.   (setq c (- 1 (/ (- (+ s1 s2 s4) s3) (* pi R3 R3))))
    
22.   (setq sth (* 2 n c p pi R3 R3))
    
23.   )
    
24. 
    
25. (setq qq 30 ww 30 tt1 60 yy 90 uu 3000 ii 35)
    
26. (chousu qq ww tt1 yy uu ii)
    
27. (princ sth)
    
28. 
    
29. ;;; (setq f dd)要放到(setq s3 ... 之前
    
30. ;;; 现可以计算其结果= 1.23464e+025 你自己核算一下公式.
    

;;; 求大神指教： 下面是螺杆泵的抽速公式，要怎样调用程序才能求出最后的sth<br /> (defun qiu_acos (num);;定义arccos<br />   (if (= num 0) (atan 1 0)<br />                 (atan (/ (sqrt (- 1 (* num num))) num))))<br /> <br /> (defun tan(mm) ;;定义tan<br />   (/ (sin mm) (cos mm)))<br /> <br /> (defun chousu (r r0 r1 R3 n p / s2 s4 s1 s3 c)<br />   (setq aaa (/ r0 R3))<br />   (setq bbb (/ r1 R3))<br />   (setq cc (qiu_acos aaa))<br />   (setq dd (qiu_acos bbb))<br />   (setq ee (tan cc)) <br />   (setq s2 (* (/ (* R3 R3) 2) (- pi (- (/ pi 3) (sqrt 3)) (- ee cc))))<br />   (setq s4 (* (/ (*  r  r) 2) (+ pi (- (/ pi 3) (sqrt 3)) (- ee cc))))<br />   (setq s1 (* (/ 1 6) (* r0 r0) (expt ee 3)))<br />   (setq f dd)<br />   (setq s3 (- (+ (* (+ (* 2 r1 r1) (* R3 R3)) f) (* (* r1 r1) (sin (* 2 f))) (* (/ 1 4) (* R3 R3) (sin (* 4 f)))) (+ (* 3 r1 R3 (sin f)) (* r1 R3 (sin (* 3 f))))))<br />   (setq c (- 1 (/ (- (+ s1 s2 s4) s3) (* pi R3 R3))))<br />   (setq sth (* 2 n c p pi R3 R3))<br />   )<br /> <br /> (setq qq 30 ww 30 tt1 60 yy 90 uu 3000 ii 35)<br /> (chousu qq ww tt1 yy uu ii)<br /> (princ sth)<br /> <br /> ;;; (setq f dd)要放到(setq s3 ... 之前<br /> ;;; 现可以计算其结果= 1.23464e+025 你自己核算一下公式.<br />

sxy1119

感谢贵人！！！

sxy1119

USER2128 发表于 2016-5-7 17:34

感谢贵人！！！
另外还有个问题，如果已知了sth的值，怎样调用程序求R3呢？