作者sjgau (sjgau)
看板Cad_Cae
标题Re: 叫AutoCAD画sin- 函数图形的程式
时间Fri Aug 29 10:02:27 2008
叫 AutoCAD 自动画 y= sin(x) 函数图形的程式,
你可以改 no, x1, x2
你也可以改 sin(x) --> 变成你 想要的任何函数,
如果你不会改,我可以免费帮你。
如果你想要学 AutoLISP 程式设计,
我可以免费 教你。
透过 e-mail 或是 meeting 教你
e-mail:
[email protected]
; file name: d:\plot-sin.lsp
; plot y= f(x) 的函数图形
; x= x1 to x2 step dx do ...
; dx= (x2 - x1)/no
; no= ???, 以下为设定 16个等分
(setq no 16)
; 以下为设定 x1, x2, dx= ???
(setq x1 0 x2 pi)
(setq dx (/ (- x2 x1) no))
; 为了避免浮点数的运算误差,导致最後一个点被忽略,
; 必须把 x2 往外面推出去 一点点
; x2= x2 + 0.1*dx
(setq x2 (+ x2 (* 0.1 dx)))
(command "spline")
; for x= x1 to x2 step dx do ...
(setq x x1)
(while (<= x x2)
; plot y= sin(x) 的函数图形
(setq y (sin x))
(command (list x y))
(setq x (+ x dx))
); end while
(command "" "" "")
(princ)
; end of file
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.231.24.58
1F:推 zerod:高老师....推 08/31 01:01
2F:→ sjgau:谢谢 我上课的时候 只花一个小时 就让完全没有经验的人学会 08/31 11:07