Posted by Mohammad Rahhal, Last modified by Rawan Al Hourani on 17 August 2015 04:05 PM



Public Sub MassIndexOnArray(ByVal OpenAry As VariantByVal HighAry As VariantByVal LowAry As VariantByVal CloseAry As Variant,ByVal Period As Integer ,ByRef Result As Variant)

Procedure that calculate Mass Index based on custom array, and the result passed by result parameter as 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
Period Period as integer value
Result The Result Array

Return value

Returns a double value.


Public Sub main()


        Dim OpenAry()


        Dim HighAry()


        Dim LowAry() 


        Dim  CloseAry()


        Dim result()

        Dim Period

        Period = 14

        CopyClose 0, 1, Bars (0), CloseAry

        CopyHigh 0, 1, Bars (0), HighAry

        CopyOpen 0, 1, Bars (0), OpenAry

        CopyLow 0, 1, Bars (0), LowAry

        MassIndexOnArray OpenAry, HighAry, LowAry, CloseAry, CInt(Period), 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