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

heroblue99

刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
. h0 `8 s% ?& @! V9 @-----------------------------------------
(defun tan (x) (/(sinx) (cosx)))
(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
: g, w5 r" v) |9 w* S6 A(defun inv (x) (- (tan x) x))
; S& }! J4 F4 N6 K(defun C:tqgd () (command "osnap" "none")
0 H* w, d5 y4 o$ ];输入齿轮参数
5 {3 o+ |( g- H+ s2 j(setq m (getreal "模数 = ?"))
(setq ao (getreal "压力角 = ?"))
(setq aos (/ (* ao pi) 180))
(setq Z (getreal "齿数 = ?"))
! k4 V+ ?) Z( D3 ?" A: `0 z# n(setq K (getreal "变位系数 = ?"))
(setq Rh (/ (* m z) 2.0))
(setq Ro (* Rh (cos aos)))
( s- B6 n7 o7 {# P% V# x! A3 ?(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
/ |" N: k. U" e! I  _4 v. ](if (= Re "")
(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
(setq Ri (read Ri)))
9 O$ P) @. V, B; v;输入剃前滚刀参数
; }- h* w! G# [7 [3 F/ W(setq lt (getreal "留剃余量 = ?"))
(setq st (- sh lt))
% T7 [6 G. i- Y# Y! Y- k(setq hg (getreal "沉割高度 = ?"))
  o* L$ B8 S! Z# d# ]% P(setq dds (getreal "沉割深度 = ?"))
; `3 w; `% i3 c1 c9 T(setq hd (getreal "倒角高度 = ?"))
(setq dj (getreal "倒角角度 = ?"))
& L5 C- J) j& f(setq djs (/ (* dj pi) 180))
4 P& E, m9 W& }7 w7 e;计算齿条坐标点共二十二点
(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
; k* `2 T& O$ ^" t! y  E(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)))
: `& ?1 t8 B" J& \$ |% N(setq p15 (list (+ (- (/ st 2) (* hg (tan aos)) (* (- m hd) (tan djs))) re))
" R+ i  \& E' A6 Q(setq p16 (list (- (* pi m) (car p15)) re))
- G* P% {1 q& X, [- V(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)))))
(setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
' Y- s, e& M/ [/ e- {" F# _(setq p20 (list (- (* pi m) (car p11)) ri))
(setq p21 (list (+ (* pi m) (car p11)) ri))
(setq p10 (list (- (car p11)) ri))
(setq p9 (list (- (car p12)) (+ ri (- (* 1.35 m) hg))))
. m7 H  M/ b; P0 f(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))
# T" X7 _/ x, Z% z+ c7 I(setq p5 (list (- (car p15)) (* pi m)) re))
(setq p4 (list (- (car p14)) (* pi m)) (+ rh (* m k) hd)))
" i# I0 z$ ^/ ~" Z( e% \(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))))
; t- z1 e2 j/ n: W$ n' Q( J(setq p1 (list (- (car p11)) (* pi m)) ri))
8 L: |9 T! _7 R2 ](setq p0 (list (- (car p10)) (* pi m)) ri))
0 R: e+ V. C7 E  w7 S. N6 K0 w- r(command "pline" p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 "")
, [& p. o7 Q- B(command "block" "zt" (list 0 rh) "c" (list (- (car p0) 2) (- ri 2))
(list (+ (car p21) 2)(+ re 2))"")
/ T; o( p- A$ a9 }% N' j* U, [* D(setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
) P# G# D) s2 Z3 l" f: g7 w(setq Fo (- F (inv aos)))
& F( b! X2 G( W1 y7 i( E(setq fh (+ Fo (inv aos)))
(setq ax (/ (* - A pi) 180))
;自变量压力角的初值
(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
;压力角自变量也是插入转角
- }  O- w! r  \8 U& p(setq rx (rh (cos as)))
  a6 c: w, S8 l8 C% N8 z) E(setq fx ((tan ax) ax))
(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
# }2 r& [# l. {$ b0 l(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
；按自变量循环插入齿条块
; A9 l" }9 u6 I, X$ v( m0 v3 @5 k))

---------------------------------------------------------------------
& f1 E9 e) s" x[检查文字 TQGD.LSP 正在加载...]
.....
, q9 O4 C* l. l- W- E- h! L; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
.
- _$ x& d% J1 }0 P; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
.
; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
$ s  `' a# a) @% a- E+ ?8 E.
$ c- C4 o4 L$ U8 F; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
' l3 g* @/ y3 i# ~7 F' R6 d. D; 检查完成.

SunVei

先试这个
! \4 N. `4 s! Y
defun tan (x) (/(sinx) (cosx)))
2 S( v6 p, X' [3 a4 O& K$ _" m- d==>
(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
% ~2 g) H  A3 `0 P8 W2 \5 ^. G p15
9 I# z4 k: {/ M (list
4 O4 I4 G/ r8 B, Q. s   (+
, m: B7 a. S2 P& A" p     (-
       (/ st 2)
, R- s% V+ C( d, d, M0 f9 I6 I( h) P       (* hg (tan aos))
       (*
6 a  Q& ^, |- M: D% @          (- m hd)
          (tan djs)
        )
+ x' N* a5 ?# f0 m, O8 H2 m, F! Z      )
     re
    )
  )
看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。