Реализации алгоритмов/Ковёр Серпинского: различия между версиями
Содержимое удалено Содержимое добавлено
Lisp from Lee Mac |
|||
Строка 62:
Dim pointObj As AcadPoint
Dim
Dim i As
Dim R As Double 'Random Number
location(2) = 0 'Z Coordinate of Chaos
For i = 1 To
R = Rnd(1)
If R < 0.125 Then
ElseIf R < 0.25 Then
location(1) = location(1) / 3 'location(0) = (location(0) - 2*0) / 3
ElseIf R < 0.375 Then
ElseIf R < 0.5 Then
ElseIf R < 0.625 Then
ElseIf R < 0.75 Then
ElseIf R < 0.875 Then
Else
End If
Set pointObj = ThisDrawing.ModelSpace.AddPoint(
Next i
ZoomExtents
End Sub
| |||