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

heroblue99

刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
-----------------------------------------
(defun tan (x) (/(sinx) (cosx)))
7 j& t, X1 f! r2 C6 z$ k( F(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
6 G/ H6 U- k' ]- v, ](defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
7 \" u! W' h, l; T- ?3 b(defun inv (x) (- (tan x) x))
! V/ C: j! E. b" N(defun C:tqgd () (command "osnap" "none")
;输入齿轮参数
$ h" H3 j+ b* i% t/ a, O8 p(setq m (getreal "模数 = ?"))
(setq ao (getreal "压力角 = ?"))
6 P( k  y0 B3 y* f+ G/ c(setq aos (/ (* ao pi) 180))
(setq Z (getreal "齿数 = ?"))
  _% W- H+ ~; ?* `2 @(setq K (getreal "变位系数 = ?"))
) f) @' Z- l$ m9 ^, r9 _% B(setq Rh (/ (* m z) 2.0))
(setq Ro (* Rh (cos aos)))
, K- @# s0 O2 R/ c1 M1 c5 n& p' J; z(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
(if (= Re "")
- ?$ }. {- z' }4 A8 I6 J# v, @(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
# _7 `0 Y8 V" l4 T8 T# @(setq Ri (read Ri)))
;输入剃前滚刀参数
, n, m1 D+ P3 J  Y1 e2 r8 Z; ?' c(setq lt (getreal "留剃余量 = ?"))
(setq st (- sh lt))
0 L3 k" k$ ~) e; c/ M2 n0 R(setq hg (getreal "沉割高度 = ?"))
) ^2 S' @" V+ Y! z0 t- z# V, N2 M/ [(setq dds (getreal "沉割深度 = ?"))
9 c# ?8 L1 S1 @6 O! `0 k: w(setq hd (getreal "倒角高度 = ?"))
(setq dj (getreal "倒角角度 = ?"))
! J+ |+ ~1 h+ X7 U" u/ k) U7 K- J* ^(setq djs (/ (* dj pi) 180))
;计算齿条坐标点共二十二点
(setq p11 (list (+ (/ st 2) (* m 1.35 (tan aos))) (/ dds (cos aos))) ri))
- k1 g% Z  G, q(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)))
(setq p15 (list (+ (- (/ st 2) (* hg (tan aos)) (* (- m hd) (tan djs))) re))
(setq p16 (list (- (* pi m) (car p15)) re))
1 P9 {: \2 W3 B4 y+ s9 {- t(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)))))
# F8 \9 h& g  A4 E/ V& t2 k8 K(setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
0 Z. J- V: v! _! e4 h(setq p20 (list (- (* pi m) (car p11)) ri))
: m  j5 m( N+ a(setq p21 (list (+ (* pi m) (car p11)) ri))
(setq p10 (list (- (car p11)) ri))
8 E, s! a0 }* n3 I4 A7 J1 c, n: H4 z(setq p9 (list (- (car p12)) (+ ri (- (* 1.35 m) hg))))
+ @7 @5 T8 ^0 j9 M, x# L% P(setq p8 (list (- (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
0 }2 g' G7 D- s' m(setq p7 (list (- (car p14)) (+ rh (* m k) hd)))
1 h% K9 p, _1 ]' o  r$ S5 n(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)))
1 H' N" R% V. C  Y# U/ F. l6 \  A(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))))
) g  J9 K' w, [" |(setq p1 (list (- (car p11)) (* pi m)) ri))
(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))
2 R: k& X$ A( s, Z: T(list (+ (car p21) 2)(+ re 2))"")
(setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
. S" W6 ?8 |" b" y6 h(setq Fo (- F (inv aos)))
; R8 @- l* W5 m(setq fh (+ Fo (inv aos)))
(setq ax (/ (* - A pi) 180))
* }$ H/ N/ s2 t) F  b5 l/ q8 ~;自变量压力角的初值
(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
;压力角自变量也是插入转角
(setq rx (rh (cos as)))
  d* I: C8 E; U" {& a4 V. B(setq fx ((tan ax) ax))
(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
；按自变量循环插入齿条块
))
5 Z6 D  H' j- e, `
---------------------------------------------------------------------
; u6 j) [+ h  Y& F' A/ ]& E[检查文字 TQGD.LSP 正在加载...]
.....
; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
2 k) R3 \8 X' ~/ W' Z& c.
; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
.
; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
6 M( s# y; v  m9 X# a1 E.
1 J" p/ a2 u) n6 H% d8 w; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
; t; C: }6 P7 b. Q$ E( T$ j1 i/ v; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
# X/ ~2 U( W. u4 S5 H; 检查完成.

SunVei

先试这个
! g; B& B$ e2 v( i/ h
: Y9 M0 H% n# m* z4 Udefun tan (x) (/(sinx) (cosx)))
3 r  Z' |' l! J% d) m( S. H==>
(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
# `8 J  R; {) @$ ` p15
$ \+ l3 u' v& L0 }: N. i) n (list
& f: S- p3 l# p: X% I   (+
( q6 b, O) ^# m: A9 T     (-
: U  r* t- O2 p5 u       (/ st 2)
       (* hg (tan aos))
       (*
          (- m hd)
7 K( @2 I7 T. L7 W% g  z# Z          (tan djs)
        )
- l/ g- K8 E! ~( R3 s. K      )
     re
/ ]  x, D! n! x    )
+ ]5 p( K9 }0 x! f  M; h  )
) t% Q" r4 a+ R& z1 o* x看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。