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