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

heroblue99

刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
5 X( S/ C+ Q+ w9 i5 o: E, k5 n-----------------------------------------
(defun tan (x) (/(sinx) (cosx)))
(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
: r% K+ P3 s7 p  d, a(defun inv (x) (- (tan x) x))
(defun C:tqgd () (command "osnap" "none")
;输入齿轮参数
: r7 H+ P8 q$ |0 d& L7 a6 d(setq m (getreal "模数 = ?"))
# d1 R$ j3 U. D1 z$ }& K(setq ao (getreal "压力角 = ?"))
( z: r' @# H0 n+ o(setq aos (/ (* ao pi) 180))
6 @0 Q6 ?3 J, x+ V% D  P(setq Z (getreal "齿数 = ?"))
(setq K (getreal "变位系数 = ?"))
(setq Rh (/ (* m z) 2.0))
8 F- D3 ^/ S0 V(setq Ro (* Rh (cos aos)))
  A# y8 O4 i% x0 S(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
% X" }! m, C. ~: `! i2 u; |$ M4 V(if (= Re "")
(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
(setq Ri (read Ri)))
;输入剃前滚刀参数
(setq lt (getreal "留剃余量 = ?"))
4 k/ x& |2 W- ^(setq st (- sh lt))
(setq hg (getreal "沉割高度 = ?"))
* X" N5 z. |, i: a( h! Z* I# M(setq dds (getreal "沉割深度 = ?"))
/ Y6 S% `. Q+ x, X(setq hd (getreal "倒角高度 = ?"))
: T: e9 `+ P3 w% E9 A(setq dj (getreal "倒角角度 = ?"))
(setq djs (/ (* dj pi) 180))
% o# n& i* j; w# a% f# I  S;计算齿条坐标点共二十二点
(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
0 g& s+ d. D7 x. n9 M" a(setq p12 (list (+ (- (/ st 2) (* hg (tan aos))) (/ dds (cos aos))) (+ ri (- (* 1.35 m) hg))))
" ]& u( T5 T$ A& C" _  L(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)))
) I5 P( r# L. C5 x6 `* V(setq p15 (list (+ (- (/ st 2) (* hg (tan aos)) (* (- m hd) (tan djs))) re))
(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))))
5 X" `. ?3 r4 Y$ O$ @9 I2 v(setq p20 (list (- (* pi m) (car p11)) ri))
9 q' i* _! S) T: _8 R8 f, h(setq p21 (list (+ (* pi m) (car p11)) ri))
' h' \( X6 C7 y' j# ~( ]  q; q(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)))))
(setq p7 (list (- (car p14)) (+ rh (* m k) hd)))
(setq p6 (list (- (car p15)) re))
) M' v7 k5 ?8 R8 N  G0 O" c# r(setq p5 (list (- (car p15)) (* pi m)) re))
(setq p4 (list (- (car p14)) (* pi m)) (+ rh (* m k) hd)))
% Y+ p1 C4 @' U: D  t; ~2 g(setq p3 (list (- (car p13)) (* pi m)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
) i* Y! K3 J  Q! k- r* I(setq p2 (list (- (car p12)) (* pi m)) (+ ri (- (* 1.35 m) hg))))
* ]# q; f9 W/ r0 h& A* J2 }2 l(setq p1 (list (- (car p11)) (* pi m)) ri))
(setq p0 (list (- (car p10)) (* pi m)) ri))
1 t% r8 V. q" G. \2 u# ~% F(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))
(setq Fo (- F (inv aos)))
; I; s% O, _2 h% }(setq fh (+ Fo (inv aos)))
) U3 z! u5 v; l! b(setq ax (/ (* - A pi) 180))
5 ?  j  E+ Z" P2 s' W;自变量压力角的初值
- {7 n1 w! O* B* k: I9 w(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
4 r4 Q6 y' ~  J! P;压力角自变量也是插入转角
6 M+ ?7 ?* J7 ?(setq rx (rh (cos as)))
5 ~2 i0 H# n$ Q0 h5 [. L6 _" ~(setq fx ((tan ax) ax))
0 V+ d# r9 e  o(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
7 v$ e8 G+ ?" z/ \6 |2 V1 _3 [  A(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
；按自变量循环插入齿条块
0 x/ b& ?( }; {$ c) Q: u2 a4 v))

---------------------------------------------------------------------
2 _3 O8 T- N6 J[检查文字 TQGD.LSP 正在加载...]
- c( {8 n5 i0 O( U.....
; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
.
; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
.
; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
6 i: {! X9 i, [# J$ `, A) D.
; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
  O$ L, [0 o9 W% V$ Q: {; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
/ N( }0 H/ y( ^" G7 I! A  K& E5 ^6 g; 检查完成.

SunVei

先试这个

defun tan (x) (/(sinx) (cosx)))
, w% i1 k" G4 S==>
! n$ \( F; Y# t9 N(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
! k3 O* z  i  v$ N p15
4 E7 D3 V8 Z' G9 r1 h (list
   (+
     (-
# @" A2 r3 Q% F& j& g, L. h       (/ st 2)
       (* hg (tan aos))
       (*
          (- m hd)
) p7 Z$ L$ B& g% [& k          (tan djs)
  f) n9 Q7 P% D% P' d        )
( C+ H. j  r! K% [      )
% z/ Z$ U/ }* M  L) C+ X! h3 ]     re
) Y$ s: r9 t5 o7 @0 x9 Y9 o; t    )
  )
看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。