ESTRATEGIAS
53
sin embargo, la divergencia de la media Jaw comienza a
disminuir. Se considera una zona de agotamiento en la
que hay que estar atento porque se puede aproximar el
final del impulso. Este periodo se caracteriza porque la
boca del caimán empieza a cerrarse después de haberse
dado el festín.
dia Teeth (roja). Se considera una zona de espera en la
que hay que estar alertas ante un posible nuevo impul-
so. Durante éste periodo, la boca del caimán aparecerá
cerrada.
ESTADO 2: El Caimán está cazando
Cuando la media Lips y la media Teeth cruzan a la media
Jaw (azul), la media Jaw se haya en su punto de máxi-
ma divergencia, y por último, la divergencia de la media
Lips comienza a disminuir. Se considera la señal de con-
firmación de un nuevo impulso que perdura mientras se
mantiene esta zona. Este periodo es en el que la boca del
caimán está más abierta que nunca.
ESTADO 3: El Caimán ha engordado
Las medias mantienen la misma relación entre ellas pero
Oscar Cuevas
Oscar Cuevas es ingeniero informático e imparte
seminarios online sobre programación de siste-
mas. Además, es desarrollador de contenidos
y estrategias de trading en Visual Chart desde
hace más de 5 años.
‘¡¡ Summary
‘ Classification: Averages
‘Summary !!
‘¡¡ Parameters
Dim AlligatorPriceSource As Price ‘PriceCenter
Dim JawPeriod As Long ‘13
Dim JawLength As Long ‘8
Dim TeethPeriod As Long ‘8
Dim TeethLength As Long ‘5
Dim LipsPeriod As Long ‘5
Dim LipsLength As Long ‘3
‘Parameters !!
Dim JawData As DataIdentifier
Dim TeethData As DataIdentifier
Dim LipsData As DataIdentifier
Option Explicit
Public APP As OscUserApp
Implements Indicator
Public Sub Indicator_OnInitCalculate()
With APP
JawData = .GetIndicatorIdentifier(AvWilder, Data, JawPeriod, AlligatorPriceSource)
TeethData = .GetIndicatorIdentifier(AvWilder, Data, TeethPeriod, AlligatorPriceSource)
LipsData = .GetIndicatorIdentifier(AvWilder, Data, LipsPeriod, AlligatorPriceSource)
.StartBar = 0
End With
End Sub
Public Sub Indicator_OnCalculateBar(ByVal Bar As Long)
With APP
Dim JAW#, TEETH#, LIPS#
JAW = .GetIndicatorValue(JawData, JawLength)
TEETH = .GetIndicatorValue(TeethData, TeethLength)
LIPS = .GetIndicatorValue(LipsData, LipsLength)
If JAW <> NullValue And TEETH <> NullValue And LIPS <> NullValue Then
.SetIndicatorValue JAW, 1
.SetIndicatorValue TEETH, 2
.SetIndicatorValue LIPS, 3
.SetLineName 1, “Jaw”
.SetLineName 2, “Teeth”
.SetLineName 3, “Lips”
.SetBarColor 0, 1, RGB(0, 0, 255)
.SetBarColor 0, 2, RGB(255, 0, 0)
.SetBarColor 0, 3, RGB(0, 255, 0)
.SetBarWidth 0, 3, 3
End If
End With
End Sub
Codigo de Programacion del Alligator para visual Chart 5
