Реализации алгоритмов/Ковёр Серпинского: различия между версиями

м
<source> -> <syntaxhighlight> (phab:T237267)
м (<source> -> <syntaxhighlight> (phab:T237267))
 
[[File:Animated Sierpinski carpet.gif|thumb|6 итераций построения ковра Серпинского.]]
 
<sourcesyntaxhighlight lang="php">
<?php
set_time_limit(5);
imagepng($img);
?>
</syntaxhighlight>
</source>
 
== Построение рекурсивным методом на [[w:en:Geometric Description Language|GDL]] для [[w:ArchiCAD|ArchiCAD]] ==
Переходим в 3D-скрипт.
 
<syntaxhighlight>
<source>
 
!!!3D Script
DEL 4 !0: 1,1
RETURN
</syntaxhighlight>
</source>
 
== Построение методом хаоса на [[w:Visual Basic for Applications|VBA]] для [[w:Система автоматизированного проектирования|CAD-систем]] ==
Строится ковёр Серпинского с центром в начале координат и стороной 1, т.е. каждая вершина удалена от центра на 0.5 по оси x и на 0.5 по оси y.
 
<syntaxhighlight>
<source>
Sub Gasket()
 
ZoomExtents
End Sub
</syntaxhighlight>
</source>
 
== Построение методом [[w:en:Iterated Function System|IFS]] на [[w:Lisp|Lisp]] для [[w:Система автоматизированного проектирования|CAD-систем]] ==
Использована [[w:en:Iterated Function System|IFS]]-функция, реализованная программистом [http://www.lee-mac.com/iteratedfunctionsystems.html Lee Mac].
<sourcesyntaxhighlight lang="lisp">
(defun c:gasket (/ ptlst pt probability)
;; Thanks to Lee Mac ~ 23.06.2014
(defun Point (pt)
(entmakex (list (cons 0 "POINT") (cons 10 pt) (cons 62 40))))
</syntaxhighlight>
</source>
 
== См. также ==
583

правки