Syntax

Public function StochasticOscillator(ByRef Data As Database, ByRef OHLCV As RecordSet, ByVal KPeriods As Integer, ByVal KSlowingPeriods As Integer, ByVal DPeriods As Integer, ByVal MAType As Integer) As RecordSet

Overview

The Stochastic Oscillator is a popular indicator that shows where a securitys price has closed in proportion to its closing price range over a specified period of time.

Interpretation

The Stochastic Oscillator has two components: %K and %D. %K is most often displayed as a solid line and %D is often shown as a dotted line. The most widely used method for interpreting the Stochastic Oscillator is to buy when either component rises above 80 or sell when either component falls below 20. Another way to interpret the Stochastic Oscillator is to buy when %K rises above %D, and conversely, sell when %K falls below %D.

Note

KPeriods, KSlowingPeriods, and DPeriods are integers specifying the values used in the calculations.
The most commonly used arguments are 9 for %K periods, 3 for %K slowing periods and 3 for %D smoothing. MAType is an integer specifying the moving average type to be used (Simple = 1, Exponential = 2, TimeSeries = 3, Variable = 4, Triangular = 5, Weighted = 6, VIDYA = 7).

Class: Oscillator

Properties

Sample

Public Sub main()        'Variables        Dim _symbolInfo As VTLGeneral.CSymbol=ClientCode.GetSymbolByName("GOLD")        Dim DB As New VTLGeneral.Database()        Dim RecordCount As Integer        Dim m_Recordset As VTLGeneral.RecordSet        Dim _historyData As object()        Dim output As String        Dim Record As Integer        Dim m_Date As VTLGeneral.Field        Dim m_Open As VTLGeneral.Field        Dim m_High As VTLGeneral.Field        Dim m_Low As VTLGeneral.Field        Dim m_Close As VTLGeneral.Field        Dim j As Integer = 0        Dim i As Integer = 0        Dim _recordCount As Integer =100                m_Recordset = DB.CreateRecord        m_Open = New VTLGeneral.Field        m_High = New VTLGeneral.Field        m_Low = New VTLGeneral.Field        m_Close = New VTLGeneral.Field         DB.RecordCount = _recordCount        RecordCount = _recordCount         'Initialize Recordsets        m_Open.initialize(_recordCount-1, "Open")        m_High.initialize(_recordCount-1, "High")        m_Low.initialize(_recordCount-1, "Low")        m_Close.initialize(_recordCount-1, "Close")        'load high, low ,open and data         _historyData = ClientCode.GetChartHistory(_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day,VTLGeneral.ENUM_HISTORY_TYPE.HIS_HIGH, _recordCount)          For i  = 0 To _recordCount-1                m_High.setValue(i,_historyData(i))         Next         _historyData = ClientCode.GetChartHistory(_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day,VTLGeneral.ENUM_HISTORY_TYPE.HIS_LOW, _recordCount)         For i  = 0 To _recordCount-1                m_Low.setValue(i,_historyData(i))        Next         _historyData = ClientCode.GetChartHistory(_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day,VTLGeneral.ENUM_HISTORY_TYPE.HIS_OPEN, _recordCount)         For i  = 0 To _recordCount-1                m_Open.setValue(i,_historyData(i))        Next         _historyData = ClientCode.GetChartHistory(_symbolInfo.ID, VTLGeneral.ENUM_PERIOD.Day,VTLGeneral.ENUM_HISTORY_TYPE.HIS_CLOSE, _recordCount)         For i  = 0 To _recordCount-1                m_Close.setValue(i,_historyData(i))        Next          m_Recordset.addField(m_Open)        m_Recordset.addField(m_High)        m_Recordset.addField(m_Low)        m_Recordset.addField(m_Close)         'StochasticOscillator indicator        Dim _indRecord As New VTLGeneral.RecordSet()        Dim osc As New VTLGeneral.Oscillator()        _indRecord = osc.PriceOscillator(DB,m_High,10,5,2)         For i = 0 To DB.getRecordCount-1                output = output  &  CSTR(_indRecord.getValue(_indRecord.getName(1), i) ) & vbcrlf        Next         GUI.MsgDialog(output) End Sub  

See Also

• TRIX
• Ultimate Oscillator
• Vertical Horizontal Filter

Back to VTL Server Script Index