// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Price1");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();


//Visit Market<no space>logy.com  for strategy and unique AFL 

Base =DEMA(RSI(14), 10) ;
NOL=Param( "No of Lines", 1, 2, 5,1 );
for( i = 1; i <= NOL; i++ )
{
UpBase = LastValue(Peak(Base,1, i));
DownBase = LastValue(Trough(Base,1, i));
Plot(ValueWhen( UpBase==Base, HHV(H,10) ), "",colorRed,styleStaircase);
Plot(ValueWhen(DownBase==Base, LLV(L,10) ), "",colorGreen, styleStaircase);
}