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

heroblue99

8 F+ j, }( _* I9 L& B" K
6 e6 B  J0 a+ y, i! l# s; s( L- k  ]2 W刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
-----------------------------------------
(defun tan (x) (/(sinx) (cosx)))
. b; R! Z$ I  x" p(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
# Q: Q; B) V: C" V8 o2 z6 Z, i* l(defun inv (x) (- (tan x) x))
(defun C:tqgd () (command "osnap" "none")
;输入齿轮参数
0 Q9 ^, j4 L6 X- O. n(setq m (getreal "模数 = ?"))
$ }% E2 P# N) W# Z8 e(setq ao (getreal "压力角 = ?"))
0 C. c3 i% M0 K: ?0 w: g(setq aos (/ (* ao pi) 180))
(setq Z (getreal "齿数 = ?"))
(setq K (getreal "变位系数 = ?"))
(setq Rh (/ (* m z) 2.0))
: r2 U/ A7 c, d0 _7 y# i(setq Ro (* Rh (cos aos)))
(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
* R4 z" v* f3 V(if (= Re "")
& {2 T, s7 y' [; i+ n(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
(setq Ri (read Ri)))
;输入剃前滚刀参数
(setq lt (getreal "留剃余量 = ?"))
5 e+ H0 J9 }  S9 W3 A2 V(setq st (- sh lt))
(setq hg (getreal "沉割高度 = ?"))
(setq dds (getreal "沉割深度 = ?"))
(setq hd (getreal "倒角高度 = ?"))
1 ]: X8 x# ?- M4 ~(setq dj (getreal "倒角角度 = ?"))
0 H2 J" L# a& u4 u(setq djs (/ (* dj pi) 180))
, `# \, l) s. p+ l+ w& m;计算齿条坐标点共二十二点
5 i- A; h7 J) Z5 [) v1 _$ _/ S(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
. F  h4 ]  v1 H0 U0 a3 l(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)))))
(setq p14 (list (+ (- (/ st 2) (* hg (tan aos))) (+ rh (* m k) hd)))
4 v  N) w( p3 G6 [(setq p15 (list (+ (- (/ st 2) (* hg (tan aos)) (* (- m hd) (tan djs))) re))
! T' y! Q. }3 R6 n8 w; l: n& _' V* \(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)))))
(setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
(setq p20 (list (- (* pi m) (car p11)) ri))
2 e5 y' h9 i+ `; H2 n4 m(setq p21 (list (+ (* pi m) (car p11)) ri))
(setq p10 (list (- (car p11)) ri))
(setq p9 (list (- (car p12)) (+ ri (- (* 1.35 m) hg))))
(setq p8 (list (- (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
% X) c; x7 b. y' ^2 J' }: \8 e(setq p7 (list (- (car p14)) (+ rh (* m k) hd)))
" i) \; A2 Q$ {1 r! j) c8 K(setq p6 (list (- (car p15)) re))
7 T- G' ^5 [7 d" j(setq p5 (list (- (car p15)) (* pi m)) re))
* v: l/ \; X! r7 k(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)))))
1 C0 H. m# x$ a9 r) Z: X9 ~(setq p2 (list (- (car p12)) (* pi m)) (+ ri (- (* 1.35 m) hg))))
(setq p1 (list (- (car p11)) (* pi m)) ri))
(setq p0 (list (- (car p10)) (* pi m)) ri))
6 N6 B4 R& T) h, a' V$ z6 I0 s(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))
/ H% d' ?6 q  t6 ?& C' m- {3 x- L(list (+ (car p21) 2)(+ re 2))"")
(setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
; q; Z. E$ O) ?+ ]' ~1 ^(setq Fo (- F (inv aos)))
2 b8 G! `) C$ o4 s/ ^3 x2 Q(setq fh (+ Fo (inv aos)))
(setq ax (/ (* - A pi) 180))
;自变量压力角的初值
(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
$ S9 M' I8 v( ^& @. r; k- c;压力角自变量也是插入转角
. C% L6 Z0 `' X% N1 p(setq rx (rh (cos as)))
9 E, h1 }5 j# S$ A1 Y7 d(setq fx ((tan ax) ax))
7 G" o5 C5 y7 ~& }' e(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
7 \- _2 j1 I( O! _% b; K3 O$ o(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
& b8 u3 u0 |5 W: j；按自变量循环插入齿条块
))

---------------------------------------------------------------------
[检查文字 TQGD.LSP 正在加载...]
.....
; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
; s5 E+ e3 R  v! F; l.
5 Z5 M4 D/ ^2 k+ {' ?# P; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
.
; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
.
; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
" q* s7 \; @4 b; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
; 检查完成.

SunVei

先试这个
/ L* C* a% x% o0 M5 {) Y0 H+ Y
6 L& T* z% o+ d7 b( p2 rdefun tan (x) (/(sinx) (cosx)))
7 b4 q4 b1 V. K4 W) ?2 g==>
8 e5 Y0 L' I6 H; o/ J(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
7 S. Q2 g5 g# f0 W p15
(list
! m+ Y3 E, y1 C3 H/ @7 r   (+
$ F( j) x4 F/ y5 i: [     (-
2 X% l3 Y! Q2 T4 `       (/ st 2)
) n/ t5 Y7 K) w% h7 {       (* hg (tan aos))
       (*
) {9 z# P0 \: d          (- m hd)
          (tan djs)
% e8 P) _  b. X        )
  Z& v9 n5 y0 Z& O% ~7 w      )
' q4 s! j3 v9 w! D- D# n$ G+ j     re
$ `. R2 F% D9 W! f    )
7 p  @& U  C9 C" F  )
看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。