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

Содержимое удалено Содержимое добавлено
Создал
 
Строка 54:
 
<source lang="vb">
Sub Gasket()
Dim i 'iterations
ThisDrawing.SetVariable "PDMODE", 0
Dim R 'random
ThisDrawing.SetVariable "PDSIZE", 1
Dim x
 
Dim y
Dim pointObj As AcadPoint
Dim x As Double
Dim y As Double
 
Dim i As Long 'Iteration Number
Dim R As Double 'Random Number
 
For i = 1 To 10000
Строка 92 ⟶ 97 :
 
ZoomExtents
End Sub
</source>