Syntax
Public Sub AverageTrueRangeOnArray(ByVal OpenAry As Variant, ByVal HighAry As Variant, ByVal LowAry As Variant, ByVal CloseAry As Variant, ByRef Result As Variant, Optional Period As Integer = 14) Description
A procedure that calculates The Average True Range, 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 | Applied open price buffer, a value of type Variant. |
| HighAry | Applied highprice buffer, a value of type Variant. |
| Applied lowprice buffer, a value of type Variant. | |
| CloseAry | Applied closeprice buffer, a value of type Variant. |
| Result | The buffer calculation result, a value of type Variant. |
| Period | The calculation period, on which the indicator will be calculated, a value of type Integer |
Sample
Public Sub main() Dim OpenAry() Dim HighAry() Dim LowAry() Dim CloseAry() Dim result() CopyOpen 0, 1, Bars (0), OpenAry CopyHigh 0, 1, Bars (0), HighAry CopyLow 0, 1, Bars (0), LowAry CopyClose 0, 1, Bars (0), CloseAry AverageTrueRangeOnArray OpenAry, HighAry, LowAry, CloseAry, Result AlertMessage "The indicator value of the record 50 : " & Result (50)End SubSee Also