Реализации алгоритмов/Губка Менгера: различия между версиями
Содержимое удалено Содержимое добавлено
м оформление |
|||
Строка 3:
== Построение методом хаоса на [[w:Visual Basic for Applications|VBA]] для [[w:Система автоматизированного проектирования|CAD-систем]] ==
Строится губка Менгера с центром в начале координат и ребром 2, т.е. каждая вершина удалена от центра на 1 по оси x, на 1 по оси y и на 1 по оси z▼
Координаты <math>i-</math>й точки находятся по закону:
<math>x_i = \frac{x_{i-1} + 2x_A}{3}; y_i = \frac{y_{i-1} + 2y_A}{3}; z_i = \frac{z_{i-1} + 2z_A}{3}</math>, где:
<math>x_{i-1}, y_{i-1}, z_{i-1}</math> — координаты предыдущей точки <math>P_{i-1}</math>;
<math>x_A, y_A, z_A</math> — координаты вершины исходного куба, выбранной на <math>i-</math>й итерации.
▲Строится губка Менгера с центром в начале координат и ребром
<source lang="vb">
Строка 20 ⟶ 29 :
If R < 0.05 Then 'Step = 1 / 20, where 20 = 27 total - 7 empty
location(0) = (location(0) - 1) / 3 '0
location(1) = (location(1) - 1) / 3 'location(1) = (location(1) - 2*0.5) / 3
location(2) = (location(2) - 1) / 3
ElseIf R < 0.1 Then
location(0) = (location(0) - 1) / 3 '1
location(1) = location(1) / 3 'location(1) = (location(1) - 2*0) / 3
location(2) = (location(2) - 1) / 3
ElseIf R < 0.15 Then
| |||