[求助]关于黄金分割~

shida8287

有那位老师知晓关于"黄金分割"方面的知识?我只知道有两个数值(0.618、0.328)可就是不知道怎么应用~


请高手指教。谢谢！

xyp1964

2.    (load "xyp_lib");加载通用函数
3. ;|如果已经下载xyp_lib并放到搜索路径下可以不再下载!
4. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
5. 1.在acad.lsp中增加(load"xyp_lib")
6. 2.在每个程序内增加(load"xyp_lib")
7. 3.在command下，输入(load"xyp_lib")
8. 4.在菜单.mnl中增加(load"xyp_lib")
9. 通用函数下载地址:
10. http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554
11. |;
12. ;;;a/b = b/(a+b)
13. (defun c:hjb ()
14.    (cmdla0)
15.    (setq  pt1 (getpoint "\n起点 :")
16.   no6 (ureal 1 "" "\n短边长" no6)
17.   l     (/ (- (sqrt 5) 1) 2)
18.   pt2 (list (+ (car pt1) no6) (+ (cadr pt1) (* no6 l)))
19.    )
20.    (command "rectang" pt1 pt2)
21.    (cmdla1)
22. )
23. (pxyp "HJB   (黄金比)")
24. (princ)

   (load "xyp_lib");加载通用函数 ;|如果已经下载xyp_lib并放到搜索路径下可以不再下载! 利用以下任何一种方式即可加载和运行通用函数内的所有子程序： 1.在acad.lsp中增加(load"xyp_lib") 2.在每个程序内增加(load"xyp_lib") 3.在command下，输入(load"xyp_lib") 4.在菜单.mnl中增加(load"xyp_lib") 通用函数下载地址: http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554 |; ;;;a/b = b/(a+b) (defun c:hjb ()    (cmdla0)    (setq  pt1 (getpoint "\n起点 :")   no6 (ureal 1 "" "\n短边长" no6)   l     (/ (- (sqrt 5) 1) 2)   pt2 (list (+ (car pt1) no6) (+ (cadr pt1) (* no6 l)))    )    (command "rectang" pt1 pt2)    (cmdla1) ) (pxyp "HJB   (黄金比)") (princ)

shida8287

二楼的回帖太深奥了,我看的是一头雾水~


能通俗一点么?谢谢~

xyp1964

2. ;;;黄金比 : hjb
3. (defun c:hjb ()
4.    (setq  pt1 (getpoint "\n起点 :")
5.   no6 (getreal "\n短边长 : ")
6.   leng     (/ (- (sqrt 5) 1) 2);黄金比长边尺寸
7.   pt2 (list (+ (car pt1) no6) (+ (cadr pt1) (* no6 leng)))
8.    )
9.    (command "rectang" pt1 pt2);黄金比的长方形
10. )

;;;黄金比 : hjb (defun c:hjb ()    (setq  pt1 (getpoint "\n起点 :")   no6 (getreal "\n短边长 : ")   leng     (/ (- (sqrt 5) 1) 2);黄金比长边尺寸   pt2 (list (+ (car pt1) no6) (+ (cadr pt1) (* no6 leng)))    )    (command "rectang" pt1 pt2);黄金比的长方形 )

mubai

黄金分割嘛，[(√￣5)-1]/2，没法子输入，也不知道你看懂没有