Добрый день уважаемые.
Собственно вопрос.
Для определения коэффициентов полинома тренда в экселе используется структура:
- в данном случае я получаю 1-й коэф.кубической апроксимации данных
А как такое сделать в программе?
Пробовал делать так
не выходит - не понимает VBA такую структуру... Делать через макрос не хочу - есть желание иметь функцию пользователя.
Собственно вопрос.
Для определения коэффициентов полинома тренда в экселе используется структура:
Код |
---|
=ИНДЕКС(ЛИНЕЙН($B$2:$B$37;$A$2:$A$37^{1;2;3});1) |
А как такое сделать в программе?
Пробовал делать так
Код |
---|
Public Function Popravka3(parametr As Single, krit As Single) As Single ' Задаю массивы из четырёх элементов. Т.е. у нас четыре графика Dim kriv(0 To 3) As Currency Dim kritgraf(0 To 3) As Currency ' Коэффициенты полинома Dim koefA As Currency Dim koefB As Currency Dim koefC As Currency Dim koefD As Currency ' ввести уравнения кривых и критерии относящиеся к кривым. Уравнения в качестве примера. kriv(0) = 2 * parametr + 3 kritgraf(0) = 100 kriv(1) = 3 * parametr + 3 kritgraf(1) = 100 kriv(2) = 4 * parametr + 3 kritgraf(2) = 100 kriv(3) = 5 * parametr + 3 kritgraf(3) = 100 ' Собственно расчёт. Интерполяция кубическим сплайном (по трём кривым). koefA = INDEX(LINEST(kriv,kritgraf^{1,2,3}),1,1) koefB = INDEX(LINEST(kriv,kritgraf^{1,2,3}),1,2) koefC= INDEX(LINEST(kriv,kritgraf^{1,2,3}),1,3) koefD= INDEX(LINEST(kriv,kritgraf^{1,2,3}),1,4) Popravka3 = koefA * krit * krit * krit + koefB * krit* krit + koefC* krit + koefD End Function |
не выходит - не понимает VBA такую структуру... Делать через макрос не хочу - есть желание иметь функцию пользователя.