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

heroblue99

7 @: R9 y" ~, Y7 i! g1 t$ {
刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
-----------------------------------------
(defun tan (x) (/(sinx) (cosx)))
  K2 F; P# b& e. X% D- g- H(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
; k  q. Q5 b, {& ~/ y1 X5 t9 I/ ](defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
(defun inv (x) (- (tan x) x))
7 `8 _, _* v9 s& Z' q3 m5 m(defun C:tqgd () (command "osnap" "none")
;输入齿轮参数
(setq m (getreal "模数 = ?"))
(setq ao (getreal "压力角 = ?"))
(setq aos (/ (* ao pi) 180))
7 W0 I: q5 J. [9 u/ w7 j! g(setq Z (getreal "齿数 = ?"))
" j- q# Y, j; _0 @! R+ H) m" |(setq K (getreal "变位系数 = ?"))
(setq Rh (/ (* m z) 2.0))
: @9 ~- j/ S1 J" V! q, x(setq Ro (* Rh (cos aos)))
& _: ]: w0 z3 ^; J(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
(if (= Re "")
% B' x: J! {% c0 a(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
(setq Ri (read Ri)))
;输入剃前滚刀参数
(setq lt (getreal "留剃余量 = ?"))
4 E) R* Q9 K- ^% h; u(setq st (- sh lt))
(setq hg (getreal "沉割高度 = ?"))
(setq dds (getreal "沉割深度 = ?"))
(setq hd (getreal "倒角高度 = ?"))
1 f( l5 w; N+ W2 o! h, c(setq dj (getreal "倒角角度 = ?"))
9 Y7 H6 G( o2 P1 u0 ?(setq djs (/ (* dj pi) 180))
- M5 W4 V  P  }7 e2 p7 B: G; w;计算齿条坐标点共二十二点
  h9 `% {2 K, o(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
% k7 x# q3 z2 D' [# k7 l: O% K(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 L( @: `. f, H, g* w0 l(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))
(setq p16 (list (- (* pi m) (car p15)) re))
6 X5 W- q: c3 ?& T7 P(setq p17 (list (- (* pi m) (car p14)) (+ rh (* m k) hd)))
. F9 P9 e* S6 a- D, I( S5 _(setq p18 (list (- (* pi m) (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
" q0 e1 X0 P! ](setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
, e1 B% r' W; N( {, a3 m* c" x(setq p20 (list (- (* pi m) (car p11)) ri))
(setq p21 (list (+ (* pi m) (car p11)) ri))
5 a) p& l, Q, M6 }# y0 A(setq p10 (list (- (car p11)) ri))
" i8 ]4 s% C9 K2 N9 L, B(setq p9 (list (- (car p12)) (+ ri (- (* 1.35 m) hg))))
(setq p8 (list (- (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
, J# H2 @. {, M, r# {4 k" T. |(setq p7 (list (- (car p14)) (+ rh (* m k) hd)))
(setq p6 (list (- (car p15)) re))
(setq p5 (list (- (car p15)) (* pi m)) re))
5 z$ f. V' v. V: N5 @(setq p4 (list (- (car p14)) (* pi m)) (+ rh (* m k) hd)))
+ D1 H" |& A1 s% H7 ?; T(setq p3 (list (- (car p13)) (* pi m)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
% V4 z& q# i+ \+ z% A(setq p2 (list (- (car p12)) (* pi m)) (+ ri (- (* 1.35 m) hg))))
(setq p1 (list (- (car p11)) (* pi m)) ri))
' x6 X  u, Y5 T! s: |' V) o(setq p0 (list (- (car p10)) (* pi m)) ri))
' ~5 I5 t1 [6 ~" b/ q  {) L(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))
0 j9 |1 s; V" \8 E. P5 _. n* v8 }(list (+ (car p21) 2)(+ re 2))"")
+ ?: S+ ^$ f. }(setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
0 J, _6 n# q9 H9 S; n) I1 [$ ]$ L# E(setq Fo (- F (inv aos)))
3 P. y4 M) }2 `1 B/ M  s; i(setq fh (+ Fo (inv aos)))
& a# w2 h; F3 o( i(setq ax (/ (* - A pi) 180))
2 _5 R4 s! b0 Q6 _3 H9 o;自变量压力角的初值
(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
;压力角自变量也是插入转角
7 {5 J$ T* }1 @& o6 I( ]/ f" R( _  t(setq rx (rh (cos as)))
+ L6 f# c7 V7 C9 m7 l(setq fx ((tan ax) ax))
(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
$ t2 o, z* O/ [* _5 G0 G；按自变量循环插入齿条块
9 ^+ E4 g  x9 w2 z, {5 c, F  w$ z))

6 w7 N( I+ U% U  @! }---------------------------------------------------------------------
5 x2 Q- z3 Q( u: o/ B; k. g[检查文字 TQGD.LSP 正在加载...]
.....
; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
: _; |) S3 T% P4 A.
% p' c7 D( h, v( p9 J' f; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
3 K6 m  A, [8 n' `1 M3 M' T, ~.
. Z% s9 _, q4 {/ `; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
.
; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
' t3 w7 G) l- t/ F4 C# R.......
; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
; 检查完成.

SunVei

先试这个
" u  E& l$ b+ h
8 r! l3 u$ a  Q4 A% u% d0 Rdefun tan (x) (/(sinx) (cosx)))
==>
(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
p15
; G; \* |( ~; }2 \ (list
6 L) ]0 d* W# H   (+
5 I. a* ~; h8 Z     (-
       (/ st 2)
       (* hg (tan aos))
5 E$ v% X: }  [% {, g# P/ i       (*
          (- m hd)
/ `$ d- z; ^3 S0 v          (tan djs)
6 {/ U3 j# {: s8 a4 P; K4 r        )
      )
     re
5 E8 X! K: d5 Y4 l' `    )
  )
- n, R- ]* k- H5 K看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。