请高手帮忙修改一个小LISP程式

heroblue99

2 K% }1 o1 S' N: j- k: O$ F0 u
6 L$ d- e0 \% i$ _+ }刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
( e" U* g: H! M. M- C-----------------------------------------
) O% A+ Q& e9 R(defun tan (x) (/(sinx) (cosx)))
# L' w) f* |3 y, A8 Y(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
/ ]& [  R6 r( |8 z8 ^3 Y# |5 K(defun inv (x) (- (tan x) x))
0 G, Y3 X" u; o- s+ ?+ C/ h6 O(defun C:tqgd () (command "osnap" "none")
;输入齿轮参数
& F: P' p; x# K! Z: u! E" A( F$ I(setq m (getreal "模数 = ?"))
! _1 `$ ]9 [* l9 P(setq ao (getreal "压力角 = ?"))
! `) q7 G# N0 ~2 C# F% M: A* v, k(setq aos (/ (* ao pi) 180))
(setq Z (getreal "齿数 = ?"))
(setq K (getreal "变位系数 = ?"))
(setq Rh (/ (* m z) 2.0))
(setq Ro (* Rh (cos aos)))
(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
(if (= Re "")
5 X: L& w0 _/ d$ o$ d$ c, j(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
(setq Ri (read Ri)))
;输入剃前滚刀参数
" ^* Y: z& m% T' x(setq lt (getreal "留剃余量 = ?"))
(setq st (- sh lt))
8 u; D+ f* \3 O" p7 U(setq hg (getreal "沉割高度 = ?"))
(setq dds (getreal "沉割深度 = ?"))
) N4 m! ?1 }- [' T(setq hd (getreal "倒角高度 = ?"))
, b, H: s- k/ g( p; x" L) s(setq dj (getreal "倒角角度 = ?"))
2 c* s- W, b1 E! V5 _. A(setq djs (/ (* dj pi) 180))
;计算齿条坐标点共二十二点
(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
3 D3 a' v0 k9 K0 z* [! v(setq p12 (list (+ (- (/ st 2) (* hg (tan aos))) (/ dds (cos aos))) (+ ri (- (* 1.35 m) hg))))
+ i7 r' n# B. I6 }4 n(setq p13 (list (+ (- (/ st 2) (* hg (tan aos))) (/ dds (cos aos))) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
7 ^, Y2 P% X' M5 P/ K2 {) l7 b# |8 |(setq p14 (list (+ (- (/ st 2) (* hg (tan aos))) (+ rh (* m k) hd)))
(setq p15 (list (+ (- (/ st 2) (* hg (tan aos)) (* (- m hd) (tan djs))) re))
3 b7 S* ]  B$ H8 }, }& ^(setq p16 (list (- (* pi m) (car p15)) re))
(setq p17 (list (- (* pi m) (car p14)) (+ rh (* m k) hd)))
(setq p18 (list (- (* pi m) (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
7 ^7 F8 g; i! _" n(setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
(setq p20 (list (- (* pi m) (car p11)) ri))
: Q4 Y; u: T) V(setq p21 (list (+ (* pi m) (car p11)) ri))
(setq p10 (list (- (car p11)) ri))
' M; m: o" ~8 z$ X(setq p9 (list (- (car p12)) (+ ri (- (* 1.35 m) hg))))
(setq p8 (list (- (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
(setq p7 (list (- (car p14)) (+ rh (* m k) hd)))
(setq p6 (list (- (car p15)) re))
& m1 x6 G: W8 I# m8 A1 f  X) U(setq p5 (list (- (car p15)) (* pi m)) re))
% {% x5 S# ?9 @7 S(setq p4 (list (- (car p14)) (* pi m)) (+ rh (* m k) hd)))
(setq p3 (list (- (car p13)) (* pi m)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
(setq p2 (list (- (car p12)) (* pi m)) (+ ri (- (* 1.35 m) hg))))
(setq p1 (list (- (car p11)) (* pi m)) ri))
. K1 I; y1 @8 g/ @8 I$ @: B6 d: p(setq p0 (list (- (car p10)) (* pi m)) ri))
(command "pline" p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 "")
(command "block" "zt" (list 0 rh) "c" (list (- (car p0) 2) (- ri 2))
(list (+ (car p21) 2)(+ re 2))"")
(setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
, [! ]- _7 X. e% a9 S(setq Fo (- F (inv aos)))
(setq fh (+ Fo (inv aos)))
7 D$ ]6 q& a! o7 E5 D/ f(setq ax (/ (* - A pi) 180))
;自变量压力角的初值
8 b! F* B2 {& W(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
7 t1 D' x9 R( ~( D1 ]! f;压力角自变量也是插入转角
9 {' i1 j" t  ?( t$ o& c(setq rx (rh (cos as)))
(setq fx ((tan ax) ax))
(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
8 X) Z' Y6 V' S0 O: w: |- T$ X(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
4 x/ ?  P+ R) d) _- U+ A+ K1 v9 G& h；按自变量循环插入齿条块
))
" g) @. M7 M2 x& V9 b+ A: r* n
---------------------------------------------------------------------
: K' G3 @' e/ F/ T9 v[检查文字 TQGD.LSP 正在加载...]
.....
; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
& h5 f; O- Y4 _- E( ^' Y3 S( l$ }.
( i6 ~, H7 M) h% R; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
.
) {/ i+ y0 g' g6 }; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
.
5 b' m0 z/ {* r; `6 G5 x; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
& o8 W( ?7 G) Q$ R4 W1 Y" ^; 检查完成.

SunVei

先试这个

defun tan (x) (/(sinx) (cosx)))
==>
(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
9 \& l2 o7 e9 \) u' O- u p15
(list
   (+
     (-
       (/ st 2)
# V+ C- p5 ~) L       (* hg (tan aos))
       (*
          (- m hd)
          (tan djs)
        )
' d  F% [  Z  }      )
0 c: q1 y+ n( @, x4 E     re
) }! h* |% k( e7 A    )
  )
( N. Q0 [, J/ G2 _1 ~: B看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。