"RSI-DINÁMICO".Convertir de Amibroker a PRT

This topic has 2 replies, 2 voices, and was last updated 5 years ago by Fr7.

Viewing 3 posts - 1 through 3 (of 3 total)

01/29/2019 at 10:23 PM #89988

Fr7

Hola Nicolás,a ver si puede pasar este indicador a PRT. Creo que es un indicador muy interesante que ojalá tengamos en PRT. Gracias.

DESCRIPCIÓN:

Un RSI agradable y suave que se adapta dinámicamente a los niveles de precios

// Downloaded From www.WiseStockTrader.com
// AFL for Dynamic RSI
//============================================================
_SECTION_BEGIN("Dynamic RSI");

DZbuy = Param("Buy Zone Probability",0.1,0.1,0.5,0.1);
DZsell = Param("Sell Zone Probability",0.1,0.1,0.5,0.1);
Period = Param("Period", 14, 2, 30, 1);

Lb = Param("LookBack Period",60,40,120,1);
RSILine = RSI(Period);
jh = HHV(RSILine,Lb);
jl = LLV(RSILine,Lb);
jc = (WMA((jh-jl),Period)*0.50)+WMA(jl,Period);
Hiline = jh-jc*DZbuy;
Loline = jl+jc*DZsell;
//midline = (jh-jl)/2;
Plot(HiLine,"",colorDarkRed, styleThick| styleDashed);
Plot(LoLine,"",colorDarkRed, styleDashed|styleThick);
Plot(jc,    "",colorGrey40,   styleDashed|styleThick);

R =  ( 4 * RSILine + 3 * Ref(RSILine,-1) + 2 * Ref(RSILine,-2) + Ref(RSILine,-3) ) / 10;
Plot(R,"",IIf(R>jc,colorLime,colorRed),styleThick);
kh = IIf(R>Hiline, R,Hiline);
PlotOHLC( kh,kh,Hiline,Hiline, "", IIf(R>HiLine,colorLime,colorBlack), styleCloud );
kl = IIf(R <Loline, R,Loline);
PlotOHLC( Loline,Loline,kl,kl, "", IIf(R<HiLine,colorRed,colorBlack), styleCloud );
Title = Name() + "- Floating Level RSI V1.0(" + WriteVal(period, 1.0) + ")";

// Downloaded From www.WiseStockTrader.com

// AFL for Dynamic RSI

//============================================================

_SECTION_BEGIN("Dynamic RSI");

DZbuy = Param("Buy Zone Probability",0.1,0.1,0.5,0.1);

DZsell = Param("Sell Zone Probability",0.1,0.1,0.5,0.1);

Period = Param("Period", 14, 2, 30, 1);

Lb = Param("LookBack Period",60,40,120,1);

RSILine = RSI(Period);

jh = HHV(RSILine,Lb);

jl = LLV(RSILine,Lb);

jc = (WMA((jh-jl),Period)*0.50)+WMA(jl,Period);

Hiline = jh-jc*DZbuy;

Loline = jl+jc*DZsell;

//midline = (jh-jl)/2;

Plot(HiLine,"",colorDarkRed, styleThick| styleDashed);

Plot(LoLine,"",colorDarkRed, styleDashed|styleThick);

Plot(jc, "",colorGrey40, styleDashed|styleThick);

R = ( 4 * RSILine + 3 * Ref(RSILine,-1) + 2 * Ref(RSILine,-2) + Ref(RSILine,-3) ) / 10;

Plot(R,"",IIf(R>jc,colorLime,colorRed),styleThick);

kh = IIf(R>Hiline, R,Hiline);

PlotOHLC( kh,kh,Hiline,Hiline, "", IIf(R>HiLine,colorLime,colorBlack), styleCloud );

kl = IIf(R <Loline, R,Loline);

PlotOHLC( Loline,Loline,kl,kl, "", IIf(R<HiLine,colorRed,colorBlack), styleCloud );

Title = Name() + "- Floating Level RSI V1.0(" + WriteVal(period, 1.0) + ")";

Fr7

Participant

Topics: 49

Replies: 156

Been thanked: 19 times

01/30/2019 at 12:20 PM #90033

Nicolas

El indicador RSI dinámico es un tipo de RSI exponencial. Los niveles de sobrecompra y sobreventa (respectivamente, HiLine y LoLine) se calculan de acuerdo con los valores más altos y más bajos de la línea RSI dinámica.

Lo convertí, puedes descargarlo aquí:

Dynamic RSI

Nicolas

Keymaster

Topics: 81

Replies: 20863

Been thanked: 4773 times

01/30/2019 at 12:53 PM #90040

Fr7

Muchas gracias Nicolas!!

Fr7