RSI động cho Amibroker (AFL)

Một chỉ số RSI đẹp, được làm mịn thích ứng linh hoạt với các mức giá. Tôi sử dụng nó để phát hiện các thiết lập phân kỳ nhanh hơn so với RSI thông thường.

_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-jcDZbuy;
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) + “)”;