// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("NirJeda");

MaxGraph = 10;

//rumus
R = ((HHV(H,14) - C) /(HHV (H,14) -LLV (L,14))) *-100;
Period = 14;
EMA1 = EMA(R,Period);
EMA2 = EMA(EMA1,14);
selisih = EMA1 - EMA2;
nirjeda = EMA1 + selisih;
PR = 0-abs(nirjeda);
ratagerak = MA(PR,5);

//warna
naik = PR>=ratagerak AND PR>=Ref(PR,-1) ;
turun = (PR < ratagerak) OR PR>= ratagerak AND PR< Ref(PR,-1) ;
barcolor = IIf( turun,colorRed, IIf( naik, colorBrightGreen, 7));

Graph0 = PR;
Graph1 = ratagerak;
Graph0BarColor = ValueWhen( barcolor != 0, barcolor );

Title = Name() + "      NirJeda =  " + WriteVal(PR,1.2) + "%" + "       RataGerak =   " + WriteVal(ratagerak,1.2) + "%" ;

Buy = Cross(R,nirjeda);
Sell = Cross(nirjeda,R);

Plot(R,"R",colorGold,styleDashed);