Syntax
Public Sub AccumulativeSwingIndexOnArray(ByVal OpenAry As Variant, ByVal HighAry As Variant, ByVal LowAry As Variant,ByVal CloseAry As Variant, ByVal LimitMoveValue As Double, ByRef Result As Variant)
Description
A procedure that calculates Accumulative Swing Index, based on a custom array, and the result passed by result parameter as an array, each index of the result array represent indicator value corresponds to that index of the source array.
Parameters
Parameter | Description |
OpenAry,HighAry,LowAry,CloseAry | The Open, High, Low, Close prices |
LimitMoveValue | Limit move as a double value |
Result | The Result Array |
Return value
Returns a double value.
Sample
Public Sub main() Dim HighAry() Dim OpenAry() Dim LowAry() Dim CloseAry() Dim result() Dim LimitMoveValue LimitMoveValue= 12.00 CopyHigh 0, 1, Bars (0), HighAry CopyLow 0, 1, Bars (0), LowAry CopyOpen 0, 1, Bars (0), OpenAry CopyClose 0, 1, Bars (0), CloseAry AccumulativeSwingIndexOnArray OpenAry, HighAry, LowAry, CloseAry,, Cdbl(LimitMoveValue), Result AlertMessage "The indicator value of the record 50 : " & Result(50)End Sub
See Also