![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 23.04.2012
Сообщений: 7
|
![]()
помогите с кодом в Vba полиномом ньютона
![]() ![]() Не получается сделать код для полинома ньютона код щас приложу, заполение идет из листбокса, все равно понять не могу где ошибка..(((((( помогите плиз)) Function Newton(h, X, xe, ye, n) Dim i As Integer Dim j As Integer Dim p As Double Dim v As Double Dim dy() As Variant ReDim dy(n, n) p = 1 For i = 1 To n dy(i, 1) = ye(i) Next i For j = 2 To n For i = 1 To n + 1 - j dy(i, j) = dy(i + 1, j - 1) - dy(i, j - 1) Next i Next j For j = 2 To n v = 1 For i = 2 To j v = v * (X - xe(i - 1, 1)) / (i - 1) / h Next i p = p + v * dy(1, j) Next j Newton = p End Function |
![]() |
![]() |
![]() |
#2 |
Регистрация: 23.04.2012
Сообщений: 7
|
![]()
Не получается сделать код для полинома ньютона код щас приложу, заполение идет из листбокса, все равно понять не могу где ошибка..(((((( помогите плиз))
Function Newton(h, X, xe, ye, n) Dim i As Integer Dim j As Integer Dim p As Double Dim v As Double Dim dy() As Variant ReDim dy(n, n) p = 1 For i = 1 To n dy(i, 1) = ye(i) Next i For j = 2 To n For i = 1 To n + 1 - j dy(i, j) = dy(i + 1, j - 1) - dy(i, j - 1) Next i Next j For j = 2 To n v = 1 For i = 2 To j v = v * (X - xe(i - 1, 1)) / (i - 1) / h Next i p = p + v * dy(1, j) Next j Newton = p End Function |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
интерполяционный полином Ньютона построить в делфи | Klik_1602 | Помощь студентам | 2 | 16.06.2011 06:33 |
Алгоритм.Полином Ньютона. | Aleksandr_Yanov | Помощь студентам | 10 | 09.12.2010 23:35 |
Полином Ньютона пятой степени (Visual C++) | mezo | Помощь студентам | 1 | 09.06.2010 14:17 |
Интерполяционный полином Ньютона | Skay | Общие вопросы Delphi | 2 | 19.10.2007 22:18 |