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

heroblue99

刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
9 O. Z2 s- ^! B: R" I& y. E  T/ \-----------------------------------------
) m2 [3 D" j! V6 w6 ~(defun tan (x) (/(sinx) (cosx)))
(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
$ M$ N. |! K$ d3 [% K(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
) u8 R6 h( Q( h$ ~- y, M3 k0 M(defun inv (x) (- (tan x) x))
1 v. ^. V; \3 m  x* A1 k8 ^(defun C:tqgd () (command "osnap" "none")
;输入齿轮参数
8 X9 G# W0 {5 z(setq m (getreal "模数 = ?"))
+ \1 u/ W: z. d7 D* A4 A7 T(setq ao (getreal "压力角 = ?"))
(setq aos (/ (* ao pi) 180))
(setq Z (getreal "齿数 = ?"))
; F4 d: H9 Z9 ^- n  m(setq K (getreal "变位系数 = ?"))
# f+ C0 A: j& @& q(setq Rh (/ (* m z) 2.0))
(setq Ro (* Rh (cos aos)))
) \9 [0 @0 i8 x( ]  }8 K# @4 Z: p0 _(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
(if (= Re "")
(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
- l+ N7 @0 O+ I0 n8 k+ _(setq Ri (read Ri)))
;输入剃前滚刀参数
- Z+ J2 A! c2 {. \1 f(setq lt (getreal "留剃余量 = ?"))
. x1 A+ W6 D- x" K+ C(setq st (- sh lt))
(setq hg (getreal "沉割高度 = ?"))
(setq dds (getreal "沉割深度 = ?"))
2 ~$ k; I, k# G1 q1 x3 e( d(setq hd (getreal "倒角高度 = ?"))
; W# v# S5 E4 Q- @(setq dj (getreal "倒角角度 = ?"))
3 A& k! ~. Z8 l, x- z# A(setq djs (/ (* dj pi) 180))
2 r8 ?1 F6 z1 |* Y  U7 h$ Z6 O;计算齿条坐标点共二十二点
(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
5 r" q# t8 l5 d: q(setq p12 (list (+ (- (/ st 2) (* hg (tan aos))) (/ dds (cos aos))) (+ ri (- (* 1.35 m) hg))))
$ s* `7 l- E" q. s( N6 z(setq p13 (list (+ (- (/ st 2) (* hg (tan aos))) (/ dds (cos aos))) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
* l' F5 `, u: X8 T3 V(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))
(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))))
* u( C* A2 ]" J  O5 \: f4 W1 j% }(setq p20 (list (- (* pi m) (car p11)) ri))
(setq p21 (list (+ (* pi m) (car p11)) ri))
- [8 @7 Q; G" Y' `" p) Z(setq p10 (list (- (car p11)) ri))
(setq p9 (list (- (car p12)) (+ ri (- (* 1.35 m) hg))))
% K3 T' h6 [" o& u6 a) j(setq p8 (list (- (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
) x, O; e  t, W+ N& U  W(setq p7 (list (- (car p14)) (+ rh (* m k) hd)))
* H( l2 n% s& r' k(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)))
& ^9 v& S+ d* X, g6 \* }(setq p3 (list (- (car p13)) (* pi m)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
- h) X& F9 `; e! w(setq p2 (list (- (car p12)) (* pi m)) (+ ri (- (* 1.35 m) hg))))
(setq p1 (list (- (car p11)) (* pi m)) ri))
# {! u7 `- d; e' S( f) {6 Z- W(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))
(list (+ (car p21) 2)(+ re 2))"")
(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))
$ Q  y& G0 T( E/ r0 @;自变量压力角的初值
(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
* l! P/ E: ~( l; r;压力角自变量也是插入转角
(setq rx (rh (cos as)))
9 r* C4 @& A$ T(setq fx ((tan ax) ax))
- @8 Z$ {4 @! g$ _0 v(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
, a. a: z& x7 A# x3 ^) s- o(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
* i& `7 q  Z6 n；按自变量循环插入齿条块
; `! o$ a, {" l# Y))
1 D! i2 D8 U# j5 V
---------------------------------------------------------------------
[检查文字 TQGD.LSP 正在加载...]
.....
4 X- A/ G" P+ h" |9 I8 e; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
: [5 M( S3 t5 y6 Y+ U* H( X8 c.
0 J; c0 X. D5 d: A9 G) y/ m9 Z" X6 o; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
, o: s: n5 i% T0 ?3 G.
! \/ r# _. E% b. ^7 Z; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
.
; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
1 n0 W2 Y7 Y- L. W# F0 }; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
; 检查完成.

SunVei

先试这个
9 R* b* r5 ?1 O. T; t1 [9 [5 H
defun tan (x) (/(sinx) (cosx)))
==>
(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
" ?, l4 M; o6 b5 K p15
' R0 R4 R1 x' _" [2 B" h$ ~  W (list
   (+
     (-
" w+ i% h9 `2 [5 A+ v       (/ st 2)
1 o) y& |( U0 \, g7 c$ ^       (* hg (tan aos))
2 g: u) }8 ]% X+ t0 X/ q$ q! |       (*
3 w, V) G/ A" \: ]          (- m hd)
' }, U* Q" R2 V9 [" B          (tan djs)
        )
. a& C) Z( R0 q. q! K6 p0 {      )
     re
    )
  )
% `: |* I' G) D# l. c看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。