Викиучебник

Реализации алгоритмов/Губка Менгера: различия между версиями

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Содержимое удалено Содержимое добавлено
ВизуальныйВики-текст
м оформление
Строка 16:
Dim R As Double 'Random Number
 
For i = 1 To 1000000 'Million iterations may take a long time
R = Rnd(1)
If R < 0.05 Then 'Step = 1 / 20, where 20 = 27 total - 7 empty
Строка 123:
</source>
 
[[Файл:Menger4_Coupe.jpg|thumb|Губка Менгера в разрезе]]
Сечение плоскостью <math>x-y+z=0</math> содержит [[w:гексаграмма (символ)|гексаграммы]]. Для получения соответствующего разреза нужно рисовать только те точки, которые лежат ниже этой плоскости: <math>x-y+z<0</math>, т.е. наложить условие при отрисовывании точек:▼
Сечение плоскостью <math>x-y+z=0</math> содержит [[w:гексаграмма (символ)|гексаграммы]].
 
▲Сечение плоскостью <math>x-y+z=0</math> содержит [[w:гексаграмма (символ)|гексаграммы]]. Для получения соответствующего разреза нужно рисовать только те точки, которые лежат ниже этой плоскости: <math>x-y+z<0</math>, т.е. наложить условие при отрисовывании точек:
<source lang="vb">
If location(0) - location(1) + location(2) < 0 Then
Источник — https://ru.wikibooks.org/wiki/Реализации_алгоритмов/Губка_Менгера