Returns the sum of all positive value changes for last PERIOD time periods.
Public Function PositiveChangesSum(ByVal PCSIn() 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.PositiveChangesSum(CloseValues, 14)