Hello,
I am using one more AFL code for EMA crossover, Its having 5 EMA, 15 High EMA & 15 Low EMA. Its working fine when u see on chart but while scanning its not givin exact results. I tried to make changes but not succeed.
Please find below mentioned AFL:-
_SECTION_BEGIN("Price");
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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
_SECTION_BEGIN("Price");
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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
_SECTION_BEGIN("ema_crossover");
x = EMA(Close,5);
y = EMA(High,15);
z = EMA(Low,15);
Plot(EMA(Close,5),"",colorRed,styleLine);
Plot(EMA(Low,15),"",colorPaleGreen,styleLine);
Plot(EMA(High,15),"",colorDarkGreen,styleLine);
Buy=Cross(x,z);
PlotShapes(shapeUpArrow*Buy,colorLightBlue);
XR=(EMA(Close,5) * (2 / 6 - 1) - EMA(Low,15) * (2 / 11 - 1)) / (2 / 6 - 2 / 11);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"5/15 EMA " +EncodeColor( colorBlack )
+ " O " + O + " H " + H + " L " + L + " C "+ C + "\n";
Buy=Cross(x,y);
PlotShapes(shapeUpArrow*Buy,colorBlue);
AlertIf( Buy, "SOUND C:\\Windows\\Media\\notify.wav", "Audio alert", 2 );
XR=(EMA(Close,5) * (2 / 6 - 1) - EMA(High,15) * (2 / 11 - 1)) / (2 / 6 - 2 / 11);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"5/15 EMA " +EncodeColor( colorBlack )
+ " O " + O + " H " + H + " L " + L + " C "+ C + "\n";
Sell=Cross(y,x);
PlotShapes(shapeDownArrow*Sell,colorGrey);
AlertIf( Sell, "SOUND C:\\Windows\\Media\\chord.wav", "Audio alert", 2 );
XR=(EMA(Close,5) * (2 / 6 - 1) - EMA(High,15) * (2 / 11 - 1)) / (2 / 6 - 2 / 11);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"5/15 EMA " +EncodeColor( colorBlack )
+ " O " + O + " H " + H + " L " + L + " C "+ C + "\n";
Sell=Cross(z,x);
PlotShapes(shapeDownArrow*Sell,colorBlack);
AlertIf( Sell, "SOUND C:\\Windows\\Media\\chord.wav", "Audio alert", 2 );
XR=(EMA(Close,5) * (2 / 6 - 1) - EMA(Low,15) * (2 / 11 - 1)) / (2 / 6 - 2 / 11);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"5/15 EMA " +EncodeColor( colorBlack )
+ " O " + O + " H " + H + " L " + L + " C "+ C + "\n";
_SECTION_END();
Request to seniors to look into the code & modify this AFL for scanning purpose with exact results.
Regards,
TT
I am using one more AFL code for EMA crossover, Its having 5 EMA, 15 High EMA & 15 Low EMA. Its working fine when u see on chart but while scanning its not givin exact results. I tried to make changes but not succeed.
Please find below mentioned AFL:-
_SECTION_BEGIN("Price");
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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
_SECTION_BEGIN("Price");
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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
_SECTION_BEGIN("ema_crossover");
x = EMA(Close,5);
y = EMA(High,15);
z = EMA(Low,15);
Plot(EMA(Close,5),"",colorRed,styleLine);
Plot(EMA(Low,15),"",colorPaleGreen,styleLine);
Plot(EMA(High,15),"",colorDarkGreen,styleLine);
Buy=Cross(x,z);
PlotShapes(shapeUpArrow*Buy,colorLightBlue);
XR=(EMA(Close,5) * (2 / 6 - 1) - EMA(Low,15) * (2 / 11 - 1)) / (2 / 6 - 2 / 11);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"5/15 EMA " +EncodeColor( colorBlack )
+ " O " + O + " H " + H + " L " + L + " C "+ C + "\n";
Buy=Cross(x,y);
PlotShapes(shapeUpArrow*Buy,colorBlue);
AlertIf( Buy, "SOUND C:\\Windows\\Media\\notify.wav", "Audio alert", 2 );
XR=(EMA(Close,5) * (2 / 6 - 1) - EMA(High,15) * (2 / 11 - 1)) / (2 / 6 - 2 / 11);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"5/15 EMA " +EncodeColor( colorBlack )
+ " O " + O + " H " + H + " L " + L + " C "+ C + "\n";
Sell=Cross(y,x);
PlotShapes(shapeDownArrow*Sell,colorGrey);
AlertIf( Sell, "SOUND C:\\Windows\\Media\\chord.wav", "Audio alert", 2 );
XR=(EMA(Close,5) * (2 / 6 - 1) - EMA(High,15) * (2 / 11 - 1)) / (2 / 6 - 2 / 11);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"5/15 EMA " +EncodeColor( colorBlack )
+ " O " + O + " H " + H + " L " + L + " C "+ C + "\n";
Sell=Cross(z,x);
PlotShapes(shapeDownArrow*Sell,colorBlack);
AlertIf( Sell, "SOUND C:\\Windows\\Media\\chord.wav", "Audio alert", 2 );
XR=(EMA(Close,5) * (2 / 6 - 1) - EMA(Low,15) * (2 / 11 - 1)) / (2 / 6 - 2 / 11);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"5/15 EMA " +EncodeColor( colorBlack )
+ " O " + O + " H " + H + " L " + L + " C "+ C + "\n";
_SECTION_END();
Request to seniors to look into the code & modify this AFL for scanning purpose with exact results.
Regards,
TT