"ОКно НАпротив" - расчет keo при боковом и верхнем освещении (VBA)
Программка написана для расчёта КЕО при боковом и верхнем освещении(коэффиц. естеств. освещённости). Промежуточные величины находятся путём линейной интерполяции по таблицам (СП 23-102-2003 «Естественное освещение жилых и общественных зданий», приложение Б). Применен метод последовательной линейной интерполяции последовательным отсечением промежуточных значений.Также применен метод аналитического определения N1 и N2 по формулам Данилюка (методика прилагается в пакете установки).
БЛАГОДАРНОСТЬ - Piter (Zodchy) за предоставленную аналитическую методику построения графиков Данилюка (исходники целиком приложены к программе)
Просьба по опыту использования калькулятора отписаться в комментах или на мэйл(balandravens@mail.ru).Предполагается дальнейшее совершенствование программы.
Исправления исходного варианта -
23.11.2007 Внесены исправления в расчетный модуль, проведено тестирование, улучшен интерфейс
30.11.2007 Добавлен расчет Qi, улучшен интерфейс
5.12.2007 Исправлена ошибка при вычислении kzd0 при z2<0.5
14.12.2007 Добавлен модуль - расчет геометрического КЕО по графикам А.М.Данилюка (пока без учета противостоящих зданий)+ вычисление коэффицента Qi. Модуль прошел предварительное тестирование
5.03.2008 Добавлен основной расчетный модуль КЕО для бокового освещения (в ограниченной версии - для расчета одного противостоящего здания, параллельного расположения, прямоугольной формы) для предварительного тестирования.
14.03.2008 В основной расчетный модуль добавлена возможность поворотов противостоящего здания (с отдельной формой отчета)
30.03.2008 Исправлены ошибки при формировании отчетов.
9.04.2008 Создан объединенный блок для подсчета кео при боковом освещении при многих противостоящих зданиях различных конфигураций.
Изменен интерфейс, создан новый шаблон отчета, уточнены данные для подсчета лучей по графикам Данилюка.
17.04.2008 Исправлен недочет в основном модуле при подсчете Kzdj, добавлен файл Table.xls
23.04.2008 Программа доведена до итогового вида, обновлен файл отчета, допускается до 5 окон в расчетной схеме. Также существенно упрощен алгоритм определения N1 и N2
22.05.2008 Добавлен расчётный блок для приведения окон овального, полукруглого и круглого видов к прямоугольной форме
5.06.2008 Исправлены небольшие недочеты в формах.
25.07.2008 Добавлен блок для рассчёта верхнего освещения. Предварительное тестирование пройдено, файл отчета пока н составлен. Значения промежуточных переменных показаны через MsgBox-ы. Ограничения - не более 15 светопроемов и 6 рассчётных точек.
17.11.2008 Включена возможность вычисления при полном перекрытии окна
противостоящим зданием (только по отраженной составляющей)
5.02.2009 Исправлена ошибка в расчётном блоке, проявлявшаяся при выборе высоты точки на уровне рабочей поверхности от пола (0,8).
9.02.2009 Исправлена ошибка по подсчету qi при наличии противостоящих зданий (по методу вычисления центра тяжести плоской фигуры), добавлено вычисление z1 и z2 в отчет, в пакет установки добавлена инструкция по расчёту в случае нескольких окон.
16.02.2009 Откорректирована методика подсчета N2 в плане.
31.03.2009 Введена принудительная замена точек на запятые в разделении чисел, исправления в формах
19.10.2009 Исправлена ошибка в вычислении Ро при Рср от 0,35 до 0,45
БЛАГОДАРНОСТЬ - Piter (Zodchy) за предоставленную аналитическую методику построения графиков Данилюка (исходники целиком приложены к программе)
Просьба по опыту использования калькулятора отписаться в комментах или на мэйл(balandravens@mail.ru).Предполагается дальнейшее совершенствование программы.
Исправления исходного варианта -
23.11.2007 Внесены исправления в расчетный модуль, проведено тестирование, улучшен интерфейс
30.11.2007 Добавлен расчет Qi, улучшен интерфейс
5.12.2007 Исправлена ошибка при вычислении kzd0 при z2<0.5
14.12.2007 Добавлен модуль - расчет геометрического КЕО по графикам А.М.Данилюка (пока без учета противостоящих зданий)+ вычисление коэффицента Qi. Модуль прошел предварительное тестирование
5.03.2008 Добавлен основной расчетный модуль КЕО для бокового освещения (в ограниченной версии - для расчета одного противостоящего здания, параллельного расположения, прямоугольной формы) для предварительного тестирования.
14.03.2008 В основной расчетный модуль добавлена возможность поворотов противостоящего здания (с отдельной формой отчета)
30.03.2008 Исправлены ошибки при формировании отчетов.
9.04.2008 Создан объединенный блок для подсчета кео при боковом освещении при многих противостоящих зданиях различных конфигураций.
Изменен интерфейс, создан новый шаблон отчета, уточнены данные для подсчета лучей по графикам Данилюка.
17.04.2008 Исправлен недочет в основном модуле при подсчете Kzdj, добавлен файл Table.xls
23.04.2008 Программа доведена до итогового вида, обновлен файл отчета, допускается до 5 окон в расчетной схеме. Также существенно упрощен алгоритм определения N1 и N2
22.05.2008 Добавлен расчётный блок для приведения окон овального, полукруглого и круглого видов к прямоугольной форме
5.06.2008 Исправлены небольшие недочеты в формах.
25.07.2008 Добавлен блок для рассчёта верхнего освещения. Предварительное тестирование пройдено, файл отчета пока н составлен. Значения промежуточных переменных показаны через MsgBox-ы. Ограничения - не более 15 светопроемов и 6 рассчётных точек.
17.11.2008 Включена возможность вычисления при полном перекрытии окна
противостоящим зданием (только по отраженной составляющей)
5.02.2009 Исправлена ошибка в расчётном блоке, проявлявшаяся при выборе высоты точки на уровне рабочей поверхности от пола (0,8).
9.02.2009 Исправлена ошибка по подсчету qi при наличии противостоящих зданий (по методу вычисления центра тяжести плоской фигуры), добавлено вычисление z1 и z2 в отчет, в пакет установки добавлена инструкция по расчёту в случае нескольких окон.
16.02.2009 Откорректирована методика подсчета N2 в плане.
31.03.2009 Введена принудительная замена точек на запятые в разделении чисел, исправления в формах
19.10.2009 Исправлена ошибка в вычислении Ро при Рср от 0,35 до 0,45
Комментарии
Авторизоваться
Если хотите получить что-то на E-mail - укажите его, т.к. в списке "Пользователи" отсутствует "Баландин Андрей".
balandravens@mail.ru
Замечание
На примере ранне выполненного расчёта подставил свои данные в Вашу программу и программу под ACAD "lisp (от batmax, он же Maxim T)11.01.2007".
Получилось под ACADом коэффциенты r0,bf и Kзд сошлись с ручным расчётом, а в вашей программе сошлись z1,z2 (расчёт по формулам)и r0 (интерполяция).Bf и Kзд не сошлись (наверное где-то ошибки в таблицах)
найденные ошибки в расчетном блоке исправлены. Выложена исправленная версия.
Замечу, что программа под Lisp (от batmax, он же Maxim T)11.01.2007), как выяснилось, выдает некорректные результаты при выборе переменных за пределы табличных значений (например, при выборе Рф больше 0,6)
Буду рад всем замечаниям и предложениям, тем более, что работаю над программой общего вычисления КЕО (а не отдельных вспомогательных переменных), используя расчетные модули выложенной программки.
Выявлены следующие недостатки:
-При подсчёте Kzd/расчёт по готовым переменным:
при расчёте выдаёт сообщение "Результат меньше 0. Введёте данные вновь?"
Вот значения для проверки: Z1=0,81;Z2=0,91;рср=0,5;рф=0,5
Наверное что-то с перехватом ошибок
- при выходе из этой вкладки в меню выбора
зависает с внутренней ошибкой 402:
Надо исправить в :
Private Sub CommandButton4_Click()
UF_R0.Hide "исправить на UF_KZD0.Hide"
UserForm1.Show
Еще раз благодарю.
Посмотрите раздел определение средневзвешенных коэффциентов.
В определении рф при подставлении коэф отражения материала p(к примеру согласно таблице для светло-серого бетона р=0,6)получаются правильные данные,а при выборе того же бетона выходят совсем другие значения
Всё остальное работает нормально
Приношу извинения за неточности - на VBA с Дельф, при схожей работе с формами есть разница в синтаксисе обработки