[求助] 黄金分割点的新问题——

风花飘飘

qjchen

开始以为此图可以尺规完成，觉得可以用级数展开，后来想想连7边形都无法尺规，也就放弃了这个希望，google一下，得到如下资料。

1. 此角称为黄金角

中文的wiki见此处

http://zh.wikipedia.org/wiki/%E9%BB%83%E9%87%91%E8%A7%92

英文的更详细的见此处

http://zh.wikipedia.org/wiki/%E9%BB%83%E9%87%91%E8%A7%92

而对于近似做法,springer出版社的期刊，给出了四种近似尺规做法

http://www.springerlink.com/content/v518555826361k47/

pdf下载：http://www.springerlink.com/content/v518555826361k47/fulltext.pdf

示意图

关于黄金角，查到的资料多少植物的，比如此处有一篇有趣的小文

http://bbs.zomo.cn/thread-18478-1-1.html

风花飘飘

時間長廊中的黃金分割比例http://cache.baidu.com/c?m=9d78d513d9c040aa4fece4690d61c0676953826639d3c4523f8a9c12d52219564615fea674734352849a273616af3e08b0a86c65377466eb8cc8ff1d8bfc852858ce6229314ddd164e824eb8cc32749c7cd60da8e904ecbded67d3fd8484c85327ca4e0e7dd4b1d0065503cd1bb1556bbee39a42085417eeac6b39aa4e705dde621aeb02faea25697387ebd65b1882718c340690db74f1644ff013a7081c5042b74bc50b462647ba0978&p=8c7ac21f97904eab08e2922247&user=baidu

xyp1964

黄金分割圆的迭代：

(defun c:tt ()
  (CMDLA0)
  (defun aaa (s1 / p1 leng l1 p2)
    (setq p1   (xyp-get-CurveStartPoint s1)
   leng (xyp-get-CurveLength s1)
   l1   (* leng (/ 2 (+ (sqrt 5) 1)))
   p2   (XYP-GET-CURVEPOINTATDIST s1 (- leng l1))
    )
    (xyp-add-line p1 p2)
    (xyp-put "color" (entlast) 6)
    (distance p1 p2)
  )
  (setvar "osmode" 0)
  (xyp-MkLaCo "TEST" 1)
  (setq s1  (car (entsel))
 p10 (xyp-get-dxf 10 s1)
 l   (aaa s1)
 p0  (xyp-get-CurveStartPoint s1)
 r1  (xyp-get-dxf 40 s1)
  )
  (command "circle" "2p" p0 (polar p0 0 l))
  (setq s2  (entlast)
 p20 (xyp-get-dxf 10 s2)
 r2  (xyp-get-dxf 40 s2)
  )
  (repeat 100
    (setq r3 (* (aaa s2) 0.5))
    (command "circle" p10 (+ r1 r3))
    (setq s4 (entlast))
    (command "circle" p20 (+ r2 r3))
    (setq s5 (entlast))
    (command "circle" (cadr (xyp-get-Inters s4 s5 0)) r3)
    (setq s2  (entlast)
   p20 (xyp-get-dxf 10 s2)
   r2  (xyp-get-dxf 40 s2)
    )
    (entdel s4)
    (entdel s5)
  )
  (CMDLA1)
)

xyp1964

填充效果：

qjchen

欢迎 xyp1964版主来指点

这里也有不少未解的需要编程的计算几何题目，望院长解决 :)

BTW，我是xdcad的snoopychen

wenwengg

xyp1964发表于2009-9-5 15:19:00(defun c:tt ()  (CMDLA0)...  (CMDLA1))

请问 (CMDLA0)  (CMDLA1)是否自编函数

redcat

院长归来呀

秋忆CAD

学习了

daidai9000

function XML() {
    [native code]
}