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

heroblue99

! W/ F2 y( }9 _6 K8 L+ c
刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
. V1 b2 a- O! ^6 @$ i: S3 z' F-----------------------------------------
+ y5 E. |$ ~! O- w! o1 \6 x(defun tan (x) (/(sinx) (cosx)))
(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
; ]- L9 Z$ Q3 _  g4 Y/ b" [) U(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
(defun inv (x) (- (tan x) x))
(defun C:tqgd () (command "osnap" "none")
2 F! M# u8 m3 S6 t$ ]( {" F& K$ n;输入齿轮参数
' y' t, R% }: Y! J2 }(setq m (getreal "模数 = ?"))
(setq ao (getreal "压力角 = ?"))
(setq aos (/ (* ao pi) 180))
& x% f' V$ j( T/ \& |(setq Z (getreal "齿数 = ?"))
(setq K (getreal "变位系数 = ?"))
2 G* r1 T9 I! j* `/ U9 Z(setq Rh (/ (* m z) 2.0))
  |* `* Q# j5 s! N# U/ z. R(setq Ro (* Rh (cos aos)))
9 u# F- M) I, ]$ G4 M0 A( T& I(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
4 t! P) C7 x# W" {1 s+ F(if (= Re "")
  X; ^7 _0 i1 Z0 v0 E7 |(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
+ d( G' }6 R& X" M5 c6 S9 t(setq Ri (read Ri)))
;输入剃前滚刀参数
7 d2 n  V" a; z1 H3 B* N. ](setq lt (getreal "留剃余量 = ?"))
4 x; n0 Y! _  J(setq st (- sh lt))
# r# {/ C% u: f6 m# m3 h# G& K(setq hg (getreal "沉割高度 = ?"))
. g+ x- C/ r8 X  c  p(setq dds (getreal "沉割深度 = ?"))
/ g5 o! V6 U- f2 {, V(setq hd (getreal "倒角高度 = ?"))
(setq dj (getreal "倒角角度 = ?"))
(setq djs (/ (* dj pi) 180))
1 l3 l5 O. B! S0 _/ \;计算齿条坐标点共二十二点
# D( c9 i* |! f8 W4 C(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))))
- b1 G& h$ x4 z. |. }( E. K(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)))
. b8 H  M' w3 L  r- s2 n) [7 r% ]7 x(setq p15 (list (+ (- (/ st 2) (* hg (tan aos)) (* (- m hd) (tan djs))) re))
(setq p16 (list (- (* pi m) (car p15)) re))
* C! Q' [/ ^  n6 x4 d* S+ _6 a(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)))))
2 O3 \4 a3 A( x3 o- O(setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
(setq p20 (list (- (* pi m) (car p11)) ri))
(setq p21 (list (+ (* pi m) (car p11)) ri))
# q  Z( ]" Z( `1 r0 w6 X(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))
(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)))))
3 H% [( m' M: T, |% m3 a  z% s; T(setq p2 (list (- (car p12)) (* pi m)) (+ ri (- (* 1.35 m) hg))))
- Q" D0 R8 a+ R& r& m(setq p1 (list (- (car p11)) (* pi m)) ri))
4 y- m& q6 t- u5 q/ g1 g(setq p0 (list (- (car p10)) (* pi m)) ri))
) z3 k0 L* ?3 @7 n(command "pline" p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 "")
, q0 \4 A: |( V. o7 w9 M  b(command "block" "zt" (list 0 rh) "c" (list (- (car p0) 2) (- ri 2))
( m" I2 ]+ R; l(list (+ (car p21) 2)(+ re 2))"")
(setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
(setq Fo (- F (inv aos)))
(setq fh (+ Fo (inv aos)))
(setq ax (/ (* - A pi) 180))
;自变量压力角的初值
  o* s; `( x- `(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
;压力角自变量也是插入转角
(setq rx (rh (cos as)))
(setq fx ((tan ax) ax))
(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
- a9 h! k% `" N8 g/ ]；按自变量循环插入齿条块
, W/ a0 t) @0 z) B))
! o' M1 L; K- ~
---------------------------------------------------------------------
" i6 D2 j- l# V" v7 C2 p[检查文字 TQGD.LSP 正在加载...]
.....
; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
.
6 z7 A: ^$ z4 a4 A% a$ H* ^; ]; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
.
0 G4 J4 d( A# \% F$ n; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
.
3 C1 ?3 b2 r1 n- ~7 z; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
4 I1 }) M$ {7 p. d# e0 N; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
% J$ _- Z+ x# P! F7 `% e% ^; 检查完成.

SunVei

先试这个
4 A  f! Y8 K7 @; A- H$ M
7 T8 j1 W3 S- B+ p6 G( ^2 _" idefun tan (x) (/(sinx) (cosx)))
8 E8 v9 g4 ^0 S2 G+ t+ ^$ x==>
(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
p15
- T1 M' M' Z7 F& ~! p (list
) _) G/ Q5 O" I, I   (+
     (-
) r9 d/ X' e% ?8 J+ T1 ]       (/ st 2)
       (* hg (tan aos))
       (*
; n  e& @# @" K- Q- k/ Z          (- m hd)
0 V& |8 f4 o% R% e          (tan djs)
        )
      )
     re
1 n/ E: ?. p9 w  K$ t. R' M  D    )
  ~' [" h) Y* t& E  )
看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。