Написание пользовательской функции.

[GoreProgrammist]

Нужно написать функцию которая считает полином Лежандра, по заданным n и x. Сама функция написана, как сделать что бы в Excel'e функция считалась от двух значений

например в ячейку А1 вбивать "=функция(х1,х2)"

[EducatedFool]

Сама функция написана

Так выложите тогда её код (на VBA)
Лучше вместе с файлом, с ячеек которого она должна быть доступна.

[GoreProgrammist]

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

Так выложите тогда её код (на VBA)
Лучше вместе с файлом, с ячеек которого она должна быть доступна.

Она должна быть доступна не с ячеек, надо просто в строке формул писать =PlnmL(n,x)
и чтобы в ячейке ответ выдавался.

Function PlnmL(n As Variant, x As Variant) As Double
    Dim Result As Double
    Dim a As Variant
    Dim b As Variant
    Dim i As Long
     Result = 1
    a = 1
    b = x
    If n = 0 Then
        Result = a
        PlmnL = Result
        Exit Function
    ElseIf n = 1 Then
        Result = b
        PlmnL = Result
        Exit Function
    Else
    For i = 2 To n Step 1
        Result = ((2 * i - 1) * x * b - (i - 1) * a) / i
        a = b
        b = Result
    Next i
    PlmnL = Result
End Function

[EducatedFool]

А в чём проблема?

Посмотри формулы в желтых ячейках:

  Ячейка: C1      Формула  (стиль A1):   =PlnmL(A1;B1)
                  Формула  (стиль R1C1): =PlnmL(RC[-2];RC[-1])

  Ячейка: E1      Формула  (стиль A1):   =PlnmL(4;6)
                  Формула  (стиль R1C1): =PlnmL(4;6)

[GoreProgrammist]

Спасибо, но суть проблемы в том, что данные должны вводиться в строку формулы, а не считываться из ячеек. То есть в ячейке вводим например =PlnmL(1;10), и получаем ответ.

[EducatedFool]

То есть в ячейке вводим например =PlnmL(1;10), и получаем ответ.

Вот именно это я и сделал в столбце E
Если бы Вы внимательнее изучили файл-пример, вопросов бы не было...

[GoreProgrammist]

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

Вот именно это я и сделал в столбце E
Если бы Вы внимательнее изучили файл-пример, вопросов бы не было...

У меня тот же самый код не работает: выдаёт 0 и первым способом, и вторым, поэтому и спрашиваю.

[EducatedFool]

У меня тот же самый код не работает: выдаёт 0 и первым способом, и вторым

У Вас не тот же самый код...

Сравните имя функции в разных строках своей "функции":
Function PlnmL(n As Variant, x As Variant) As Double
PlmnL = Result

В файле-примере я исправил эти мелочи.

[GoreProgrammist]

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

У Вас не тот же самый код...

Сравните имя функции в разных строках своей "функции":
Function PlnmL(n As Variant, x As Variant) As Double
PlmnL = Result

В файле-примере я исправил эти мелочи.

Не заметил, теперь работает.. спасибо!

[GoreProgrammist]

я взялся написать присоединённый полином Лежандра в виде второго модуля, использующего результат вычисления первого модуля: PlnmL(n,x) и набросал следующий код

Public Function PPlnmL(n As Variant, m As Variant, x As Variant) As Double
Dim a As Double
Dim Result As Double
Dim i As Long
a = -m
For i = 1 To m - 1 Step 1
a = a * (-m - 1)
m = m + 1
Next i
Result = a * x ^ (-2 * m)
PPlnmL = ((1 - x ^ 2) ^ (m / 2)) * Result * PlnmL(n, x)
End Function

в ячейке возвращается #Знач.. В чём может быть проблема?