Hi!I have a problem with the SUMA_Ai_Tci function. An argument error is returned when the function is called. (the compiler does not indicate an error)The Tc function works correctly.
I am asking for a hint as to how to find a mistake.
Function SUMA_Ai_Tci (n As Byte, x As Double, Ai) As Double
'The function calculates the sum of the coefficient products'Ai (i) and Chebyshev polynomial of the order i [A (i) * Tc (i, x)]'for -1 <=x <=1. Dim i, j As Byte Dim S As Double S = 0 #
For i = 1 To n S = S + Ai (i) * Tc (i, x) ActiveCell.Range ("A1"). Select ActiveCell.FormulaR1C1 = S ActiveCell.Range ("A2"). Select Next i
SUMA_Ai_Tci = S End Function 'SUMA
Function Tc (n, x)''The Tc function calculates the orthogonal value'Chebyshev polynomial of order n for -1 <= x <= 1' Dim and As Byte Dim R, S, T As Double
Select Case n Case Is = 0 Tc = 1
Case Is = 1 Tc = x
Case Is> 1 R = 1 S = x For i = 2 To n T = 2 * x * S - R R = S S = T Next i Tc = T End Select
End Function 'Tc