Выполнение расчета диаметров трубопроводов однотрубной теплосети
Если файл Шаблон для расчета диаметров трубопроводов однотрубной теплосети.mdb, созданный в предыдущем разделе, не открыт, то откроем его с помощью команды Файл / Открыть расчет. С помощью команды Файл / Сохранить расчет как... сохраним открытый файл расчета под новым именем: Расчет диаметров трубопроводов однотрубной теплосети.mdb. Если файл справочников Теплофикация и тепловые сети. Прил. 11 (Стр. 445).mdb не открыт, то откроем его с помощью команды Файл / Открыть справочники.
Ввод параметров теплосети. Выполним команду Данные / Параметры теплосети. В форме Параметры теплосети выполним команду Схема теплосети / Рисование схемы теплосети.
В форме Рисование схемы теплосети с помощью команды Карта / Открыть карту откроем файл Карта.jpg с изображением карты. Нарисуем схему теплосети. Процесс рисования схемы описан в разделе Рисование схемы теплосети. Закроем форму Рисование схемы теплосети.
В форме Параметры теплосети заполним таблицы Узлы теплосети, Участки теплосети, Конечные узлы теплосети. Заполненная форма Параметры теплосети:
Закроем форму Параметры теплосети. Введем исходные данные расчета в главную форму программы, как показано на рисунке ниже.
Выполним команду Данные / Выполнить расчет. Выполнение расчета может занять некоторое время. После завершения расчета программа предложит сохранить текст расчета. Сохраним текст расчета в файле Расчет диаметров трубопроводов однотрубной теплосети.txt. Сохраненный текст будет открыт в отдельном окне. Закроем это окно. На экране появится форма, в которой пользователю предлагается выбрать дальнейшие действия. Закроем эту форму, нажав кнопку ОК.
Теперь можно формировать отчеты.
Примечание. Среднюю плотность воды для каждого участка теплосети можно вычислить по температуре воды. Для этого в программе предусмотрена функция ПлВодыПоТ и предопределенные показатели: ТВодыНачПод, ТВодыНачОбр, ТВодыКонПод, ТВодыКонОбр. Примерные формулы для вычисления средней плотности воды на участке в подающем трубопроводе:
Средняя температура воды на участке в подающем трубопроводе, град. С (СрТВодыПод) = (<ТВодыНачПод> + <ТВодыКонПод>) / 2
Средняя плотность воды на участке в подающем трубопроводе, кг./м.3 (СрПВодыПод) = ПлВодыПоТ(Округл(<СрТВодыПод>; 0))
Средний удельный вес воды для каждого участка можно определить по средней плотности.