Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница:

 

  Вопрос: Вычисление коэффициентов полиномальной функции Добавлено: 22.05.13 10:20  

Автор вопроса:  Дмитрий
Столкнулся с такой проблемой. Необходимо написать код для нахождения коэффициенты полиномальной функции. Для сей операции использую функции Excel. Получилось нечто такое:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim M1(11) As Byte, M2(11) As Byte, PolyStep As Double
' М1-временной ряд продажи по месяцам
' M2-gорядковый номер временного ряда
' PolyStep - степень функции
        M1(0) = 30
        M1(1) = 18
        M1(2) = 27
        M1(3) = 21
        M1(4) = 21
        M1(5) = 23
        M1(6) = 14
        M1(7) = 17
        M1(8) = 16
        M1(9) = 9
        M1(10)= 24
        M1(11)= 27
        For i = 0 To 11
            M2(i) = i + 1
        Next
        PolyStep = 4
        Dim b As Double
        Dim x(,) As Object, y1() As Double, c() As Double
        ReDim x(UBound(M1), PolyStep - 1)
        ReDim c(PolyStep - 1)
        Dim xl = New Excel.Application
        Dim k As String
        For i = 0 To UBound(x)
             For n = 0 To PolyStep - 1
                x(i, n) = M2(i) ^ (n + 1)
             Next n
        Next i
        Dim Coefs As Object
        Coefs = xl.Application.WorksheetFunction.LinEst(М1, x, 1, 0)
        b = Coefs(1, PolyStep + 1)
        For i = PolyStep To 1 Step -1
            c(PolyStep - i + 1) = Coefs(1, i)
         Next i
    End Sub

Но на 29-й строчке выдает ошибку "Метод LinEst из класса WorksheetFunction завершен неверно". Подскажите, что я делаю не так? Зарание спасибо.

Ответить

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам