ALGUNAS PEQUEÑAS JOYAS DE MI ARSENAL

De vez en cuando publico algunos códigos de los indicadores que desarrollo de apoyo a mis sistemas. Hoy dejo aquí un indicador que no es otra cosa que un stop dinámico basado en las velas heiken-ashi.

La idea es simple, si estoy en una tendencia alcista, cuando aparezca una vela heiken negra o bajista subir el stop a una distancia del precio en función del ATR. Si estoy en una tendencia bajista, cuando aparezca una vela heiken blanca o alcista, bajar el stop a una distancia del precio en función del ATR.

Si en cualquiera de los dos casos la tendencia vuelve a retomarse después de unas velas contrarias, se vuelve a basar el stop en la primera vela a favor de tendencia en función del ATR.

De esta forma conseguimos acompañar al precio con un stop dinámico.

Esto suena muy sencillo, pero para conseguirlo hay dos cosas que no lo son:

1. Como detecto los cambios en las velas heiken.
2. Como se en que tendencia estoy.

Para eso necesito desarrollar otros dos indicadores.

El primero es el de detección de las velas heiken "Cal_Heiken". Es uno de los que mas me gusta de los que he desarrollado. Pinta una barra verde si la vela heiken es alcista y una barra roja si es bajista. Además da unos avisos amarillos si las sombras de las velas heiken son mas grandes de lo normal y por tanto pueden estar avisando de que el impulso se acaba...es decir ni mas ni menos que un semáforo.

Este indicador tiene dos variables n y p, que si las dejamos con valor 1 nos dibuja las heiken clásicas, pero con valores superiores se pueden obtener velas heiken suavizadas que eliminen falsos cambios de tendencia...no suelo usarlo, pero ahí queda la posibilidad.

Para el segundo punto necesitamos un indicador de tendencia. Usad el que queráis. Yo uso varios, como curiosidad os dejo un indicador que mide las pendientes de subida y de bajada de los precios y las compara "Cal_Indicador_pendiente"...suele marca bien las tendencias...mas o menos.

Una vez cargados estos dos indicadores en vuestra base de datos, podemos utilizar el de stop, ya que "llama" a sus resultados.

El indicador "Cal_Stop_Heiken" dibuja dos stop indiscriminadamente uno para posiciones largas y otro para posiciones cortas, pero esa presentación no me gustaba y por eso decidí introducir un indicador de tendencia, para que en función de él me pintara uno u otro. El gráfico queda mas limpio. También tiene una variable m que hace que el stop no suba y baje perdiendo eficacia.

El resultado es este:

Las flechas rojas y verdes indican cambio de color de velas y como se mueve el stop.

Los códigos de PRT son:

//Cal_Heiken

//Marca las velas heiken segun su color. Tambien puedde suavizarse con la variable n y p. n=1 p=1 heiken clásico.
//@Calatravo_indicators
 

if barindex<=n then

AH=(open[1]+close[1])/2
CH=(open+High+low+close)/4
MaxH=MAX(MAX(high,AH),CH)
MinH=MIN(MIN(low,AH),CH)
AHsuav=AH
CHsuav=CH
Maxhsuav=MaxH
MinHsuav=MinH
else
AH=(average[n](AH[1])+average[n](CH[1]))/2
CH=(average[n](open)+average[n](High)+average[n](low)+average[n](close))/4
MaxH=MAX(average[n](MAX(average[n](high),average[n](AH))),average[n](CH))
MinH=MIN(average[20](MIN(average[20](low),average[n](AH))),average[n](CH))
AHsuav=average[p](AH)
CHsuav=average[p](CH)
Maxhsuav=average[p](MaxH)
MinHsuav=average[p](MinH)
endif

If AHsuav>CHsuav then

Ssup=MaxHsuav-AHsuav
Sinf=0
else
SSup=0
Sinf=MinHsuav-AHsuav
endif

if abs(Ssup)>abs(AHsuav-CHsuav) then

SS=12
else
SS=0
endif

if abs(Sinf)>abs(AHsuav-CHsuav) then
SI=-2
else
SI=0
endif
 

if CHsuav-AHsuav>0 then

Ind1=10
Ind2=0
elsif CHsuav-AHsuav<0 then
Ind1=0
Ind2=10
else
Ind1=0
Ind2=0
endif

 return SS as "Sombra_sup", SI as "Sombra_inf", Ind1 as "Largos", Ind2 as "Cortos", 0

//Cal_indicador _pendiente

//Compara los de las pendientes subida y bajada del precio
//@Calatravo_indicators

// pendiente de subida

PS= totalprice - lowest[n](totalprice)
 
// pendiente de bajada
PB = highest[n](totalprice)-totalprice

return average[m](PS-PB) as "Dif_pendiente", 0 as "cero"

 

 

 

//Cal_stop_heiken

//Stop dinámico en función de velas Heiken

//@Calatravo_indicators

ignored, ignored, myLargos, myCortos, ignored = CALL "Cal_Heiken"[n ,1]

If barindex<2 then

stopl=0

else

if myLargos[1]>0 and myLargos=0 then

stopl=totalprice-AverageTrueRange[14](close)*p

else

stopl=stopl[1]

endif

if myLargos[1]=0 and myLargos>0 then

stopl=totalprice-AverageTrueRange[14](close)*p

endif

endif

If barindex<2 then

stopc=0

else

if myCortos[1]>0 and myCortos=0 then

stopc=totalprice+AverageTrueRange[14](close)*p

else

stopc=stopc[1]

endif

if myCortos[1]=0 and myCortos>0 then

stopl=totalprice-AverageTrueRange[14](close)*p

endif

endif

indicator1, indicator3 = CALL "Cal_indicador_pendiente"[20 ,4]

if indicator1>indicator3 then

col=1

STP=highest[m](stopl)

else

col=-1

STP=lowest[m](stopc)

endif

return STP COLOURED BY col as "Stop"

 

 

Saludos,

 

Espero que os sean útiles.