Syntax
Public Sub PriceOscillatorOnArray(ByVal Ary As Variant, ByVal LongCycle As Integer, ByVal ShortCycle As Integer, ByVal MA_Type As Integer, ByRef Result As Variant)
Description
A procedure that calculates Detrend Price 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 |
| Ary | The source array, that contains prices |
| Period | Period as an integer value |
| LongCycle | Long cycle as an integer |
| Short cycle as an integer | |
| MA_Type | An integer value of typeENUM_MA_METHOD |
| Result | The Result Array |
Return value
Returns a double value.
Sample
Public Sub main() Dim ary () Dim result() Dim LongCycle Dim ShortCycle Dim MA_Type Period = 14 MA_Type = 1 LongCycle = 22 ShortCycle = 14 CopyClose 0, 1, Bars (0), Ary PriceOscillatorOnArray Ary, CInt(LongCycle), CInt(ShortCycle), CInt (MA_Type), Result AlertMessage "The indicator value of the record 50 : " & Result(50)End Sub
See Also