绘制一个方程曲线，老是提醒语法错误，找不到

meisy_leo

这是源码，我找不到语法错误在哪？麻烦大家帮忙看看。


(defun c:asph1()

(setq r (getreal "R 值:<1>"))
  (if (= r nil)
    (setq r 1)
  )  
(setq he (getreal "半径 :<1>"))
  (if (= he nil)
    (setq he 1)
  )  
(setq n (getint "等分数:<50>"))
  (if (= n nil)
    (setq n 50)
  )
(setq k (getreal "K 值 :<1>"))
  (if (= k nil)
    (setq k 1)
  )  
(setq A (getreal "A :<0>"))
  (if (= A nil)
    (setq A 0)
  )  
(setq B (getreal "B :<0>"))
  (if (= B nil)
    (setq B 0)
  )  
(setq C (getreal "C :<0>"))
  (if (= C nil)
    (setq C 0)
  )  
(setq D (getreal "D :<0>"))
  (if (= D nil)
    (setq D 0)
  )  
(setq E (getreal "E :<0>"))
  (if (= E nil)
    (setq E 0)
  )  
(setq F (getreal "F :<0>"))
  (if (= F nil)
    (setq F 0)
  )
(setq G (getreal "G :<0>"))
  (if (= G nil)
    (setq G 0)
  )
(setq H (getreal "H :<0>"))
  (if (= H nil)
    (setq H 0)
  )
(setq pt_base '(0 0))

  (setq he1 (/ he n))

(while (<= he1 he)
         (setq z (+ (/ (* r he1 he1) (1+ (sqrt (1- (* (1+ k) (expt r 2) (expt he1 2))))))
                 (* A (expt he1 2))
                 (* B (expt he1 4))
                 (* C (expt he1 6))
                 (* D (expt he1 8))
                 (* E (expt he1 10))
                 (* F (expt he1 12))
                 (* G (expt he1 14))
                 (* H (expt he1 16))
                 )
               (setq p (list he1 z))
        (command "line" pt_base p)
               (setq pt_base p)
                (setq he1 (+ he1 (/ he n)))
       
                 )

  )
  )



该贴已经同步到 meisy_leo的微博

edata

用除的时候，注意实数与整数，俩整数得整数，1除50得0
sqrt后面不能是负数得加ABS
其他基本语法错误用语法检查可以找出来。

nzl1116

提问的时候，应该把错误信息发上来，我发现你这程序最后面多了一个右括号。

meisy_leo

edata 发表于 2014-6-23 15:28
用除的时候，注意实数与整数，俩整数得整数，1除50得0
sqrt后面不能是负数得加ABS
其他基本语法错误用语法检 ...

谢谢您。我用的是AutoCAD里的visual lisp编辑器，没找到语法检查在哪？不知道我该怎么去检查？谢谢

meisy_leo

nzl1116 发表于 2014-6-23 16:32
提问的时候，应该把错误信息发上来，我发现你这程序最后面多了一个右括号。

谢谢您，我又检查了一遍，没发现括号多，错误信息附下，麻烦你有空再帮我看下。

meisy_leo

源程序部分更改后：
(defun c:asph1()

(setq r (getreal "R 值:<1>"))
  (if (= r nil)
    (setq r 1)
  )  
(setq he (getreal "半径 :<1.0>"))
  (if (= he nil)
    (setq he 1.0)
  )  
(setq n (getint "等分数:<50>"))
  (if (= n nil)
    (setq n 50)
  )
(setq k (getreal "K 值 :<1>"))
  (if (= k nil)
    (setq k 1)
  )  
(setq A (getreal "A :<0>"))
  (if (= A nil)
    (setq A 0)
  )  
(setq B (getreal "B :<0>"))
  (if (= B nil)
    (setq B 0)
  )  
(setq C (getreal "C :<0>"))
  (if (= C nil)
    (setq C 0)
  )  
(setq D (getreal "D :<0>"))
  (if (= D nil)
    (setq D 0)
  )  
(setq E (getreal "E :<0>"))
  (if (= E nil)
    (setq E 0)
  )  
(setq F (getreal "F :<0>"))
  (if (= F nil)
    (setq F 0)
  )
(setq G (getreal "G :<0>"))
  (if (= G nil)
    (setq G 0)
  )
(setq H (getreal "H :<0>"))
  (if (= H nil)
    (setq H 0)
  )
(setq pt_base '(0 0))

  (setq he1 (/ he n))

(while (<= he1 he)
         (setq z (+ (/ (* r he1 he1) (1+ (sqrt abs((1- (* (1+ k) (expt r 2) (expt he1 2)))))))
                 (* A (expt he1 2))
                 (* B (expt he1 4))
                 (* C (expt he1 6))
                 (* D (expt he1 8))
                 (* E (expt he1 10))
                 (* F (expt he1 12))
                 (* G (expt he1 14))
                 (* H (expt he1 16))
                 )
               (setq p (list he1 z))
               (command "line" pt_base p)
               (setq pt_base p)
                (setq he1 (+ he1 (/ he n)))
       
                 )

  )
  )


错误信息：
LOG 错误跟踪
...............
<1> :ERROR-BREAK
[2] (C:ASPH1 nil)
<3> :CALLBACK-ENTRY
<4> :ARQ-SUBR-CALLBACK
...............

edata

起码setq z的括号少了一个，结尾多了一个。
你用vlisp的编辑器检查就知道了。

edata

对应工具菜单的123456  第三个检查编辑器语法有对勾的，很好认。

edata

建议getreal=nil 都改成实数

1. (defun c:asph1(/ A B C D E F G H HE HE1 K N P PT_BASE R Z)
   
2. 
   
3. (setq r (getreal "R 值:<1>"))
   
4.   (if (= r nil)
   
5.     (setq r 1.0)
   
6.   )  
   
7. (setq he (getreal "半径 :<1.0>"))
   
8.   (if (= he nil)
   
9.     (setq he 1.0)
   
10.   )  
    
11. (setq n (getint "等分数:<50>"))
    
12.   (if (= n nil)
    
13.     (setq n 50.0)
    
14.   )
    
15. (setq k (getreal "K 值 :<1>"))
    
16.   (if (= k nil)
    
17.     (setq k 1.0)
    
18.   )  
    
19. (setq A (getreal "A :<0>"))
    
20.   (if (= A nil)
    
21.     (setq A 0.0)
    
22.   )  
    
23. (setq B (getreal "B :<0>"))
    
24.   (if (= B nil)
    
25.     (setq B 0.0)
    
26.   )  
    
27. (setq C (getreal "C :<0>"))
    
28.   (if (= C nil)
    
29.     (setq C 0.0)
    
30.   )  
    
31. (setq D (getreal "D :<0>"))
    
32.   (if (= D nil)
    
33.     (setq D 0.0)
    
34.   )  
    
35. (setq E (getreal "E :<0>"))
    
36.   (if (= E nil)
    
37.     (setq E 0.0)
    
38.   )  
    
39. (setq F (getreal "F :<0>"))
    
40.   (if (= F nil)
    
41.     (setq F 0.0)
    
42.   )
    
43. (setq G (getreal "G :<0>"))
    
44.   (if (= G nil)
    
45.     (setq G 0.0)
    
46.   )
    
47. (setq H (getreal "H :<0>"))
    
48.   (if (= H nil)
    
49.     (setq H 0.0)
    
50.   )
    
51. (setq pt_base '(0 0))
    
52. 
    
53.   (setq he1 (/ he n))
    
54. 
    
55. (while (<= he1 he)
    
56.          (setq z (+ (/ (* r he1 he1) (1+ (sqrt (abs(1- (* (1+ k) (expt r 2) (expt he1 2)))))))
    
57.                  (* A (expt he1 2))
    
58.                  (* B (expt he1 4))
    
59.                  (* C (expt he1 6))
    
60.                  (* D (expt he1 8))
    
61.                  (* E (expt he1 10))
    
62.                  (* F (expt he1 12))
    
63.                  (* G (expt he1 14))
    
64.                  (* H (expt he1 16))
    
65.                  ))
    
66.                (setq p (list he1 z))
    
67.                (command "line" "non" pt_base "non" p "")
    
68.                (setq pt_base p)
    
69.                 (setq he1 (+ he1 (/ he n)))
    
70.         
    
71.                  )
    
72. 
    
73.   )

(defun c:asph1(/ A B C D E F G H HE HE1 K N P PT_BASE R Z)<br /> <br /> (setq r (getreal "R 值:<1>"))<br />   (if (= r nil)<br />     (setq r 1.0)<br />   )  <br /> (setq he (getreal "半径 :<1.0>"))<br />   (if (= he nil)<br />     (setq he 1.0)<br />   )  <br /> (setq n (getint "等分数:<50>"))<br />   (if (= n nil)<br />     (setq n 50.0)<br />   ) <br /> (setq k (getreal "K 值 :<1>"))<br />   (if (= k nil)<br />     (setq k 1.0)<br />   )  <br /> (setq A (getreal "A :<0>"))<br />   (if (= A nil)<br />     (setq A 0.0)<br />   )  <br /> (setq B (getreal "B :<0>"))<br />   (if (= B nil)<br />     (setq B 0.0)<br />   )  <br /> (setq C (getreal "C :<0>"))<br />   (if (= C nil)<br />     (setq C 0.0)<br />   )  <br /> (setq D (getreal "D :<0>"))<br />   (if (= D nil)<br />     (setq D 0.0)<br />   )  <br /> (setq E (getreal "E :<0>"))<br />   (if (= E nil)<br />     (setq E 0.0)<br />   )  <br /> (setq F (getreal "F :<0>"))<br />   (if (= F nil)<br />     (setq F 0.0)<br />   ) <br /> (setq G (getreal "G :<0>"))<br />   (if (= G nil)<br />     (setq G 0.0)<br />   ) <br /> (setq H (getreal "H :<0>"))<br />   (if (= H nil)<br />     (setq H 0.0)<br />   )<br /> (setq pt_base '(0 0))<br /> <br />   (setq he1 (/ he n))<br /> <br /> (while (<= he1 he)<br />          (setq z (+ (/ (* r he1 he1) (1+ (sqrt (abs(1- (* (1+ k) (expt r 2) (expt he1 2)))))))<br />                  (* A (expt he1 2))<br />                  (* B (expt he1 4))<br />                  (* C (expt he1 6))<br />                  (* D (expt he1 8))<br />                  (* E (expt he1 10))<br />                  (* F (expt he1 12))<br />                  (* G (expt he1 14))<br />                  (* H (expt he1 16))<br />                  ))<br />                (setq p (list he1 z))<br />                (command "line" "non" pt_base "non" p "")<br />                (setq pt_base p)<br />                 (setq he1 (+ he1 (/ he n)))<br />         <br />                  )<br /> <br />   )

meisy_leo

edata 发表于 2014-6-25 10:28
建议getreal=nil 都改成实数

非常感谢您。可是我运行了一下会出错。绘图界面什么也没有出现。麻烦您再帮我看一下
跟踪错误信息是：
LOG 错误跟踪
...............
<1> :ERROR-BREAK
[2] (C:ASPH1)
[3] (#<USUBR @2e110dc0 -top->)
<4> :用户输入 (c:asph1)
<5> :CALLBACK-ENTRY
[6] (C:VLIDE)
<7> :CALLBACK-ENTRY
<8> :ARQ-SUBR-CALLBACK
...............

我的方程式是：z=ry^2/(1+(1-(1+k)r^2 y^2)^0.5)+Ay^2+By^4+......+Hy^16