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

heroblue99

刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
" h5 U& k$ i7 N7 t/ r0 X+ Z-----------------------------------------
(defun tan (x) (/(sinx) (cosx)))
# W! p0 Y3 S: L% @3 V3 b(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
. Y5 I% C' _4 _6 I(defun inv (x) (- (tan x) x))
3 B6 n2 \0 b' [/ [, P(defun C:tqgd () (command "osnap" "none")
, D2 F3 X0 s0 l6 J4 J0 t/ m, N8 x;输入齿轮参数
' a) |5 n0 k6 o(setq m (getreal "模数 = ?"))
(setq ao (getreal "压力角 = ?"))
5 P. a5 ~" g4 e! I# w( Z(setq aos (/ (* ao pi) 180))
% P6 Z- C- z! d5 j$ X6 i(setq Z (getreal "齿数 = ?"))
/ Z. S% s5 P7 V0 x& S" T(setq K (getreal "变位系数 = ?"))
  ~' i0 j6 p' o& Q(setq Rh (/ (* m z) 2.0))
% [8 Q1 `7 W' M8 G( q6 F( B! e8 M(setq Ro (* Rh (cos aos)))
(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
(if (= Re "")
1 m! W& h& F& c* Y(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
1 u4 E$ }7 R, l1 B/ @(setq Ri (read Ri)))
;输入剃前滚刀参数
; `( o* C) |3 V' }(setq lt (getreal "留剃余量 = ?"))
  q( e* @: l1 h' q3 @(setq st (- sh lt))
; O. `; v0 G) M% z(setq hg (getreal "沉割高度 = ?"))
(setq dds (getreal "沉割深度 = ?"))
(setq hd (getreal "倒角高度 = ?"))
(setq dj (getreal "倒角角度 = ?"))
(setq djs (/ (* dj pi) 180))
: \8 X3 b- {- H2 F) {2 {;计算齿条坐标点共二十二点
6 f1 S) v( t& j; D# K, Q+ m: W(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
: `. {. Y5 B* P( y" p(setq p12 (list (+ (- (/ st 2) (* hg (tan aos))) (/ dds (cos aos))) (+ ri (- (* 1.35 m) hg))))
  _# V0 H3 O0 d, {(setq p13 (list (+ (- (/ st 2) (* hg (tan aos))) (/ dds (cos aos))) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
- o; ^+ c3 h" U! w2 F* H(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))
" m6 L5 p( g7 u) m; @(setq p16 (list (- (* pi m) (car p15)) re))
6 J8 O  J3 w* S& `, Q6 g6 c0 r(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)))))
# Z6 s$ f- F! t: r9 S(setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
(setq p20 (list (- (* pi m) (car p11)) ri))
. r% `) e2 _/ {( @8 w  l. R+ u+ R(setq p21 (list (+ (* pi m) (car p11)) ri))
(setq p10 (list (- (car p11)) ri))
7 Y$ n) r; I& g* V' {  }(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))
) e& E/ u# C. I# h5 J+ a  N! y(setq p5 (list (- (car p15)) (* pi m)) re))
( Z1 d# |6 n2 h4 E- P/ U(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))))
( q  t* H3 F2 m+ P- f2 G- B(setq p1 (list (- (car p11)) (* pi m)) ri))
(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))
9 v' v% m0 i1 |* @: \% b! G(list (+ (car p21) 2)(+ re 2))"")
(setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
(setq Fo (- F (inv aos)))
, E1 @( \9 G8 E+ U/ B(setq fh (+ Fo (inv aos)))
(setq ax (/ (* - A pi) 180))
4 ~# h: L" f4 L$ ~* R' _/ h+ k;自变量压力角的初值
(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
+ I  Q! T3 t* I& r;压力角自变量也是插入转角
! j$ E" \) R, N- l(setq rx (rh (cos as)))
. l# y4 e+ m2 K7 C(setq fx ((tan ax) ax))
(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
) c6 E0 z, g4 k$ d$ K(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
; m( R# T+ |& P+ A9 J# \；按自变量循环插入齿条块
))

3 }$ I! t! E# N- e4 y---------------------------------------------------------------------
4 p0 A/ w6 |% N# m5 p7 o( C[检查文字 TQGD.LSP 正在加载...]
5 i% K1 q+ N: Q: B" M& g.....
; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
* d  h  V1 f" Q# e.
; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
' n  M6 q# y+ n2 q$ t9 u.
1 c3 V% t: n0 b' L- W. ~% m; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
.
: I1 ]3 x! x4 B4 M; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
; 检查完成.

SunVei

先试这个

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

snddd

(setq
2 W( o. G0 R) X- G0 r  @ p15
(list
   (+
" O; S6 v# a/ v+ |' t     (-
       (/ st 2)
       (* hg (tan aos))
       (*
+ n: U1 U& D4 L5 K7 L- `6 v4 C# l          (- m hd)
          (tan djs)
: r( o2 i; g! ]; H9 r# g' R        )
& Z! z3 K# l, O% F; T: w      )
     re
$ G3 T1 L/ ~5 _. z8 S, v3 O    )
  )
看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。