Posted by Mohammad Rahhal, Last modified by Diana Alkouni on 02 September 2020 12:07 PM


Public Sub ParabolicSAROnArray(ByVal OpenAry As Variant, ByVal HighAry As Variant, ByVal LowAry As Variant, ByVal CloseAry As Variant, ByRef Result As Variant, Optional ByVal MinAF As Double = 0.02, Optional ByVal MaxAF As Double = 0.2)


A procedure that calculates ParabolicSAR, 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.


Parameter  Description 
OpenAry The open array 
HighAry The High array 
LowAry The low array 
CloseAry The close array 
Result The Result Array
MinAF Min AF (accumulation factor)
MaxAF Max AF (accumulation factor)

Return value

Returns a double value.


Public Sub main()

        Dim HighِAry ()

        Dim LowAry ()

        Dim OpenAry ()

        Dim CloseAry ()

        Dim result()

        Dim MinAF

        Dim MaxAF

        MinAF = 0.02

        MaxAF = 0.2

        CopyHigh 0, 1, Bars (0), HighAry

        CopyLow 0, 1, Bars (0), LowAry

        CopyOpen 0, 1, Bars (0), OpenAry

        CopyClose 0, 1, Bars (0), CloseAry

        ParabolicSAROnArray (OpenAry, HighAry, LowAry, CloseAry, Result, Cdbl(MinAF),Cdbl(MaxAF))

        AlertMessage "The indicator value of the record 50 : " & Result(50)

End Sub

See Also

Back to VTL Client Script Index

(0 vote(s))
Not helpful

Comments (0)
Post a new comment
Full Name:
CAPTCHA Verification 
Please enter the text you see in the image into the textbox below (we use this to prevent automated submissions).

Help Desk Software by Hybrid Solutions