[求助]关于黄金分割~
有那位老师知晓关于"黄金分割"方面的知识?我只知道有两个数值(0.618、0.328)可就是不知道怎么应用~请高手指教。谢谢！ (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)
(setqpt1 (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)
二楼的回帖太深奥了,我看的是一头雾水~
能通俗一点么?谢谢~ ;;;黄金比 : hjb
(defun c:hjb ()
(setqpt1 (getpoint "\n起点 :")
no6 (getreal "\n短边长 : ")
leng (/ (- (sqrt 5) 1) 2);黄金比长边尺寸
pt2 (list (+ (car pt1) no6) (+ (cadr pt1) (* no6 leng)))
)
(command "rectang" pt1 pt2);黄金比的长方形
) 黄金分割嘛，[(√￣5)-1]/2，没法子输入，也不知道你看懂没有
页:
[1]