Syntax
Public Sub UltimateOscillatorOnArray(ByVal OpenAry As Variant, ByVal HighAry As Variant, ByVal LowAry As Variant, ByVal CloseAry As Variant, ByVal Cycle1 As Integer, ByVal Cycle2 As Integer, ByVal Cycle3 As Integer, ByVal Result As Variant)Description
A procedure that calculates Ultimate Oscillator 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 |
| The open array | |
| HighAry | The High array |
| The low array | |
| CloseAry | The close array |
| Cycle1 | Cycle1 as integer |
| Cycle2 | Cycle2 as integer |
| Cycle3 | Cycle3 as integer |
| Result | The Result Array |
Return value
Returns a double value.
Sample
Public Sub main() Dim HighAry () Dim LowAry () Dim OpenAry () Dim CloseAry () Dim Result() Dim Cycle1 Dim Cycle2 Dim Cycle3 Cycle1= 7 Cycle2= 14 Cycle3= 28 CopyHigh 0, 1, Bars (0), HighAry CopyLow 0, 1, Bars (0), LowAry CopyOpen 0, 1, Bars (0), OpenAry CopyClose 0, 1, Bars (0), CloseAry UltimateOscillatorOnArray OpenAry, HighAry, LowAry, CloseAry, CInt (Cycle1), CInt (Cycle2), CInt(Cycle3), Result AlertMessage "The indicator value of the record 50 : " & Result(50)End Sub See Also