美丽的数学 之 雪花

lee1892

这个貌似有人发过，不过肯定没有动画。用向量+链表计算方便很多。


改变代码中生成子节点内长度的部分，会出一些有趣的效果：
[code=vb]Private Sub GetChildren(ByVal nRoot&, ByVal nLen&)
    Dim dAngle#, dLength#, dX#, dY#, nNext&, nNew&
    With arrVertex(nRoot)
        .Length = .Length / 3 ' 这里 / 3 改为 * 3 / 7
        dAngle = .Angle: dLength = .Length
'......[/code]


或则 4/9


或则 7/17，8/17




美丽的数学系列的上一个帖子：一片漂亮的树叶
美丽的数学系列的下一个帖子：彩色的灌木丛






补充内容 (2013-12-14 14:35):
感兴趣的去看这个帖子：美丽的数学 之 奇妙的分形

踏雪访梅

真漂亮！雪花原来是这样生成的！

李甲

老师要出专辑啦               

kuangben8

这图表制作的确实给力！

Curry_Chen

作为初学者，这一大串代码，真是看不懂啊，到哪一天我才能像这样牛的~~~

微笑king

妞妞牛牛牛牛