Syntax

Public Sub GoldenDeathCrossOnArray(ByVal Ary As Variant, ByVal ShortTerm As Integer, ByVal MediumTerm As Integer, ByVal LongTerm As Integer, ByVal MA_Type As Integer, ByRef Result As Variant)

Description

A procedure that calculates Golden Death Cross 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

Return value

Returns a double value.

Sample

 Public Sub main()

        Dim ary ()

        Dim result()

        Dim ShortTerm

        Dim MediumTerm

        Dim LongTerm

        Dim MA_Type
 

        Period = 14

        MA_Type = 1

        ShortTerm = 7

        MediumTerm = 14

        LongTerm = 20
 

        CopyClose 0, 1, Bars (0), Ary

        GoldenDeathCrossOnArray Ary, CInt(ShortTerm), CInt(MediumTerm), CInt(LongTerm), CInt(MA_Type), Result

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

End Sub

 
 

See Also

• KeltnerOnArray
• NeuralIndicatorOnArray
• StochRSIOnArray

Back to VTL Client Script Index