powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Поиск приближенного значения
8 сообщений из 8, страница 1 из 1
Поиск приближенного значения
    #33930670
Rascen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
в таблице необходимо найти приближенное значение "с" по заданным значениям "a" и "b".
...
Рейтинг: 0 / 0
Поиск приближенного значения
    #33930898
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно с помощью формул (=Тенденция)
...
Рейтинг: 0 / 0
Поиск приближенного значения
    #33930967
Rascen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо за совет.
функция "тенденция" возвращает по линейному закону.
а возможно ли из данного диапозона ячеек соответствующим "а" и "b" методом интерполяции найти значение "с".
соответственно для значений "а" и "b" не попадающих в список, расчет производиться не будет.
...
Рейтинг: 0 / 0
Поиск приближенного значения
    #33930998
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В Вашем примере линейная зависимость, формула "тенденция" даст абсолютно правильное значение.
Если в рабочем задании не так и Вы хотите Интерполировать, то вопросы:
1. по скольким точкам?
2. узлы равномерно расположены?
3. каким методом?
Вообщем читайте учебник математики, пишите алгоритм, делайте функцию на VBA
...
Рейтинг: 0 / 0
Поиск приближенного значения
    #33931008
Rascen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не могу понять как заполнить ячейки, выделенные красным цветом (то есть один раз я могу подставить значение "а" и "b";а для других значений приходиться создавать новую таблицу)
в vba никогда ничего не создавал.=(
...
Рейтинг: 0 / 0
Поиск приближенного значения
    #33931009
Rascen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
файлик
...
Рейтинг: 0 / 0
Поиск приближенного значения
    #33933335
Дмит
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Посмотри, что получилось при использовании самого простого алгоритма (по трём точкам) при использовании формул. Конечно их надо бы упростить, например, применив именованые формулы и массивы.
...
Рейтинг: 0 / 0
Поиск приближенного значения
    #33945654
Rascen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
to Дмит
спасибо, посмотрел. но для граничных "a" и "b" не подходит.
вот нашел еще кое что похожее:

Function ДВИНТ(Массив_данных, Аргумент_по_вертикали, Аргумент_по_горизонтали)
' Двойная интерполяция таблицы, занесенной в Рабочую Книгу
' (первые строка и столбец выделенного массива данных содержат аргументы
' табулированной функции в возрастающем свержу вниз и слева направо порядке;
' верхний левый элемент - нуль

Число_строк = Массив_данных.Rows.Count
Число_столбцов = Массив_данных.Columns.Count

Dim Массив()
ReDim Массив(1 To Число_строк, 1 To Число_столбцов)
For i = 1 To Число_строк
For j = 1 To Число_столбцов
Массив(i, j) = WorksheetFunction.Index(Массив_данных, i, j)

Next j
Next i

i = 1
j = 1

Do
x1 = Массив(i, 1)
x2 = Массив(i + 1, 1)
i = i + 1
Loop Until Аргумент_по_вертикали >= x1 And Аргумент_по_вертикали <= x2

Do
y1 = Массив(1, j)
y2 = Массив(1, j + 1)
j = j + 1
Loop Until Аргумент_по_горизонтали >= y1 And Аргумент_по_горизонтали <= y2

i = i - 1
j = j - 1


a1 = Массив(i, j)
a2 = Массив(i, j + 1)
a3 = Массив(i + 1, j)
a4 = Массив(i + 1, j + 1)


res1 = a1 + (a3 - a1) * (Аргумент_по_вертикали - x1) / (x2 - x1)
res2 = a2 + (a4 - a2) * (Аргумент_по_вертикали - x1) / (x2 - x1)
ДВИНТ = res1 + (res2 - res1) * (Аргумент_по_горизонтали - y1) / (y2 - y1)
End Function
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Поиск приближенного значения
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]