Re: 叫AutoCAD畫sin- 函數圖形的程式
這次，是叫 AutoCAD 自動畫 極座標函數的圖形
※ 引述《sjgau (sjgau)》之銘言：
: 叫 AutoCAD 自動畫 y= sin(x) 函數圖形的程式，
: 你可以改 no, x1, x2
: 你也可以改 sin(x) --> 變成你 想要的任何函數，
: 如果你不會改，我可以免費幫你。
: 如果你想要學 AutoLISP 程式設計，
: 我可以免費 教你。
: 透過 e-mail 或是 meeting 教你
: e-mail: sjgau4311@gmail.com
; file name: d:\plot-hart.lsp
; plot r= G(th) 的極座標函數圖形
; for th= t1 to t2 step dt do ...
; dt= (t2 - t1)/no
; no= ???, 以下為設定 32個等分點
(setq no 32)
; 以下為設定 t1, t2, dt= ???
(setq t1 0 t2 (* 2.0 pi))
(setq dt (/ (- t2 t1) no))
; 為了避免浮點數的運算誤差，導致最後一個點被忽略，
; 必須把 t2 往外面推出去 一點點
; t2= t2 + 0.1*dt
(setq t2 (+ t2 (* 0.1 dt)))
(command "spline")
; for th= t1 to t2 step dt do ...
(setq th t1 a 1.0)
(while (<= th t2)
; plot r= G(th) 的極座標函數圖形
(setq r (* 2.0 a (+ 1.0 (cos th))))
(setq x (* r (cos th)))
(setq y (* r (sin th)))
(command (list x y))
(setq th (+ th dt))
); end while
(command "" "" "")
(princ)
; end of file
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.231.132.140
推
08/31 13:12, , 1F
08/31 13:12, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 5 之 5 篇)：
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章
