作者sjgau (sjgau)
看板Cad_Cae
標題Re: [心得] AutoLISP 的 Hello, world!\n
時間Sun Nov 20 13:37:01 2005
以下，應該是 正確的
(defun f2(n / )
;
)
我把 函數名稱改成 f2
執行的方法是
(load "tmp.lsp")
(f2 10)
還有，第0項 和 第1項的答案都是 1
還有，為了擔心 n < 0
所以，
if (n <= 0) return 1;
令: (f2 0)
1
指令: (f2 1)
1
指令: (f2 2)
2
指令: (f2 3)
3
指令: (f2 5)
8
指令: (f2 10)
89
指令: (f2 20)
10946
指令: (f2 25)
121393
指令: (f2 30)
1346269
(defun f2 (n / )
(cond ((<= n 0) 1)
((= n 1) 1)
(t
(+ (f2 (- n 1))
(f2 (- n 2))
)
)
)
)
※ 引述《HiEArO (xsd)》之銘言：
: 我使用以下的方法 是可以執行一些lisp的程式
: 但是 只要遇到function的程式 好像就會出問題
: 像以下這個程式
: 下面應該是一個求Fibonacci數列的函數
: (defun f(n)
: (cond ((= n 0) 0)
: ((= n 1) 1)
: (t(+(f(- n 1))
: (f(- n 2))))
: )
: )
: 這個照以下方法執行
: 會跑出訊息：no function definition: N
: 為什麼呢? 可以幫我解答一下嗎？ 感謝
: ※ 引述《sjgau (sjgau)》之銘言：
: : (princ "hello, world!\n")
: : (princ)
: : 程式檔案名稱：hello.lsp
: : 內容只有以上的兩行。
: : 要執行這個程式，很簡單。
: : 在 AutoCAD 指令行下面，輸入
: : (load "hello")
: : 即可正確執行。
: : 更多的內容，請參考我的 BLOG
: : http://myblog.pchome.com.tw/sjgau/
: : 參觀次破 1,000 紀念
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.243.237.65