高手帮忙看一下这个程序的问题？

jjfujj宝贝

用来画正弦函数图像的，运行总说参数错误
(defun c:inv(/ xmin xmax n dx x0 y0 x1 y1 )
  (setq xmin (getreal "\n 输入起始角:"))
  (setq xmax (getreal "\n 输入终止角:"))
  (setq dx (getreal "\n 输入角度增量:"))
  (setq n (fix(/(- xmax xmin)dx)))
  (setq dx (/ (- xmax xmin)n))
  (setq x0 xmin)
  (setq y0 (* sin x0))  
  (while (<= x0 xmax)
    (setq x1(+ x0 dx))
    (setq y1(* sin x1))
    (command "line"(list x0 y0)(list x1 y1)"")
    (setq x0 x1 x1 y1)
  )
)

Gu_xl

(setq y0 (* sin x0))   (setq y1(* sin x1))
==》
(setq y0 ( sin x0))   (setq y1( sin x1))

jjfujj宝贝

Gu_xl 发表于 2013-6-17 15:13
(setq y0 (* sin x0))   (setq y1(* sin x1))
==》
(setq y0 ( sin x0))   (setq y1( sin x1))

改了，不过还是不行，没有图像啊？是不是程序不对？

叮咚

角度是用弧度的。 要转换成弧度。 还有就是你的角度是有问题的，万一起始角大于终止角，就可能成死循环了
(setq x0 x1 x1 y1)这个写错了。

ZZXXQQ

2. (defun c:inv (/ xmin xmax n dx h x0 y0 x1 y1)
   
3. (defun dtor (d) (/ (* d pi) 180))
   
4. (setq xmin (getreal "\n 输入起始角:"))
   
5. (setq xmax (getreal "\n 输入终止角:"))
   
6. (setq dx (getreal "\n 输入角度增量:"))
   
7. (setq h (getreal "\n输入幅值:"))
   
8. (setq n (fix (/ (- xmax xmin) dx)))
   
9. (setq dx (/ (- xmax xmin) n))
   
10. (setq x0 xmin)
    
11. (setq y0 (* (sin (dtor x0)) h))
    
12. (command "_.PLINE" "non" (list x0 y0))
    
13. (while (<= x0 xmax)
    
14.   (setq x1 (+ x0 dx))
    
15.   (setq y1 (* (sin (dtor x1)) h))
    
16.   (command "non" (list x1 y1))
    
17.   (setq x0 x1)
    
18. )
    
19. (command "")
    
20. (princ)
    
21. )
    

(defun c:inv (/ xmin xmax n dx h x0 y0 x1 y1)<br /> (defun dtor (d) (/ (* d pi) 180))<br /> (setq xmin (getreal "\n 输入起始角:"))<br /> (setq xmax (getreal "\n 输入终止角:"))<br /> (setq dx (getreal "\n 输入角度增量:"))<br /> (setq h (getreal "\n输入幅值:"))<br /> (setq n (fix (/ (- xmax xmin) dx)))<br /> (setq dx (/ (- xmax xmin) n))<br /> (setq x0 xmin)<br /> (setq y0 (* (sin (dtor x0)) h))<br /> (command "_.PLINE" "non" (list x0 y0))<br /> (while (<= x0 xmax)<br />   (setq x1 (+ x0 dx))<br />   (setq y1 (* (sin (dtor x1)) h))<br />   (command "non" (list x1 y1))<br />   (setq x0 x1)<br /> )<br /> (command "")<br /> (princ)<br /> )<br />

清风明月名字

路过学习学习。谢谢5楼楼主分享！

jjfujj宝贝

叮咚 发表于 2013-6-17 17:35
角度是用弧度的。 要转换成弧度。 还有就是你的角度是有问题的，万一起始角大于终止角，就可能成死循环了
...

谢谢，

jjfujj宝贝

ZZXXQQ 发表于 2013-6-18 00:02

试了一下还是不行，和幅值有关系吗？

jjfujj宝贝

谢谢楼上几位，可以运行了。
我的那种也可以，其实不用变换弧度的。你输的多少就默认成弧度了。比如6.28≈360度。
zzxxqq的也可以，他考虑了幅值的问题。
继续努力了。

风雨依然

路过 学习 学习