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


Public Sub ComparativeRelativeStrengthOnArray(ByVal Ary1 As Variant,ByVal Ary2 As Variant ,ByRef Result As Variant)


A procedure that calculates Comparative Relative Strength 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 
Ary1 The source array, that contains prices
Ary2 The source array, that contains prices
Result The Result Array

Return value

Returns a double value.


Public Sub main()

        Dim ary1 ()

        Dim ary2 ()

        Dim result()

        CopyClose 0, 1, Bars (0), Ary1

        CopyOpen 0 ,1, Bars (0) , Ary2

        ComparativeRelativeStrengthOnArray Ary1,Ary2,Result

        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