![]() |
Здравствуйте, гость ( Вход | Регистрация )
ИНН: 7714824045 |
|
![]() ![]() |
![]() |
![]()
Сообщение
#1
|
|
Группа: Участники Форума2 Сообщений: 1775 Регистрация: 16.12.2005 Пользователь №: 1721 ![]() |
Программа WaterCalculations предназначена для определения расчетных расходов воды в системах водоснабжения и канализации, теплоты на нужды горячего водоснабжения, подбора приборов учета расхода и определения диаметров труб на вводе. расчет ведется по методике СНиП 2.04.01-85 "Внутренний водопровод и канализация зданий".
Для работы программы необходимо в параметрах безопасности Excel разрешить использование макросов. Расчет производится автоматически при изменении исходных данных. В программе присутствует возможность добавления собственных потребителей, типов труб, водомеров и сан.тех приборов. После завершения ввода исходных данных, результаты расчетов можно распечатать или сохранить в оформленном виде с помощью виртуального принтера. Программа распространяется бесплатно, точность расчетов, выполняемых программой, не гарантируется, поэтому наиболее ответственные расчеты необходимо проверить вручную. Если вы хотите, чтобы программа совершенствовалась, просьба сообщить о своих замечаниях в эту тему, если у вас возникли вопросы по программе, их так же можно задать в этой теме. актуальная версия 9.11: WaterCalculations_9.11.xls ( 1,33 мегабайт ) Сообщение отредактировал Егор - 6.3.2017, 14:35 |
|
|
![]()
Сообщение
#2
|
|
Группа: Участники Форума2 Сообщений: 1775 Регистрация: 16.12.2005 Пользователь №: 1721 ![]() |
обновление программы
версия 4 (устаревшая версия. актуальную версию см. в первом сообщении) -добавлены три водосчетчика для трех различных потребителей WaterCalculations4.7z ( 73,24 килобайт ) Сообщение отредактировал Егор - 15.10.2012, 12:39 |
|
|
![]()
Сообщение
#3
|
|
Группа: Участники форума Сообщений: 28 Регистрация: 26.12.2005 Пользователь №: 1782 ![]() |
Удобная программа, мне понравилась.
Есть небольшие замечания и пожелания, если можно. В разделе «Холодная вода» при расчетах водопотребления потребителей написано «ГОРЯЧАЯ» вода….и кое-где вместо м3/ч написано – л/с….но это ерунда. Удобно было бы, чтоб рассчитывались суточные и среднечасовые расходы воды. К стати, счетчик подбирается исходя из СРЕДНЕЧАСОВОГО расхода и проверяется на пропуск максимального секундного расхода. Определение количества теплоты на ГВС тоже не по СНиПу (п. 3.13) А так, всё предельно удобно и просто. Спасибо. |
|
|
![]()
Сообщение
#4
|
|
Группа: Участники форума Сообщений: 241 Регистрация: 27.9.2005 Из: СПб Пользователь №: 1253 ![]() |
А интерполяцию нельзя сделать чтобы альфу считать?
|
|
|
![]()
Сообщение
#5
|
|
Группа: Участники Форума2 Сообщений: 1775 Регистрация: 16.12.2005 Пользователь №: 1721 ![]() |
Цитата В разделе «Холодная вода» при расчетах водопотребления потребителей написано «ГОРЯЧАЯ» вода….и кое-где вместо м3/ч написано – л/с исправляю Цитата Удобно было бы, чтоб рассчитывались суточные и среднечасовые расходы воды. К стати, счетчик подбирается исходя из СРЕДНЕЧАСОВОГО расхода и проверяется на пропуск максимального секундного расхода добавляю Цитата Определение количества теплоты на ГВС тоже не по СНиПу (п. 3.13) у нас в Череповце расход тепла на ГВС мы считаем для теплоенергии, а она требует расчет по МДС, вот этот расчет - что-то среднее между СНиП и МДС... ![]() Цитата А интерполяцию нельзя сделать чтобы альфу считать? интерполяцию по-моему можно сделать только с помощью макросов (это конечно не проблема, но нужны ли здесь макросы? Вы не знаете есть ли в арсенале Excel функции для подсчета интерполяции чтоб обойтись без макросов??? |
|
|
Гость_ТГВК_* |
![]()
Сообщение
#6
|
Guest Forum ![]() |
2 Егор.
интерполяцию по-моему можно сделать только с помощью макросов (это конечно не проблема, но нужны ли здесь макросы? Вы не знаете есть ли в арсенале Excel функции для подсчета интерполяции чтоб обойтись без макросов??? Попробуйте функцию ЛИНЕЙН для определения коэффициентов в уравнении интерполяционного многочлена. Функцию ЕСЛИ можно применить для выбора промежутка интерполяции. |
|
|
![]()
Сообщение
#7
|
|
Группа: Участники Форума2 Сообщений: 1775 Регистрация: 16.12.2005 Пользователь №: 1721 ![]() |
Цитата(ТГВК @ Jun 28 2006, 10:46 ) Функцию ЕСЛИ можно применить для выбора промежутка интерполяции. там 590 вариантов... функция ЕСЛИ поддержиавет только около восьми вложений ЕСЛИ(а=1; б1; ЕСЛИ(а=2; б2; ... б7; ЕСЛИ(а=8; б8; "")))))))) или функцию ЕСЛИ можно использовать по-другому? вот сделал для жилого дома вычисление альфы макросами - потестируйте пжалста там кнопку нажимать надо чтоб альфу сосчитать (если сделать автоматически, то при каждом пересчете листа будут выполняться длительные циклы и замедлять работу) а вообще чтоб всё хорошо работало на VB надо писать такие вещи... ![]() Сообщение отредактировал LordN - 27.7.2010, 15:18
Прикрепленные файлы
|
|
|
Гость_ТГВК_* |
![]()
Сообщение
#8
|
Guest Forum ![]() |
Цитата(Егор @ Jun 28 2006, 11:41 ) там 590 вариантов... функция ЕСЛИ поддержиавет только около восьми вложений Если принципиально не пользоваться макросами можно все-таки обойтись и функцией ЕСЛИ. За основу положить геометрическую прогрессию 8*8=64*8=512*... и т.д. Просто нужно продумать что показывать пользователю, а что скрыть от его глаз. |
|
|
![]()
Сообщение
#9
|
|
Группа: Участники Форума2 Сообщений: 1775 Регистрация: 16.12.2005 Пользователь №: 1721 ![]() |
Цитата(ТГВК @ Jun 28 2006, 12:21 ) За основу положить геометрическую прогрессию 8*8=64*8=512*... и т.д. так гениально и так просто!!! как же я сам до этого не додумался... ![]() |
|
|
![]()
Сообщение
#10
|
|
Группа: Участники форума Сообщений: 241 Регистрация: 27.9.2005 Из: СПб Пользователь №: 1253 ![]() |
потестим...
а пароли в редакторе ВБ можете убрать? |
|
|
![]()
Сообщение
#11
|
|
Группа: Участники Форума2 Сообщений: 1775 Регистрация: 16.12.2005 Пользователь №: 1721 ![]() |
попробовал прогрессию - вроде работает, но вручную столько данных забивать небыстро получается...
а вроде и нет пароля... в модуле лист 2: Код Option Explicit Private Sub CommandButton1_Click() Dim f As Integer Dim dbl As Double '************************************************************************** If Range("AN40") > 0.1 Then '................. Else If Range("AF46") < 0.015 Then Range("AM46") = 0.2 Else dbl = ThisWorkbook.Worksheets.Item("a1").Interpol(CDbl(Range("AF46"))) Range("AM46") = dbl End If End If '************************************************************************** If Range("AO54") > 0.1 Then '................. Else If Range("AG60") < 0.015 Then Range("AN60") = 0.2 Else dbl = ThisWorkbook.Worksheets.Item("a1").Interpol(CDbl(Range("AG60"))) Range("AN60") = dbl End If End If '************************************************************************** If Range("AN75") > 0.1 Then '................. Else If Range("AF81") < 0.015 Then Range("AM81") = 0.2 Else dbl = ThisWorkbook.Worksheets.Item("a1").Interpol(CDbl(Range("AF81"))) Range("AM81") = dbl End If End If '************************************************************************** If Range("AO89") > 0.1 Then '................. Else If Range("AG95") < 0.015 Then Range("AO95") = 0.2 Else dbl = ThisWorkbook.Worksheets.Item("a1").Interpol(CDbl(Range("AG95"))) Range("AO95") = dbl End If End If End Sub в модуле лист5: Код Option Explicit
Function Interpol(a As Double) As Double Dim f As Integer Dim da As Double Dim db As Double Dim d As Double For f = 3 To 591 If Cells(f, 1) = a Then d = CDbl(Cells(f, 2)) Interpol = CDbl(Cells(f, 2)) Debug.Print d Else If Cells(f, 1) < a And Cells(f + 1, 1) > a Then da = CDbl(Cells(f + 1, 1) - Cells(f, 1)) db = CDbl(Cells(f + 1, 2) - Cells(f, 2)) d = CDbl(Cells(f, 2) + (a - Cells(f, 1)) * db / da) Interpol = d Exit Function End If End If Next f End Function
Прикрепленные файлы
|
|
|
![]()
Сообщение
#12
|
|
Гл. инженер Группа: Участники форума Сообщений: 144 Регистрация: 24.1.2005 Из: Ногинск Пользователь №: 385 ![]() |
Еще работая в в Теплосети заметил необоснованно завышенные расходы воды. Речь, естественно, идет о максимально-секундных расходах, используемых при гидравлических расчетах и выборе диаметров труб. Недавно самому пришлось составить подобный расчет, но СНиПом не пользовался, а считал по СП (Староверов). После двухдневной ломки мозгов, я бросил эту затею и посчтал старым дедовским способом, а именно:
Gср. гв= q*N/24/1000, м3/час; G max.гв=Gср.гв*k, где, q- нормы расхода воды по СНиП 2.04.01-85*, средние в сут., N- кол-во потребителей; k- коэффициент часовой неравномерности, СНиП 2.04.02-84* или Манюк "Наладка и эксплуатация водяных тепловых сетей" Все гениальное- просто!)) Есть конечно нюансы, например душевые по среднесуточным нормам не посчитать. Но это решаемо по максимальному расходу санприбора и зная, что как правило, душевые задействованы по кол-ву на все 100%, тоже все элементарно. В расчетах же по СП да и по СНиП слишком много непонятного. Ввиду того, что времени на понимание данных расчетов у меня в данный момент нет, отложил это в сторону. Пока практичности данных расчетов не вижу. |
|
|
![]()
Сообщение
#13
|
|
проектировщик ТМ (фриланс) Группа: Участники форума Сообщений: 4032 Регистрация: 13.3.2005 Из: Череповец - СПБ - Воронеж - Геленджик Пользователь №: 543 ![]() |
прикрепляю свой расчет по ВК с апроксимацией альфа (правда апроксимация идёт с определённой точностью, до 5% по моему)
Прикрепленные файлы
|
|
|
Гость_TimVic_* |
![]()
Сообщение
#14
|
Guest Forum ![]() |
По поводу интерполяции функции PN от Альфа и нахождения Альфа для расчетов в Excel.
Если внимательно присмотреться к таблице зависимости PN от Альфа, то можно заметить, что эта зависимость очень близка к ЛИНЕЙНОЙ! То есть мы имеем фактически линейную функцию в каждой области данной таблицы, т.е. функция вида y = ax+b. Т.е. вся таблица это кусочно-линейная функция! Т.О. мы должны лишь найти на каждом участке коэффициенты "а" и "в"! В результате получим: А3 = (NP3*A1-NP3*A2-NP2*A1+NP1*A2)/(NP1-NP2) Где: A1- Альфа меньшая - известна A2 - Альфа вторая - известна A3 - Альфа третья в промежутке между А1 и А2 - ИСКОМАЯ Альфа NP1 - первое известное NP2 - второе известное NP3 - третье известное соответствует А3 - в промежутке между NP1 и NP2 Я считаю, что интерполировать функциями более высокого порядка нет необходимости. |
|
|
![]()
Сообщение
#15
|
|
Группа: Участники Форума2 Сообщений: 1775 Регистрация: 16.12.2005 Пользователь №: 1721 ![]() |
сделал по-другому - разбил на несколько диапазонов и на каждом поиском решения нашел приблизительную функцию типа Ах2+Вх+С
только в диапазоне 0,05-1 наблюдается дивергенция, возможно диапазон ещё на несколько разделить придётся (устаревшая версия. актуальную версию см. в первом сообщении) Сообщение отредактировал Егор - 15.10.2012, 12:40
Прикрепленные файлы
|
|
|
![]()
Сообщение
#16
|
|
Группа: Участники форума Сообщений: 308 Регистрация: 14.7.2005 Из: г. Хабаровск Пользователь №: 975 ![]() |
Не понимаю эти потуги
табличные данные есть интерполировать их проблем нет так чего ради искать эту функцию? |
|
|
![]()
Сообщение
#17
|
|
Группа: New Сообщений: 15 Регистрация: 20.7.2006 Из: Казань Пользователь №: 3452 ![]() |
Вроде нормально считает, смесь нескольких листов Экселя с АВОКа.
Прикрепленные файлы
|
|
|
Гость_Кувшинов Максим_* |
![]()
Сообщение
#18
|
Guest Forum ![]() |
Спасибо огромное разработчику Егору (и редакторам) за программу - жизнь облегчила
![]() |
|
|
![]()
Сообщение
#19
|
|
Группа: Участники форума Сообщений: 78 Регистрация: 8.2.2006 Пользователь №: 2094 ![]() |
Друзья, товарищи!!!!
Зачем интерполировать когда можно воспользоваться уже известной формулой для определения безразмерного коэффициэнта альфа, зависящего от NP α = 0,2+0,777•(N•P - 0,015)0,686 PS. 0,686-степень; формула взята из книги: Трегубенко Н.С., Водоснабжение и водоотведение. Пирмеры расчетов. М: Высш.шк., 1989-352с. ![]() |
|
|
Гость_LittleTime_* |
![]()
Сообщение
#20
|
Guest Forum ![]() |
судя по погрешности формула применима только до NP~20
Прикрепленные файлы
|
|
|
Гость_Galatea_* |
![]()
Сообщение
#21
|
Guest Forum ![]() |
Цитата(LittleTime @ Aug 30 2006, 11:57 ) судя по погрешности формула применима только до NP~20 А рядом взглянуть слабо? http://www.forum.abok.ru/index.php?showtopic=2418 |
|
|
![]()
Сообщение
#22
|
|
Инженер ВК Группа: Модераторы Сообщений: 9244 Регистрация: 17.1.2006 Из: Кишинёв Пользователь №: 1877 ![]() |
Тут вот интересная статейка:
http://www.c-o-k.ru/showtext/?id=895 Добавлено - 12:24 Цитата(Егор @ Jul 20 2006, 09:29 ) сделал по-другому - разбил на несколько диапазонов и на каждом поиском решения нашел приблизительную функцию типа Ах2+Вх+С только в диапазоне 0,05-1 наблюдается дивергенция, возможно диапазон ещё на несколько разделить придётся Однако мне показалось странным, что расход горячей воды получается в полтора раза больше холодной.. ![]() |
|
|
![]()
Сообщение
#23
|
|
Инженер ВК Группа: Модераторы Сообщений: 9244 Регистрация: 17.1.2006 Из: Кишинёв Пользователь №: 1877 ![]() |
Если хотите посчитать количество тепла на нагрев гор. воды в час, в кВт то не умножайте на 1000,
а если в ккал/час так умножайте на 859,845. Откуда 1000-то нарыли? А так ничего вроде расчётец, спасибо. |
|
|
![]()
Сообщение
#24
|
|
Группа: New Сообщений: 12 Регистрация: 27.10.2006 Пользователь №: 4490 ![]() |
посмотрите вот это может понравится
Прикрепленные файлы
|
|
|
![]()
Сообщение
#25
|
|
Инженер ВК Группа: Модераторы Сообщений: 9244 Регистрация: 17.1.2006 Из: Кишинёв Пользователь №: 1877 ![]() |
Цитата(LuDmila @ Nov 2 2006, 15:46 ) посмотрите вот это может понравится Спасибо. Хороший расчет и на одной странице помещается. Вопрос на засыпку, если у меня смеситель с поворотным изливом, общий на ванну и умывальник- считать его одним прибором или двумя? |
|
|
![]()
Сообщение
#26
|
|
Группа: New Сообщений: 12 Регистрация: 27.10.2006 Пользователь №: 4490 ![]() |
я ба взяла как два прибора.
|
|
|
![]()
Сообщение
#27
|
|
Инженер ВК Группа: Модераторы Сообщений: 9244 Регистрация: 17.1.2006 Из: Кишинёв Пользователь №: 1877 ![]() |
Цитата(LuDmila @ Nov 3 2006, 10:42 ) я ба взяла как два прибора. Хм... Ну на часовой расход может быть. Чел руки помыл, потом в ванну полез. А на секундный как? Два смесителя можно одновременно открыть, а один - нет. Опять таки стоки или-или. Загадка природы.. :wacko: |
|
|
Гость_hydrotehnik_* |
![]()
Сообщение
#28
|
Guest Forum ![]() |
и я добавлю давно сделанную таблицу. посмотрите. только тм где-то размерности напутаны, вроде(.
Прикрепленные файлы
|
|
|
Гость_Krasyn_* |
![]()
Сообщение
#29
|
Guest Forum ![]() |
Пользовательскую функцию написать довольно просто. Достоточно создать модуль и определить в нем public function. Потом выбрать ее в разделе "определенные пользователем" при вставке в ячейку.
Прикрепленные файлы
|
|
|
![]()
Сообщение
#30
|
|
инженер ВК Группа: Участники форума Сообщений: 3110 Регистрация: 5.12.2006 Из: Екатеринбург Пользователь №: 5044 ![]() |
Вот что можно замутить в pdf е
![]()
Прикрепленные файлы
|
|
|
![]() ![]() |
|
![]() |
![]() |
Текстовая версия | Сейчас: 17.6.2024, 13:28 |