|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.04.2013, 23:49 | #1 |
Новичок
Джуниор
Регистрация: 14.04.2013
Сообщений: 1
|
Интерполяция в Exel на VBA
Доброй ночи, мне нужно составить программу по интерполяции табличной заданной функции. Начальное значение x=3.1, конечное 5.8
Написала следующее: Function myf(x) myf = ((Sin(3 * x) - (x + 1) ^ 2) / (Cos(x) + 2)) + 5 * Pi End Function Sub proga() Dim x As Double x = InputBox("Введите значение x") a = 3.1 b = 5.8 n = 0.3 For n = 0.3 To 10 x = Cells(n, 1) y = Cells(n, 2) If x > Cells(n, 1) And x < Cells(n + 1, 1) Then x1 = Cells(n, 1) x2 = Cells(n + 1, 1) y1 = Cells(n, 2) y2 = Cells(n + 1, 2) End If Next n y = (((x - x1) * (y2 - y1)) / (x2 - x1)) + y1 MsgBox (y) End Sub когда запускаю то просят ввести значение х, как только ввожу он пишет какая то ошибка и на этом процесс заканчивается, не могу понять что делаю не так. подскажите, пожалуйста. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
“Кусочно-линейная и квадратичная интерполяция. Глобальная интерполяция ”. | KennyMc | Помощь студентам | 0 | 17.04.2012 16:48 |
Разработать программу “Кусочно-линейная и квадратичная интерполяция. Глобальная интерполяция ”. | KennyMc | Помощь студентам | 0 | 10.04.2012 16:41 |
На C++ Разработать программу “Кусочно-линейная и квадратичная интерполяция. Глобальная интерполяция”. | KennyMc | Помощь студентам | 0 | 26.02.2012 12:08 |
Загрузка надстройки exel командой vba | alvazor | Microsoft Office Excel | 1 | 18.12.2009 12:08 |
Exel 2007 и VBA | systemmind | Microsoft Office Excel | 3 | 19.02.2009 18:03 |