[原创]：林氏分形lsp的实现

xyp1964

12H：

xyp1964

1. [FONT=courier new]("      林氏分形代码含义"
   
2.   "---------------------------------"        ""                                      "F 从当前位置向前走一步，同时画线"
   
3.   "G 从当前位置向前走一步，但不画线"        "+ 从当前方向向左转一个给定的角度"    "- 从当前方向向右转一个给定的角度"
   
4.   "| 原地转向180°"                        "C 线改颜色"                              "< 在co基础上增加颜色1"
   
5.   "> 在co基础上减少颜色1"                "{ 增加长度0.8倍"                      "} 减少长度0.8倍"
   
6.   "[ 储存当前的方向和点位参数"                "] 提取最后的方向和点位参数"              ""
   
7.   "---------------------------------"
   
8. )[/FONT]

复制代码

carrot1983

还有其它分形~~~
一起亮出来~~~
开个分形专帖。
不让人活了。
这个高度无人能及啊~

ywqq

呵呵
太复杂了,
学不会.

highflybird

[php]
;;;另外一种分形，三翅展鹰
(defun c:3W (/ AA B C I U W X Y Z)
  (setq        aa -0.45
        b  0.93
        c  (- 2 (+ aa aa))
        x  1.0
        y  1.0
        w  (+ (* aa x) (/ (* c x x) (1+ (* x x))))
  )
  (setq i 0)
  (repeat 10000
    (putPixel (fix (+ (* x 30) 250))
              (- 200 (fix (* y 25)))
              i
    )
    (setq z x)
    (setq x (+ (* b y) w))
    (setq u (* x x))
    (setq w (+ (* aa x) (/ (* c u) (1+ u))))
    (setq y (- w z))
    (setq i (1+ i))
  )
)

(defun putpixel        (i j col)
  (entmake
    (list
      '(0 . "CIRCLE")
      (list 10 i j)
      (cons 40 0.5)
      (cons 62 (rem col 256))
    )
  )
)
[/php]

animal212

好强大楼上，这么精短的代码，能实现这么复杂精杂的图案。。。

highflybird

稍微复杂一点的例子，生成一片树叶：
[php]
;;;  分形植物叶
(defun c:Plant1 (/ e u x y c)
  (setq        x 0
        y 0
  )
  (repeat 10000
    (setq e (rnd))
    (cond
      ( (< e 1)
        (setq x 0
              y (* 0.16 y)
              c 2
        )
      )
      ( (and (>= e 1) (< e 86))
        (setq u (+ (* 0.85 x) (* 0.04 y))
              y (+ (* -0.04 x) (* 0.85 y) 1.6)
              x u
              c 3
        )
      )
      ( (and (>= e 86) (< e 97))
        (setq u (- (* 0.2 x) (* 0.26 y))
              y (+ (* 0.23 x) (* 0.22 y) 1.6)
              x u
              c 4
        )
      )
      (t
        (setq u (+ (* -0.15 x) (* 0.28 y))
              y (+ (* 0.26 x) (* 0.24 y) 0.44)
              x u
              c 5
        )
      )
    )
    (putPixel (+ (* 50 x) 300) (- 500 (* 50 y)) c)
  )
)

;;;  1-100的随机数
(defun RND (/)
  (rem (/ (getvar "cputicks") 10) 100)
)

;;;  一个简单的画像素的函数
(defun PutPixel (x y color)
  (entmake
    (list
      '(0 . "POINT")
      (cons 10 (list x y))
      (cons 62 color)
    )
  )
)
[/php]

caogis

分形好象是研究生课程，没学过分形都不知道是什么概念！

gysjy

厉害。不可思议！

xyp1964

蒿草

xyp1964

树叶

xyp1964

以上属于IFS(迭代函数系统)

xyp1964

snow

xyp1964

koch3

xyp1964

koch6