1453 fatih for Amibroker (AFL)

/*                     1453 Fatih Sistemi - acarlar33
borsabiz.com      facebook.com/acarlar33                        


Borsabiz.com tarafindan acarlar33 tarafindan yapılmıştir
1453 fatih sistemi tamamen acarlar33 sistemidir

*/



_SECTION_BEGIN("AuthorName");
k = (GetPerformanceCounter()/100)%100; 
printf("GetPerformance Counter %g",k);
GfxSelectFont("arial",13,800); 
GfxSetBkMode(1); 
GfxSetTextColor(colorRed); 
GfxTextOut("Borsabiz.com-1453 Fatih sistemi",-10+k,20); 
RequestTimedRefresh(10); 
_SECTION_END();

_SECTION_BEGIN("BACK COLR");
 
GfxSetOverlayMode(1); 
 
GfxSetOverlayMode(1);
GfxSelectFont("Tahoma", Status("pxheight")/20 ); /* Up down name*/
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ParamColor("Text Color", ColorHSB( 42, 42, 42 ) ));
GfxSetBkMode(0); // transparent
GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/7);
GfxSelectFont("Tahoma", Status("pxheight")/30 );
GfxTextOut( IndustryID(1), Status("pxwidth")/2, Status("pxheight")/5 );  /* Up Down Sector*/
 
GfxSelectFont("Tahoma", Status("pxheight")/40 );
GfxSelectFont("Tahoma", Status("pxheight")/20 );

 
_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");
 
 
P = ParamField("Price field",-1);
Periods1 = Param("Periods1", 60, 2, 500, 1, 10 );
Periods2 = Param("Periods2", 360, 2, 500, 1, 10 );
Periods3 = Param("Periods3", 180, 2, 500, 1, 10 );
Periods4 = Param("Periods4", 270, 2, 500, 1, 10 );
Periods5 = Param("Periods5", 90, 2, 500, 1, 10 );
Plot( EMA( P, Periods1 ), StrFormat(_SECTION_NAME()+"(%g)", Periods1), ParamColor( "Color1", colorAqua ), ParamStyle("Style") ); 
Plot( EMA( P, Periods2 ), StrFormat(_SECTION_NAME()+"(%g)", Periods2), ParamColor( "Color2", colorDarkBlue ), ParamStyle("Style") ); 
Plot( EMA( P, Periods3 ), StrFormat(_SECTION_NAME()+"(%g)", Periods3), ParamColor( "Color3", colorGreen ), ParamStyle("Style") );
Plot( EMA( P, Periods4 ), StrFormat(_SECTION_NAME()+"(%g)", Periods4), ParamColor( "Color4", colorPink ), ParamStyle("Style") );
Plot( EMA( P, Periods5 ), StrFormat(_SECTION_NAME()+"(%g)", Periods5), ParamColor( "Color5", colorYellow ), ParamStyle("Style") );
Buy = Cross( EMA( P, Periods4 ), EMA( P, Periods2 ) );
Sell = Cross(EMA( P,Periods2 ),  EMA( P, Periods1 ) );
izleme= Cross(EMA( P,Periods1 ),  EMA( P, Periods2 ) );
izleme2=Cross(EMA( P,periods5 ), EMA ( P,periods1 ) ); 

PlotShapes(IIf(Buy==1, shapeHollowUpArrow , shapeNone), colorGreen, 0,Low, Offset=-30); 
PlotShapes(IIf(Sell==1, shapeHollowDownArrow, shapeNone), colorRed, 0,High, Offset=-30);
PlotShapes(IIf(izleme==1, shapeHollowUpArrow, shapeNone), colorBlue, 0,Low, Offset=-30);
PlotShapes(IIf(izleme2==1, shapeHollowDownArrow, shapeNone), colorBlue, 0,Low, Offset=-30);

COLOR=IIf(Buy,colorLime,IIf(Sell,colorRed,colorWhite));
Plot(C,"",COLOR,styleCandle|styleThick);
PlotShapes( IIf( Buy, shapeUpTriangle, shapeNone ), colorGreen, layer = 0,yposition = L, offset = 70);
PlotShapes( IIf( Sell, shapeDownTriangle, shapeNone ), colorRed, layer = 0, yposition =H, offset = 70);
PlotShapes( IIf( izleme, shapeUpTriangle, shapeNone ), colorYellow, layer = 0, yposition =H, offset = 80); 
PlotShapes( IIf( izleme2, shapeDownTriangle, shapeNone ), colorPink, layer = 0, yposition =H, offset = 80);
 
PlotOHLC( Null,EMA( P, Periods4 ),EMA( P, Periods2 ),Null, "", IIf(EMA( P, Periods4 )>EMA( P, Periods2 ) ,colorGreen,colorWhite), styleCloud);
PlotOHLC( Null,EMA( P, Periods2 ),EMA( P, Periods1 ),Null, "", IIf(EMA( P, Periods2 )<EMA( P, Periods1 ) ,colorBlue,colorRed), styleCloud);



 
Color = IIf( EMA(p,periods1) > EMA(p,periods2) , colorLime, IIf( EMA(p,periods2) > EMA(p,periods1), colorRed, colorGrey40 )) ;
 
Plot( 2, "", Color, styleArea | styleOwnScale | styleNoLabel, -0.1, 30 );
 
_SECTION_END();