Hoy vamos a echarle una mano al colega Miguel Angel de bolsatrilera que nos ha pedido desesperadamente que le tuneemos un Rsi bastante deteriorado.
El problema que nos hemos encontrado es que el Rsi es un clásico ya antiguo y es díficil encontrar indicadores de repuesto para tunearlo.
Queríamos añadir algún elemento que le diera un valor añadido al tiempo de personalizarlo.
Para ello , hemos tenido que buscar en un foro italiano sobre Prorealtime , donde hemos encontrado piezas antiguas de recambio.
Cualquier cosa no nos valía para este modelo tradicional que es el Rsi.
La solución ha sido añadir el indicador Better Volume que apareció en REE, ALTO VOLTAJE .
Mediante un código de esta tienda de accesorios para tunning , hemos conseguido transformar el destartalado Rsi de Miguel en una potente herramienta , con la que seguro podrá vacilar en el barrio.
Y ahora , ha llegado el momento de que veaís el resultado con un gráfico de Abertis...
Si colegas ! , ha quedado genial !,el volumen del Better Volume nos indicó una barra en color magenta que se identifica con el final/principio de una fase de euforía/pánico . En el Rsi hay añadida una media , cuyo cruce alcista se acaba de producir a cierre de la sesión del Viernes....
A Miguel Angel le ha encantado y nos ha felicitado por tunear su Rsi , ¿ y a tí que te parece ?
El código original completo para la plataforma Prorealtime para vuestra curiosidad es :
-----------------------------------------------------------------------------------------------------
REM RSI Better Volume
// by Drenaggio Enero 2009 in foro finanzaonline
//////////////////////////////////////////////////////
REM Parametri: Oshift=30 Vshift=5 period=14 RSIMassimo=80 RSIMinimo=20
////////////////////////////////////////////////////
vv1=volume
vv2=range*volume
if range<>0 then
vv3=volume/range
endif
vv4=average[100](vv1)
if vv1=lowest[20](vv1) then
lowvol=vv1
else
lowvol=0
endif
if vv2=highest[20](vv2) then
climax=vv1
else
climax=0
endif
if vv3=highest[20](vv3) then
chum=vv1
else
chum=0
endif
if vv2=highest[20](vv2) and vv3=highest[20](vv3) then
chumclim=vv1
else
chumclim=0
endif
if vv3=lowest[20](vv3) then
lowchum=vv1
else
lowchum=0
endif
REM RSI
rialzo=MAX(0,Customclose-Customclose[1])
ribasso=MAX(0,Customclose[1]-Customclose)
mmRialzo=wilderaverage[period](rialzo)
mmRibasso=wilderaverage[period](ribasso)
RS=mmRialzo/mmRibasso
mioRSI=100-100/(1+RS)
avolume=average[Oshift](volume)
If Barindex<Oshift then
mioRSI2=undefined
else
avolume=avolume[1]
mioRSI2=((mioRSI/100)*Vshift)*avolume
endif
avRSI=average[period*2](mioRSI2)
mRSI=avolume*(Vshift/2)
mioMax=(RSIMassimo/100)
mioMin=(RSIMinimo/100)
RSImin=(avolume*Vshift)*mioMin
RSIMax=(avolume*Vshift)*mioMax
return vv1 coloured(0,204,204) as "volume",lowvol coloured(204,204,0) as "Low-V Low-R",climax coloured(255,0,0) as "climax High-V High-R",chum coloured(0,204,0) as "High-V Low-R",lowchum as "Low-V High-R",chumclim coloured(204,0,204) as "climax High-V Low-R",vv4 as "average", mioRSI2 as "RSI", avRSI as "Media RSI", RSImin as "Ipervenduto", mRSI as "RSI 50", RSIMax as "Ipercomprato"
-----------------------------------------------------------------------------------------------------
No olvideís de poner los parámetros que aparecen en la cabecera del código en el cuadro de variables.
