Ошибка компилятора error BC30455 Отсутствует аргумент для параметра

[anakinskyoker]

Привет всем.
Кого не затруднит, посмотрите проект, выходит ошибка уже пол ночи с нею вожусь. Мозги закипели не варят уже, может у кого посвежее голова тот догадается.
Проект на VB.Net включает библиотеку для решения нелинейных уравнений, библиотека написана на C++ и скомпилина в cminpack_dll.dll
Посмотрите пожалуйста, правильно ли обращаюсь к функции HYBRD1 этой dll?
Проект Linkagesyn.rar
Исходник библиотеки cminpack-1.3.4.rar

Список функций библиотеки

[eval]

это вы предлагаете разбираться в этом всем?
не проще ли показать как и что вы подключаете/вызываете?

[anakinskyoker]

Сообщение от eval

это вы предлагаете разбираться в этом всем?
не проще ли показать как и что вы подключаете/вызываете?

Вот собственно создание экземпляра процедуры из dll:

    <DllImport("cminpack_dll.dll", EntryPoint:="hybrd1", CallingConvention:=CallingConvention.Cdecl)>
    Private Shared Function hybrd1(ByVal fun As funtype1, ByVal n As Integer, ByVal x() As Double, ByVal fvec() As Double, ByVal tol As Double, ByVal wa() As Double, ByVal lwa As Integer) As Integer
    End Function

Вот делегат математической функции решить которое мне надо

Public Delegate Function funtype1(ByVal n As Integer, ByVal x() As Double, ByVal fvec() As Double, ByVal iflag As Integer) As Double

Вот сама функция:

Public Sub fcn(ByVal n As Integer, ByVal x() As Double, ByVal fvec() As Double, ByRef iflag As Integer)
        Dim lAB As Double = 0.08
        Dim lBC As Double = 0.3
        Dim lDC As Double = 0.2
        Dim lCE As Double = 0.2
        Dim lDE As Double = lDC + lCE
        Dim lEF As Double = 0.55000000000000004
        Dim xD As Double = 0.4
        Dim yD As Double = 0
        Dim yF As Double = 0.35


        Dim phi1 As Double = phiOne
        Dim phi2 As Double = x(0)
        Dim phi3 As Double = x(1)
        Dim phi4 As Double = x(2)
        Dim xF As Double = x(3)

        fvec(0) = lAB * Math.Cos(phi1) + lBC * Math.Cos(phi2) - xD - lDC * Math.Cos(phi3)
        fvec(1) = lAB * Math.Sin(phi1) + lBC * Math.Sin(phi2) - yD - lDC * Math.Sin(phi3)
        fvec(2) = xD + lDE * Math.Cos(phi3) - xF - lEF * Math.Cos(phi4)
        fvec(3) = yD + lDE * Math.Sin(phi3) - yF - lEF * Math.Sin(phi4)
    End Sub

Вот я ее пытаюсь решать:

        xSys1(0) = 0.65000000000000002
        xSys1(1) = 2
        xSys1(2) = 3.1099999999999999
        xSys1(3) = 7.7999999999999998

        For i As Integer = 0 To 359
            Dim phi1 As Double = -i * Math.PI / 180.0
            phiOne = phi1
            hybrd1(fcn, 4, xSys1, fvecSys1, 0.000000099999999999999995, tmp, 200)

        Next i

Тут fcn - решаемая система уравнений, 4 - количество уравнений, xSys1 - массив содержащий точки, в которых надо решить систему, fvecSys1 - массив в который записывается решение, дальше берется требуемая точность, временный массив хранения промежуточных решений и этот пресловутый iflag - который я не совсем разобрался для чего нужен.

Подробнее можно узнать тут, правда на английском.

Надеюсь смог ввести некоторую ясность, с нетерпением хотел бы услышать предложений и идей.

[eval]

где семантика функции?

[anakinskyoker]

Сообщение от eval

где семантика функции?

Семантика? Описание функций численного решения я кинул ссылкой выше.
http://www.netlib.org/minpack/
Хотя изначально на фортране писалось, и добрыми людьми переводилось на Си. Собственно я скинул проект библиотеки в первом посте в архиве разделенном на три части.

[eval]

описание не надо, нужна семантика - как она определена в длл

[anakinskyoker]

Сообщение от eval

описание не надо, нужна семантика - как она определена в длл

Прошу прощение за мое невежество, но я новичок в программировании и не доконца понимаю слово семантика.
Но полагаю вложенный файл ответит на ваш вопрос.

[eval]

я например не скачиваю то что не знаю, оно чревато не нужно и не эффективно

[anakinskyoker]

Сообщение от eval

я например не скачиваю то что не знаю, оно чревато не нужно и не эффективно

Как же мне тогда быть? Я пытаюсь снабдить вас наиболее полной информацией по проблеме с мой стороны и в силу моих знаний (признаюсь их мало в этой теме, но двигаться из чего-то тоже надо), а вам в тягость глянуть на текстовый файл.

[eval]

зачем тут файлы когда надо всего 1 строка?