Набрался наглости открыть тему по простейшему мини-приложению, т.к только в одной
программе теплотехнического расчета обнаружил подобную опцию.
Если кто-то возразит, что современные программы (Allplan, Allklima...) считают с чертежа,
то готов возразить и привести пример из той же Климы.

Данное приложение в VB c внедренным OLE-объектом в виде лита EXCEL (версии 2003), т.е
приложение работает при предустановленной программе EXCEL.

p.s Открыл тему с целью потестить, получить сведения об ошибках с целью доработки.
Упреждая предложения "сделать отдельным приложением в VB" без связи с EXCEL
отвечу - присылай код в VB.

Общий вид приложения

Хорошая программка!
Вы - молодец.

всё это, конечно, здОрово, но узко специализированно, т. к. считает пол только на уровне "ноль" от пов-ти земли.
ИМХО, программка требует небольшой доработки. заодно уж можно предусмотреть и расчет приведенного сопротивления участка пола.

В зоне 1 не учитываются допольнительно угловые площади квадратов. во всяком случае для верхнего варианта так

В акаде построил несколько прямоугольников по "верхнему варианту" с 2-я, 4-мя зонами,
проверил, ВСЕ площади по зонам сходятся, ОШИБКИ НЕТ!

В трех верхних вариантах не учитываются. Даже на самих рисунках определения зон эти квадраты не показаны.

3D, имеется ввиду тот факт, что при теплотехническом расчете пола по грунту площади углов 1-й зоны (размером 2х2) удваиваются. почитайте учебник Сканави, там всё доходчиво объяснено.

Если честно, то я первый раз сталкиваюсь с подобным вариантом исчисления
площади 1-ой зоны. В СНиПе 2.04.05-91* и справочнике P.В Щекина (см.скрин ниже)
этот нюанс не указан. Хотя у Щекина эти зоны выделены пунктиром.
Насколько единственно правильно исчислять площадь (1-ой зоны) подобным образом, т.е
по справочнику Сканави... ?
И вопрос к тем, кто пользуется RTI последней версии-там действительно
учитываются эти "квадраты 2х2" с к=2?

Учитывает. Забил помещение 20х30 м. Как видно в RTI общая длина получается 100м/ умножая на ширину зоны 2м получаем площадь 200м2. в вашей же программе получается 184м2. Это как раз не хватает 4 угла 2х2 каждый.

Хорошо, исправлю данное упущение для 1-ой зоны в версии 2.0 (которую выложу чуть позже).
При данном варианте расчета алгоритм (код) даже проще...
Для тех кому пригодится этот ввариант хочется только посоветывать, что необходимо накидывать
к результатам расчета на углы 1-ой зоны еще по 4м2 на каждый угол.

3D, выкладывай исправленный вариант. Я думаю, многие тебе спасибо скажут !

Исправил, выкладываю версию с учетом зон 2х2м в вариантах с углами.

Активация расчета возможна помимо нажатия на соответствующий вариант-
кружок с точкой (OptionButton) еще нажатием на рисунок (соотв-ий вариант).

Если есть замечания, пишите.

Спасибо!

Поправьте в программе (v.2.0):

Если ввести a=20,5 b=10 получаем S1=120, S2=72, S3=40, S4=-16
Если ввести a=20.5 b=10 получаем S1=122, S2=74, S3=42, S4=-17

Сделайте нормальный обработчик точек и запятых.
4-я зона отрицательная.

ОТВЕТ НА РИСУНКЕ, БУДТЕ ВНИМАТЕЛЬНЫ

Может сделать, что-бы программа самостоятельно определяла какой размер больше и подставляла в свою формулу правильно?

Идея хорошая, возможно и реализую, когда будет время (в версии v.3.0)

там алгоритм пишется за 5 минут

РАСЧЕТ ТЕПЛА НА НАГРЕВ ВОЗДУХА
Дабы не создавать новой темы выкладываю еще одно мини приложение
которое сделал сам. Приложение сдеано в VB 6.0 полностью автономно,
весит менее 1 МБт, интуитивно-понятно, ссылки на первоисточник приведены.

Приложение полезно:
- для быстрого расчета требуемой нагрузки на калорифер;
- проверки нагрузки на калорифер (в чужих проектах) вне использования
других приложений.

Без инсталятора, выглядит данное приложение
следующим образом см. ниже.

К ТЕМЕ "РАСЧЕТ ЗОН ПОЛА"



Исправил.
Теперь больший размер для первых двух вариантов
определяется программно!