The Average Positive Changes show average of successive increases of value
for the last PERIOD time periods.
Public Function AveragePositiveChanges(ByVal APCIn() As Double, ByVal Lag As Long) As Double
Example:
Dim TA4Net As
New TA4Net.CTAFunctions("YOUR-REGISTRATION-CODE")
Dim Result() As
Double
Dim CloseValues() As
Double
' loading values to array
CloseValues =
GetCloseValues()
' calculating Technical Analysis function
Result = TA4Net.AveragePositiveChanges(CloseValues, 14)