A L T R O O M
 
 
 
tags
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
rus
 
ukr
eng
 

Ліквідна архітектура (3/7)


Програмування

Sub trajectory() 'Побудова траєкторії водяний оболонки
Dim dTrStart(0 To 2) As Double 'початкова точка фрагменту траєкторії
Dim dTrFinish(0 To 2) As Double ‘кінцева точка фрагменту траєкторії
Dim myLine As AcadLine
dTrStart(2) = 0#
dTrFinish(2) = 0#
H = 25 'змінна. Верхня відмітка водяної оболонки (подача води)(м)
V = 30 'змінна. Горизонтальна складова швидкості руху води(м/с)
T = 10 'змінна. Одиниця часу, на яку умовно розділяється траєкторія (1/с)
dV = V / T 'обчислюється. Горизонтальне переміщення води за одиницю часу
dgH = 9.8 / (T * T) 'обчислюється. Вертикальне переміщення води за одиницю часу
K = 0 'величина для підрахунку кількості циклів
dTrFinish(1) = H
dTrFinish(0) = 0
'цикл. Розраховує і пробудовує кожну ділянку траєкторії, працює поки вертикальна складова переміщення не буде = 0, тобто оболонка не досягне водної гладі
While dTrFinish(1) > 0
K = K + 1
dTrStart(0) = dTrFinish(0)
dTrStart(1) = dTrFinish(1)
dTrFinish(0) = dTrFinish(0) + dV
dHf = dgH * (K - 1)
dTrFinish(1) = dTrFinish(1) - (K * dgH)
Set myLine = ThisDrawing.ModelSpace.AddLine(dTrStart, dTrFinish) 'викреслює розраховану ділянку
Wend
'кінець циклу.
End Sub

Що це?

Ви могли подумати, що це якась дурість, але насправді це цілком реальна програма, так званий макрос. Подібно виглядають комп'ютерні віруси.
 
Але цей макрос особливий. Він створює траєкторію руху води в оболонці. Змінюючи змінні, ми отримуємо абсолютно різні за своїми характеристиками оболонки.
 
Методи стандартних креслень не підходять для створення та опису живих оболонок. Їх заміною і служить цей макрос. Приклади генерованих оболонок ви можете бачити внизу. Макрос працює в середовищі програми Autocad.

> Обговорення <
 
 
 
 
 
 
 
 
 
 
 
 
 
 
   
 
© Архітектурна майстерня «Септіма». Київ, вул. Госпітальна, 12.
 
+38 (044) 277 81 68
 
  Rambler's Top100