分形播放

fuccaro · 发表于 2022-7-5 17:34:48

你好，李！
谢谢你的好意。
我也使用了点实体，分辨率为500x500，不需要考虑缩放因子；我只是调整了AutoCAD窗口的大小，直到它看起来很好。之后，我启动了lisp，它使用outjpg命令生成了图像。计算机工作了大约3个小时，生成了25幅图像，我把它们放在一个动画gif中。不幸的是，我不能张贴动画，可能文件大小太大…
此外，颜色映射是最简单的：如果在9次迭代后，点感觉不到圆，则该点获得9号颜色（根据AutoCAD颜色方案）。
我不是一个艺术家，我很高兴我得到了这些图片-我写的程序是为了我自己的乐趣，我决定在这里分享这些图片。
再次感谢，祝你愉快！

fuccaro · 发表于 2022-7-5 17:35:56

登录/注册后可看大图

为了简化我的计算机工作，这次我只画了颜色（意味着迭代次数）在5到250之间的点（也就是说，250是我考虑的最大迭代次数）。

fuccaro · 发表于 2022-7-5 17:39:28

可能是我贴的最后一张图片：在三维空间中移动。

Dadgad · 发表于 2022-7-5 17:42:52

Fuccaro，看到你仍然喜欢跳出禁区，创造一点魔法，真的很令人振奋，在这么多年之后，做得很好！

Lee Mac · 发表于 2022-7-5 17:48:26

非常好的fuccaro下一个挑战是曼德尔灯泡

fuccaro · 发表于 2022-7-5 17:51:52

使用公式Z=Z^2+C，我得到了前面的图像。对于Z=Z^2+C，我得到了这个：

登录/注册后可看大图

fuccaro · 发表于 2022-7-5 17:55:14

Sierpinski再一次，这次遵循概率规则。

登录/注册后可看大图

李，在你的允许下，我用了你的两个套路——正如预期的那样，谢谢！

copy

(defun c:Sierpinski()
 (setq v (list '(1 1 0) '(0 1 1) '(1 0 1) '(0 0 0))) ;vertices
 (repeat 500
   (setq point (list (LM:randrange -2 2) (LM:randrange -2 2) (LM:randrange -2 2)))
   (repeat 25 (setq point (next point)))
   (repeat 500
     (setq point (next point))
     (entmake (list (cons 0 "POINT")
            (cons 10 point)
            (cons 62 (fix (apply '+ (mapcar '* '(3 9 40 111) (mapcar 'distance (list point point point point) v)))))))
   )
  )
 )
(defun next (p)
 (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p (nth (LM:randrange 0 3) v)))
 )
 
;; Rand  -  Lee Mac
;; PRNG implementing a linear congruential generator with
;; parameters derived from the book 'Numerical Recipes'
(defun LM:rand ( / a c m )
   (setq m   4294967296.0
         a   1664525.0
         c   1013904223.0
         $xn (rem (+ c (* a (cond ($xn) ((getvar 'date))))) m)
   )
   (/ $xn m)
)
;; Random in Range  -  Lee Mac
;; Returns a pseudo-random integral number in a given range (inclusive)
(defun LM:randrange ( a b )
   (+ (min a b) (fix (* (LM:rand) (1+ (abs (- a b))))))
)

[编程交流] 分形播放

发表回复

精选推荐