Oct 17 2018
08:30 AM
- last edited on
Feb 01 2023
10:09 AM
by
TechCommunityAP
Oct 17 2018
08:30 AM
- last edited on
Feb 01 2023
10:09 AM
by
TechCommunityAP
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.
Option Explicit
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