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

heroblue99

) z: I; A; t* ~刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
-----------------------------------------
! q; b0 G+ X9 ^& r(defun tan (x) (/(sinx) (cosx)))
(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
. o; s# m3 e- V0 W0 \(defun inv (x) (- (tan x) x))
) M" ^+ F- [2 _+ V5 H) b$ s(defun C:tqgd () (command "osnap" "none")
;输入齿轮参数
(setq m (getreal "模数 = ?"))
. j# M% t  C; q% @5 g9 c# j(setq ao (getreal "压力角 = ?"))
; T) l5 N4 \8 d- j% j! v/ e(setq aos (/ (* ao pi) 180))
7 |1 U" ]0 c( S6 Y; a; ?(setq Z (getreal "齿数 = ?"))
* R2 d/ l7 Q# C& |1 ]( x& H(setq K (getreal "变位系数 = ?"))
1 |3 E5 {+ s9 a9 h# X(setq Rh (/ (* m z) 2.0))
7 T9 Z2 N+ U+ }- E' G  X; Y9 E6 h, r(setq Ro (* Rh (cos aos)))
, g8 P- b, G- ^9 P(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
(if (= Re "")
9 e# B& H  b# `  E(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
2 D) d! Z3 `7 U" y(setq Ri (read Ri)))
5 N. _' J. t+ K2 x+ J;输入剃前滚刀参数
(setq lt (getreal "留剃余量 = ?"))
(setq st (- sh lt))
  a- T2 L( y2 `6 }! \4 Z: m(setq hg (getreal "沉割高度 = ?"))
" i7 n4 Q' ?  ~9 e(setq dds (getreal "沉割深度 = ?"))
8 p* P, R" @% D( [(setq hd (getreal "倒角高度 = ?"))
(setq dj (getreal "倒角角度 = ?"))
- C  j7 A7 f- Q) G( i(setq djs (/ (* dj pi) 180))
* B3 C' h3 Q& a! G- l, c;计算齿条坐标点共二十二点
2 _5 z" B8 a% m/ i  S$ d6 d(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
(setq p12 (list (+ (- (/ st 2) (* hg (tan aos))) (/ dds (cos aos))) (+ ri (- (* 1.35 m) hg))))
(setq p13 (list (+ (- (/ st 2) (* hg (tan aos))) (/ dds (cos aos))) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
8 g" w. `7 t. ]# L* Q(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))
0 Z! }8 G  _( ^6 w/ I* U(setq p16 (list (- (* pi m) (car p15)) re))
( i% x$ W: t8 j! J(setq p17 (list (- (* pi m) (car p14)) (+ rh (* m k) hd)))
2 n1 ^% G+ H( t9 K(setq p18 (list (- (* pi m) (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
; ~7 q2 O6 [% K) H' E# v. E7 j(setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
6 u4 J, b' s* N: _(setq p20 (list (- (* pi m) (car p11)) ri))
! Y7 J0 q' k( w- `( O7 Q- K; s1 ^(setq p21 (list (+ (* pi m) (car p11)) ri))
1 q* j( S. l+ F# ^, v, e1 U(setq p10 (list (- (car p11)) ri))
8 I. `9 o1 G/ m4 }(setq p9 (list (- (car p12)) (+ ri (- (* 1.35 m) hg))))
(setq p8 (list (- (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
9 J5 g$ W) C& |& _$ V. h(setq p7 (list (- (car p14)) (+ rh (* m k) hd)))
% `  t0 c. z+ Q. y# ?(setq p6 (list (- (car p15)) re))
1 T! X) ^* t; G6 N4 m5 Q+ h(setq p5 (list (- (car p15)) (* pi m)) re))
(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))
# ~6 C1 ~3 }! C5 _3 ?(setq p0 (list (- (car p10)) (* pi m)) ri))
4 C7 q% e2 e' ?- ?- ^+ B, q9 J8 r(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))
8 d  g* }: I2 Q2 ^(list (+ (car p21) 2)(+ re 2))"")
8 L& }0 _! G$ a5 m. ](setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
7 r: Y7 c- b! u1 p+ c) a" K(setq Fo (- F (inv aos)))
(setq fh (+ Fo (inv aos)))
: t: X- c( L) U& ?5 L( [- C' h(setq ax (/ (* - A pi) 180))
1 Q9 T4 C* [& W;自变量压力角的初值
(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
, t- ~& K% n- S0 A;压力角自变量也是插入转角
(setq rx (rh (cos as)))
# Y8 @& B+ G* W7 l6 p  C7 \$ X2 \(setq fx ((tan ax) ax))
3 R' Q: U2 Y. v" a6 q(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
8 C  d# k- v+ S( e4 O7 J(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
；按自变量循环插入齿条块
* R1 g5 t  g4 W; h, I8 m3 j5 n))
% `& K. b0 e! g' `4 Q) n
---------------------------------------------------------------------
: ]5 |2 v  c% g! S& R, r" T[检查文字 TQGD.LSP 正在加载...]
.....
/ o/ @& |0 d; |/ w1 l% L4 H4 b1 E8 G; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
.
9 Q9 d3 p  t) q, B' H. y; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
.
5 J0 I0 B. V5 w, I- U, K; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
.
; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
1 E- @, `$ w/ K% f  h+ V.......
/ m' Q2 Q8 y) [$ E; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
/ Z+ t" P2 C% ~/ s; 检查完成.

SunVei

先试这个
9 f2 {3 k5 n) {
defun tan (x) (/(sinx) (cosx)))
: R- f; l9 q! f! n  U==>
6 \. K$ w" C# p' z4 _(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
p15
+ \1 }( o; L% |4 P. A! O (list
   (+
. r) }4 V4 J& Q; H9 ?     (-
3 e. E' o. ~  |       (/ st 2)
       (* hg (tan aos))
       (*
          (- m hd)
8 V4 g% h+ _+ n. s, z* M* g. K! b/ r          (tan djs)
        )
; O/ ?# m  ?0 u3 V9 O      )
     re
    )
  )
看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。