У меня есть такая задача. Есть измеренные на метеостанции данные температуры и относительной влажности. Необходимо найти абсолютную влажность. Простой формулы для расчета не имеется. Но есть таблица нормированных значений. В ней температура дана с 5 град. интервалом, а влажность с 10%. То есть эту таблицу необходимо расширить, получить значения абсолютной влажности для температуры с 0,1 град. интервалом и влажностью с 1% интервалом. Я попробовала уже функцию "предсказ", но она нормально работает только в начале, потом выходит ошибка. Значит, что-то делаю не так, но не могу понять что именно.
А второй вопрос для меня сейчас еще более сложный: как потом, имея измеренные температуру и относит. влажность в этом огромном массиве искать необходимое значение абсолютной".
P.S. Я бы может и попробовала в ручную просчитать, но у меня таких измеренных данных 6 метеостанций по 6 лет :-(
Добрый день!
У меня есть такая задача. Есть измеренные на метеостанции данные температуры и относительной влажности. Необходимо найти абсолютную влажность. Простой формулы для расчета не имеется. Но есть таблица нормированных значений. В ней температура дана с 5 град. интервалом, а влажность с 10%. То есть эту таблицу необходимо расширить, получить значения абсолютной влажности для температуры с 0,1 град. интервалом и влажностью с 1% интервалом. Я попробовала уже функцию "предсказ", но она нормально работает только в начале, потом выходит ошибка. Значит, что-то делаю не так, но не могу понять что именно.
А второй вопрос для меня сейчас еще более сложный: как потом, имея измеренные температуру и относит. влажность в этом огромном массиве искать необходимое значение абсолютной".
P.S. Я бы может и попробовала в ручную просчитать, но у меня таких измеренных данных 6 метеостанций по 6 лет :-(Iriska
Можно задачу решить функцией пользователя. Код в Module1 [vba]
Код
Function Absolute_Humidity(T As Double, RH As Double) As Double Dim Arr Dim i As Long, j As Long Arr = Sheets("Таблица").Range("A2:K15") For i = 2 To 11 If RH <= Arr(1, i) Then Exit For Next i For j = 2 To 14 If T >= Arr(j, 1) Then Exit For Next j Z1 = Arr(j - 1, i - 1) + (Arr(j - 1, i) - Arr(j - 1, i - 1)) * (RH - Arr(1, i - 1)) / (Arr(1, i) - Arr(1, i - 1)) Z2 = Arr(j, i - 1) + (Arr(j, i) - Arr(j, i - 1)) * (RH - Arr(1, i - 1)) / (Arr(1, i) - Arr(1, i - 1)) Absolute_Humidity = Z1 + (Z2 - Z1) * (T - Arr(j - 1, 1)) / (Arr(j, 1) - Arr(j - 1, 1)) End Function
[/vba]
В коде была ошибка. Исправил и файл заменил
Можно задачу решить функцией пользователя. Код в Module1 [vba]
Код
Function Absolute_Humidity(T As Double, RH As Double) As Double Dim Arr Dim i As Long, j As Long Arr = Sheets("Таблица").Range("A2:K15") For i = 2 To 11 If RH <= Arr(1, i) Then Exit For Next i For j = 2 To 14 If T >= Arr(j, 1) Then Exit For Next j Z1 = Arr(j - 1, i - 1) + (Arr(j - 1, i) - Arr(j - 1, i - 1)) * (RH - Arr(1, i - 1)) / (Arr(1, i) - Arr(1, i - 1)) Z2 = Arr(j, i - 1) + (Arr(j, i) - Arr(j, i - 1)) * (RH - Arr(1, i - 1)) / (Arr(1, i) - Arr(1, i - 1)) Absolute_Humidity = Z1 + (Z2 - Z1) * (T - Arr(j - 1, 1)) / (Arr(j, 1) - Arr(j - 1, 1)) End Function
У меня есть такая задача. Есть таблица «Изменение объёма от замера и дифферента. Кое как сваял поиск объёма при извесных (замере и дифференте). Может это можно выполнить короче? Подскажите как в макросе, используя интерполяцию найти точный замер при извесных (объёме и дифференте)!!!
Добрый день!
У меня есть такая задача. Есть таблица «Изменение объёма от замера и дифферента. Кое как сваял поиск объёма при извесных (замере и дифференте). Может это можно выполнить короче? Подскажите как в макросе, используя интерполяцию найти точный замер при извесных (объёме и дифференте)!!!DjAlex77
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
