_SECTION_BEGIN("Price");
GraphXSpace=5;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
EMA130=EMA(C,130);
EMA200=EMA(C,200);
Buy=Cross(C,EMA130) AND ema130>ema200 OR Cross(C,ema200) AND ema130>ema200;
Sell=Cross(EMA130,C) AND ema130<ema200 OR Cross(ema200,C) AND ema130<ema200;
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen, 0,Low,-15);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorRed, 0,High,-15);
_SECTION_BEGIN("Price");
GraphXSpace=5;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
EMA130=EMA(C,130);
EMA200=EMA(C,200);
Buy=Cross(C,EMA130) AND ema130>ema200 OR Cross(C,ema200) AND ema130>ema200;
Sell=Cross(EMA130,C) AND ema130<ema200 OR Cross(ema200,C) AND ema130<ema200;
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen, 0,Low,-15);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorRed, 0,High,-15);
_SECTION_BEGIN("Price");
GraphXSpace=5;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
EMA130=EMA(C,130);
EMA200=EMA(C,200);
Buy=Cross(EMA130,EMA200) ;
Sell=Cross(EMA200,EMA130);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen, 0,Low,-15);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorRed, 0,High,-15);
_SECTION_BEGIN("Price");
GraphXSpace=5;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
EMA130=EMA(C,130);
EMA200=EMA(C,200);
Buy=Cross(EMA130,EMA200) ;
Sell=Cross(EMA200,EMA130);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen, 0,Low,-15);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorRed, 0,High,-15);
_SECTION_BEGIN("Price");
GraphXSpace=5;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
EMA130=EMA(C,130);
EMA200=EMA(C,200);
Buy=Cross(EMA130,EMA200) ;
Sell=Cross(EMA200,EMA130);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen, 0,Low,-15);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorRed, 0,High,-15);
Plot(C,"",colorLightGrey,styleCandle);
r=CdDoji( threshold = 0.05 );
s=CdHammer( rangefactor= 1.1 );
t=CdBearishEngulfing( bodyfactor = 0.4, rangefactor = 0.5);
u=CdBullishEngulfing( bodyfactor = 0.4, rangefactor = 0.5);
//PlotShapes(r*shapeSmallCircle,colorRed,Layer=0,yposition=H,Offset=12);
//PlotShapes(s*shapeCircle,colorYellow,Layer=0,yposition=H,Offset=12);
PlotShapes(t*shapeHollowSmallCircle,colorLime,Layer=0,yposition=H,Offset=15);
PlotShapes(u*shapeHollowCircle,colorBlue,Layer=0,yposition=H,Offset=15);
for(i=0;i<BarCount-1;i++)
{
//if(r[i]==True)PlotText("Doji", i, H[i], colorRed, bkcolor = colorDefault);
//if(s[i]==True)PlotText("Hammer", i, H[i], colorYellow, bkcolor = colorDefault);
if(t[i]==True)PlotText("BearishEngulf", i, H[i], colorLime, bkcolor = colorDefault);
if(u[i]==True)PlotText("BullishEngulf", i, H[i], colorBlue, bkcolor = colorDefault);
}
up=ValueWhen(u,H,1);
dn=ValueWhen(t,L,1);
Plot(up,"Buy Above",5,styleDots);
Plot(dn,"Sell Below",4,styleDots);
Buy=Cross(H,up);
Short=Cross(dn,L);
shape = Buy * shapeUpArrow +Short * shapeDownArrow;
PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High ));
Plot(C,"",colorLightGrey,styleCandle);
r=CdDoji( threshold = 0.05 );
s=CdHammer( rangefactor= 1.1 );
t=CdBearishEngulfing( bodyfactor = 0.4, rangefactor = 0.5);
u=CdBullishEngulfing( bodyfactor = 0.4, rangefactor = 0.5);
//PlotShapes(r*shapeSmallCircle,colorRed,Layer=0,yposition=H,Offset=12);
//PlotShapes(s*shapeCircle,colorYellow,Layer=0,yposition=H,Offset=12);
PlotShapes(t*shapeHollowSmallCircle,colorLime,Layer=0,yposition=H,Offset=15);
PlotShapes(u*shapeHollowCircle,colorBlue,Layer=0,yposition=H,Offset=15);
for(i=0;i<BarCount-1;i++)
{
//if(r[i]==True)PlotText("Doji", i, H[i], colorRed, bkcolor = colorDefault);
//if(s[i]==True)PlotText("Hammer", i, H[i], colorYellow, bkcolor = colorDefault);
if(t[i]==True)PlotText("BearishEngulf", i, H[i], colorLime, bkcolor = colorDefault);
if(u[i]==True)PlotText("BullishEngulf", i, H[i], colorBlue, bkcolor = colorDefault);
}
up=ValueWhen(u,H,1);
dn=ValueWhen(t,L,1);
Plot(up,"Buy Above",5,styleDots);
Plot(dn,"Sell Below",4,styleDots);
Buy=Cross(H,up);
Short=Cross(dn,L);
shape = Buy * shapeUpArrow +Short * shapeDownArrow;
PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High ));