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

heroblue99

/ Z0 O1 t5 ^; C5 I. V% u刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
0 t. z' x) d/ x7 Y  ?+ n- w% x-----------------------------------------
(defun tan (x) (/(sinx) (cosx)))
8 Y6 I$ t9 }% ^! F5 M* V6 {# ~(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
6 j8 x2 Z8 r. B. s$ S(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
(defun inv (x) (- (tan x) x))
, j" d+ W$ B, n; X- v  w. Z(defun C:tqgd () (command "osnap" "none")
;输入齿轮参数
( ]6 |1 s7 c: W# S. T  v, e5 F: ]& l5 y(setq m (getreal "模数 = ?"))
3 ^/ I  g0 n# z* Z) x$ k+ ~) _" a1 `(setq ao (getreal "压力角 = ?"))
(setq aos (/ (* ao pi) 180))
- C, ^. J3 N4 j; P3 h. `8 q(setq Z (getreal "齿数 = ?"))
, A5 ^2 J5 I6 ], v; \; m(setq K (getreal "变位系数 = ?"))
(setq Rh (/ (* m z) 2.0))
(setq Ro (* Rh (cos aos)))
(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
2 E" W" z! `* W; u(if (= Re "")
1 p# z: |4 o8 m: [8 L" l  [(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
(setq Ri (read Ri)))
7 w) \9 B7 q2 f" A) C;输入剃前滚刀参数
! A, q1 l* S+ j6 m" ?" M" J(setq lt (getreal "留剃余量 = ?"))
: k3 _' w2 ]/ p* @' R1 Z$ f/ m(setq st (- sh lt))
; Z5 i) G6 w8 }; A(setq hg (getreal "沉割高度 = ?"))
( j/ W) W+ R* ]8 l$ [/ j(setq dds (getreal "沉割深度 = ?"))
+ c7 G: i6 b# }8 b/ m  q# W(setq hd (getreal "倒角高度 = ?"))
(setq dj (getreal "倒角角度 = ?"))
- ?2 z5 i% E& B% c(setq djs (/ (* dj pi) 180))
;计算齿条坐标点共二十二点
4 z, y& t9 y; I' ](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))))
(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)))
7 Q! A; m' W3 F. Y(setq p15 (list (+ (- (/ st 2) (* hg (tan aos)) (* (- m hd) (tan djs))) re))
5 _  v/ N5 u! g# `+ B' e- j# L! ?(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)))))
0 [! U/ E% r8 ](setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
: h# b* [. }" f(setq p20 (list (- (* pi m) (car p11)) ri))
(setq p21 (list (+ (* pi m) (car p11)) ri))
. X' e" X& @4 n% i1 ~4 f  U6 A- \/ 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))
(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)))))
& V$ z. P9 U  x) o, Q(setq p2 (list (- (car p12)) (* pi m)) (+ ri (- (* 1.35 m) hg))))
" {7 X" ]5 D: `7 E7 N) r  N(setq p1 (list (- (car p11)) (* pi m)) ri))
; b0 y& Z7 T* F(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))
# h  a" n) B- F(list (+ (car p21) 2)(+ re 2))"")
(setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
(setq Fo (- F (inv aos)))
+ `) K. _( M0 K2 x- C1 f# v) d& E(setq fh (+ Fo (inv aos)))
(setq ax (/ (* - A pi) 180))
;自变量压力角的初值
. h2 a0 q3 o% |- x* M! X: D(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
;压力角自变量也是插入转角
(setq rx (rh (cos as)))
(setq fx ((tan ax) ax))
1 e: K0 _+ U. w3 V(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
；按自变量循环插入齿条块
( b- p# ~1 U$ `  H' t))

---------------------------------------------------------------------
; i& e5 \* J7 a: N0 J3 x[检查文字 TQGD.LSP 正在加载...]
.....
$ `* ]+ u6 ^! p/ C3 y3 b$ `; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
.
! \5 z% F0 j! b& v$ d% F0 t; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
! [9 ~1 @. p- P) @9 k.
. @: x  w5 }0 o% r+ k; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
" Q9 f; Q) |# `4 [8 W7 N$ g.
; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
* B/ f: x. H% P) L7 e/ R.......
; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
8 L: J, p/ |; w. C- N4 ?; 检查完成.

SunVei

先试这个

defun tan (x) (/(sinx) (cosx)))
==>
6 T( Y$ l2 _3 {  V3 j4 T: |) M7 W(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
p15
(list
9 |8 u' I* s" H   (+
     (-
       (/ st 2)
       (* hg (tan aos))
9 `3 c0 Y% {3 p% \' k# ]& e* Z       (*
          (- m hd)
* a) {4 `  Z- H; j, G+ A! ]          (tan djs)
        )
6 }. s& J6 p$ C8 P- s5 G      )
. c) Y/ g% K4 x% ^! H     re
    )
  )
% t; \7 H% F' h4 |. J- D  Q% z; ]看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。