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

heroblue99

4 |1 Z5 j$ o! s% T7 a刚开始接触LISP     从期刊上复制了一段LISP程序，手动输入到VISUAL LISP，总是报错。请高手帮忙修改，谢谢。
-----------------------------------------
3 Y+ i' Y5 b- V- d6 g(defun tan (x) (/(sinx) (cosx)))
# ]  P7 c' Q- {) X. h+ H(defun acos (x) (atan (/ (sqrt (- 1 ( * x x))) x)))
(defun asin (x) (atan (/ x (sqrt (- 1 ( * x x))))))
' T0 M+ V- t$ `(defun inv (x) (- (tan x) x))
(defun C:tqgd () (command "osnap" "none")
, A4 T7 L( c- E/ t# ^7 C) u( X! |* Q1 M;输入齿轮参数
* p  O8 i' V; v2 q. D- Q3 M(setq m (getreal "模数 = ?"))
(setq ao (getreal "压力角 = ?"))
(setq aos (/ (* ao pi) 180))
' B  ?/ y$ {- X! n8 ~0 b& k' u(setq Z (getreal "齿数 = ?"))
  s( s, r9 |& x  N/ \3 _# B3 E(setq K (getreal "变位系数 = ?"))
1 }8 e8 |1 o  K2 C' X4 [( n) w(setq Rh (/ (* m z) 2.0))
(setq Ro (* Rh (cos aos)))
(setq Re (getstring " <齿顶圆半径 = ?/Enter> "))
0 v5 g- a8 y! [" i) c(if (= Re "")
(setq Ri (+ (- Rh (* m 1.35)) (* m k)))
(setq Ri (read Ri)))
  e2 l/ _& h7 @" N( X;输入剃前滚刀参数
# |8 c8 y6 o3 `% B' \/ G(setq lt (getreal "留剃余量 = ?"))
/ }! r) [' k* K2 T' O(setq st (- sh lt))
(setq hg (getreal "沉割高度 = ?"))
* ~! I  L1 @' b  Y: d$ ?2 L3 N(setq dds (getreal "沉割深度 = ?"))
/ n! T( ~: r6 W, i$ a; g; o(setq hd (getreal "倒角高度 = ?"))
" f3 y9 B0 n  h0 O(setq dj (getreal "倒角角度 = ?"))
(setq djs (/ (* dj pi) 180))
3 K! \& W8 J  E" l" i3 e" n3 b9 S;计算齿条坐标点共二十二点
(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)))
(setq p15 (list (+ (- (/ st 2) (* hg (tan aos)) (* (- m hd) (tan djs))) re))
(setq p16 (list (- (* pi m) (car p15)) re))
  _/ o; [# g$ g8 t( m(setq p17 (list (- (* pi m) (car p14)) (+ rh (* m k) hd)))
' V/ S% a  v) @(setq p18 (list (- (* pi m) (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
/ g# @( |0 A7 D- a, X6 x, }) _/ [(setq p19 (list (- (* pi m) (car p12)) (+ ri (- (* 1.35 m) hg))))
1 R, v- s0 V# }, r) t(setq p20 (list (- (* pi m) (car p11)) ri))
( C. G0 E7 B" B! @" ^(setq p21 (list (+ (* pi m) (car p11)) ri))
(setq p10 (list (- (car p11)) ri))
$ i' ]6 S: X" c6 G& @5 Y- I4 f/ t(setq p9 (list (- (car p12)) (+ ri (- (* 1.35 m) hg))))
( K8 l: O6 B3 M- K$ Y( R(setq p8 (list (- (car p13)) (+ ri (- (* 1.35 m) hg) (/ dds (sin aos)))))
- k- j  a( ?: k+ u2 S(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)))))
(setq p2 (list (- (car p12)) (* pi m)) (+ ri (- (* 1.35 m) hg))))
(setq p1 (list (- (car p11)) (* pi m)) ri))
(setq p0 (list (- (car p10)) (* pi m)) ri))
! t% Z( L7 f+ g! A* b2 m(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 F0 l$ \! Y& j8 R; ^; v! a7 B9 f" V2 N  E(list (+ (car p21) 2)(+ re 2))"")
(setq F (/ (- (/ (* m pi) 4) (* k (tan aos) m)) rh))
( t( W" L# V* Q6 E# n3 b2 v(setq Fo (- F (inv aos)))
(setq fh (+ Fo (inv aos)))
(setq ax (/ (* - A pi) 180))
;自变量压力角的初值
/ ?$ z- ]% v7 O( g* h+ r4 E(repeat A (setq ax (+ ax(/ (* pi 2) 180)))
;压力角自变量也是插入转角
(setq rx (rh (cos as)))
(setq fx ((tan ax) ax))
(setq px (list (* rx (sin fx)) (* rx (cos fx)) 0)
' E1 V5 R, K* `( _8 i(command "insert" (strcat "*" "zt") px 1 (- (/(* ax 180) pi)))
；按自变量循环插入齿条块
; w: f4 z9 K/ U))
) J, d: G8 J& E1 A" t
) X/ i: L/ h# ]" n, f3 y---------------------------------------------------------------------
. m. A  a: g$ S' x! M9 A[检查文字 TQGD.LSP 正在加载...]
. y; G/ e: R- S# `9 q$ ~  N" B.....
; 错误: SETQ 中变量名称错误: (SETQ P15 (LIST ( ... )) (SETQ P16 ( ... )) ... )
7 k7 N5 \  ?& a/ H: B+ W.
; 错误: SETQ 中参数太少: (SETQ P2 (LIST ( ... ) ( ... )) (+ RI ( ... )))
7 H. t* M$ S, N; e.
% z/ E% C( e9 B" ]; H# Z; 错误: SETQ 中参数太少: (SETQ P1 (LIST ( ... ) ( ... )) RI)
.
! p5 k: ^- w3 m# C$ h9 W: l9 ^; 错误: SETQ 中参数太少: (SETQ P0 (LIST ( ... ) ( ... )) RI)
.......
; 错误: SETQ 中参数太少: (SETQ PX (LIST ( ... ) ( ... ) 0) (COMMAND "insert" ( ... ) PX ... ))
; 检查完成.

SunVei

先试这个
; q! P  u4 R; D$ f
defun tan (x) (/(sinx) (cosx)))
==>
2 V* U) L3 F) ~(defun tan (x) (/(sin x) (cos x)))

snddd

(setq
. ^8 x, h" v$ l) J p15
& f# K9 \; [/ w7 m$ W' C/ Y' B8 z (list
! N+ Y  q) b  R& s   (+
     (-
       (/ st 2)
9 R" X& |' q. Q& X- U       (* hg (tan aos))
# R0 M0 n+ X& x4 ]/ U       (*
* E3 H# X6 [! H          (- m hd)
& ]7 o7 a% y5 P2 H. K0 A          (tan djs)
        )
2 g5 a6 z: E% n0 \) J, W# {3 W6 K      )
3 I* j, k& V8 N. t" `" z     re
( F# t2 e8 ~! o( W+ q" S    )
  )
! ]; H" c1 H5 ]看了一下p15的赋值语句里少个括号，没有分析你的数据，不知道括号应该加在哪里，另外期刊上的东西不要当真，都是人家为了评职称什么的，东拼西凑起来的东西。