Average Positive Changes

The Average Positive Changes show average of successive increases of value for the last PERIOD time periods.

Syntax:

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)