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

heroblue99

刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
4 f* V2 }* e  B: s, b-----------------------------------------
(defun tan (x) (/(sinx) (cosx)))
1 F8 ~; }. u6 V& _( Y(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
' O3 Y$ m) W2 Z) ~( ^(defun inv (x) (- (tan x) x))
+ H5 O; }3 I) Y# z) S! y/ E1 X6 C/ q(defun C:tqgd () (command "osnap" "none")
;输入齿轮参数
(setq m (getreal "模数 = ?"))
9 G* M) q+ X. y+ b(setq ao (getreal "压力角 = ?"))
( [  `1 O2 I# u% g: a(setq aos (/ (* ao pi) 180))
1 V9 u" X' U2 X# c& S% `0 |: J& j(setq Z (getreal "齿数 = ?"))
  s) \) A9 w: v2 {/ s8 u(setq K (getreal "变位系数 = ?"))
(setq Rh (/ (* m z) 2.0))
( @/ x! o6 ^7 t, _$ m: c5 _(setq Ro (* Rh (cos aos)))
  g3 H+ K1 |, \! o(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
(if (= Re "")
. K  c0 L% h8 ^' a9 l- \(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
(setq Ri (read Ri)))
;输入剃前滚刀参数
/ S6 l- [6 j: ^) w8 V2 P(setq lt (getreal "留剃余量 = ?"))
(setq st (- sh lt))
* R% [8 p- e2 u) b" b' u(setq hg (getreal "沉割高度 = ?"))
3 P. i$ F- h4 o# D# Z(setq dds (getreal "沉割深度 = ?"))
9 A- a4 t; W) D(setq hd (getreal "倒角高度 = ?"))
) W7 y1 D  W+ v4 n(setq dj (getreal "倒角角度 = ?"))
% a% w% a9 l" ^* o9 ^' m7 `8 F(setq djs (/ (* dj pi) 180))
;计算齿条坐标点共二十二点
(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
- l+ i) J6 ]; W7 T  p# n(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 Z% b2 ?! M: ], E  S1 b(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))
, j7 t+ g4 m6 t6 A% \(setq p16 (list (- (* pi m) (car p15)) re))
  @9 A* s& D  N0 w4 c+ R(setq p17 (list (- (* pi m) (car p14)) (+ rh (* m k) hd)))
( b  L( I* M% \( I* f9 g(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 F4 Y# K: L, N(setq p20 (list (- (* pi m) (car p11)) ri))
(setq p21 (list (+ (* pi m) (car p11)) ri))
(setq p10 (list (- (car p11)) ri))
- {7 S9 S+ R6 E3 I* T6 X(setq p9 (list (- (car p12)) (+ ri (- (* 1.35 m) hg))))
! e) i4 C+ r" F1 O2 j, U' y1 k(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))
' `4 ~! e4 v8 D/ w& ?2 {7 h4 \5 e" K6 S(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))))
# x! a' P6 f1 l0 x% ~; w9 p(setq p1 (list (- (car p11)) (* pi m)) ri))
(setq p0 (list (- (car p10)) (* pi m)) ri))
+ t+ \; @+ w8 B& c(command "pline" p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 "")
& d4 P+ f! K2 s1 T(command "block" "zt" (list 0 rh) "c" (list (- (car p0) 2) (- ri 2))
: J) {2 g6 R6 e. D( ?(list (+ (car p21) 2)(+ re 2))"")
7 h2 |/ \8 M5 \+ d(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))
;自变量压力角的初值
(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)
% e! [  F' ^* {(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
+ F9 X! ~4 O! \5 K; \) K- S；按自变量循环插入齿条块
))
  @6 f. p' ]$ ^9 a& E: x1 ^* I- F' q
# P  }( ^. P/ w- G8 p---------------------------------------------------------------------
) I+ f9 m9 e; L. H' n2 _8 ?[检查文字 TQGD.LSP 正在加载...]
+ g% u) c# K$ {.....
" k+ n8 y8 \( S; q; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
# d) F5 v0 F6 x3 m" Y! v; D9 i.
2 }7 U, V9 E+ Q5 d7 p) m; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
* f0 k" U2 q9 M+ ]+ K.
; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
.
5 Q7 d; T, L- N0 I; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
% H. c( ]4 G  N6 ]; 检查完成.

SunVei

先试这个

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

snddd

(setq
, C8 h+ Z# P6 C  ? p15
' x9 q% s7 f" [6 p6 v (list
   (+
+ R7 z) K) G0 _8 P+ {     (-
       (/ st 2)
: ?4 ~9 o; ~* C+ Z) `       (* hg (tan aos))
       (*
0 S0 J# e! |8 l/ _* N# u          (- m hd)
) g% d8 g1 h! y" u: t6 \          (tan djs)
, b* q; s2 I' P5 q        )
/ N3 t; T1 D2 ]$ E) Z- |. M      )
+ q4 u+ z; h5 w2 K     re
    )
  )
看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。