"MAV's Brain Storm";
SetBarsRequired(500,0); 
_SECTION_BEGIN("RSI_LONG 30 mt Intraday");
showsig=ParamList("Show Buy and sell signals?","Yes|No");
//n1=7,n2=14,n3=21
n1=7;
n2=n1*2;
n3=n1*3;
Plot (EMA (RSI(n1),5), "SmoothRSI", colorYellow,styleThick);

Cc=EMA (RSI(n1),5);
A=EMA (RSI(n2),5);
B=EMA (RSI(n3),5);


Plot(A,"RSI 14",ColorRGB(100,150,150), styleLine);
Plot(B,"",ColorRGB(100,150,150), styleLine);

PlotOHLC( 0, A , B ,B , "Cloud", IIf(Cc > b AND Cc>50 ,colorBrightGreen,IIf(cc>b AND cc<50, colorBlue,IIf(cc<b AND cc>50, colorBlue,colorRed))), styleCloud|styleNoLabel);
//Plot( diff, "RSI Histogram", ParamColor("Histogram color", colorBrightGreen ),  ParamStyle("Histogram style", styleHistogram | styleNoLabel, maskHistogram ) );




Color30=IIf(V>EMA(V,10),colorBrightGreen,colorRed);
Color50=IIf(V>1.5*EMA(V,10),colorBrightGreen,colorRed);
Color70=IIf(V>2*EMA(V,10),colorBrightGreen,colorRed);


Plot (50, "", color50,styleDots, styleNoLabel);
Plot (30, "", color30,  styleNoLabel);
Plot (70, "", color70,  styleNoLabel);
if (showsig=="Yes")
{
	Buy=Cross(Cc,a);
	Sell=Cross(b,Cc);
	Buy=ExRem(Buy,Sell);
	Sell=ExRem(Sell,Buy);
	shape=Buy*shapeUpArrow + Sell*shapeDownArrow;
	PlotShapes(shapeUpArrow*Buy, colorLime, 0, A, -35 );
	PlotShapes(shapeDownArrow*Sell, colorRed, 0, A, -35 );
}

Filter =V > 1.5*EMA (V, 10)AND EMA (RSI(7),5)<40 AND   Cross( EMA (RSI(7),5), EMA (RSI(21),5));

AddColumn(Close,"Close",1.2);
AddColumn(Volume,"Volume",1.0);
AddColumn(V/EMA(V,20),"Vspurt",1.0);
AddColumn( RSI(), "RSI", 1.2 );
AddColumn( ROC( Close, 15 ), "ROC(15)", 1.2 );
AddColumn( MFI(), "MFI", 1.2 );
AddColumn( OBV(), "OBV", 1.2 );
AddColumn( CCI(), "CCI", 1.2 );
AddColumn( Ultimate(), "Ultimate", 1.4 );
_SECTION_END();