// Downloaded From https://www.WiseStockTrader.com


MYVOL= IIf(((V-EMA(V,7))/EMA(V,7))*100>10,0,1);
VOLPERCENT=((V-EMA(V,7))/EMA(V,7))*100;
MYGAPUP=IIf(O>Ref(C,-1) AND O>Ref(O,-1) AND C>O AND ((C-Ref(C,-1))/Ref(C,-1))*100>1,1,0);
MYVALUE=IIf(MYGAPUP==1 AND Ref(MYGAPUP,-1)==1,1,0);
HPLUSL=EMA((H+L)/2,3);
OPLUSC=EMA((O+C)/2,3);
RSIM=(RSI(7)-Ref(RSI(7),-1))/Ref(RSI(7),-1);

P = ParamField( "Price field" );
change = Param("% change",8,0.1,25,0.1);
Plot( Zig(P, change), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
Buy=(Zig(p,Change)>Ref(Zig(p,Change),-1) AND Ref(Zig(p,Change),-1)<Ref(Zig(p,Change),-2)AND ((C-Ref(C,-1))/Ref(C,-1))*100<=6 AND MFI(14)>=HHV(MFI(14),5)) AND PDI()>Ref(PDI(),-1) OR (Zig(p,Change)>Ref(Zig(p,Change),-1) AND Ref(Zig(p,Change),-2)<Ref(Zig(p,Change),-3)AND ((C-Ref(C,-1))/Ref(C,-1))*100<=6 AND MFI(14)>=HHV(MFI(14),3))AND PDI()>Ref(PDI(),-1) ;


Sell=C<=Ref(LLV(L,2),-1); 
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);


shapebuy=Buy*shapeUpArrow;
shapesell=Sell*shapeDownArrow;

color=IIf(Buy,colorGreen,IIf(C>Ref(C,-1),colorGreen,IIf(Sell,colorRed,colorBlack)));
Plot(Close,"close",Color,styleCandle);
PlotShapes(shapebuy,colorGreen,0,Low,Offset=-15);

VOLBUY=Buy AND VOLPERCENT>=20;

shapevol=VOLBUY*shapeUpTriangle;

VOLSELL=Sell AND VOLPERCENT>-20;

shapevolsell=VOLSELL*shapeDownTriangle;


AlertIf( shapevol, "", "BUY @ " + C, 1 );
PlotShapes(shapevol,colorBlue,0,Low,Offset=-25);
PlotShapes(shapesell,colorRed,0,High,Offset=-15);
PlotShapes(shapevolsell,colorOrange,0,High,Offset=-25);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"**********NIRMAL INDICATOR V4.MODIFIED********" +EncodeColor( colorRed )
+ " OPEN.... " + O + "... HIGH... " + H + "... LOW... " + L + " ...CLOSE.... "+ C + "...VOLUME INC. %..." + ((V-EMA(V,7))/EMA(V,7))*100 + "\n";