PTT數位生活區 / Cad_Cae (電腦輔助設計)

叫AutoCAD畫sin- 函數圖形的程式

看板Cad_Cae (電腦輔助設計)作者 (sjgau)時間19年前 (2005/10/12 16:17), 編輯推噓0(0推 0噓 0→)
留言0則, 0人參與, 最新討論串1/5 (看更多)
; for theta=0 to 360 step dt do (setq no 100) (setq theta 0.0 dt (/ 360.0 no)) (setq dt (+ dt (/ dt 10.0))) (setvar "cmdEcho" 0) (command "pline") (while (<= theta 360.0) (setq t1 (* (/ theta 180.0) pi)) (setq y1 (sin t1)) (command (list t1 y1)) (setq theta (+ theta dt)) ); end of while() (command "") (princ) ; 後面是註解 我的部落格 破 5000紀念 http://myblog.pchome.com.tw/sjgau/ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 210.243.238.233
‣ 更多 sjgau 的文章
文章代碼(AID): #13JCQYE8 (Cad_Cae)
Cad_Cae 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 sjgau 的文章
文章代碼(AID): #13JCQYE8 (Cad_Cae)