False Trade Detection System |
//www.aflcode.com _SECTION_BEGIN( "Chart Settings" ); SetChartOptions( 0, chartShowArrows | chartShowDates ); SetChartBkColor( ParamColor( "Outer Panel", colorDarkGrey ) ); SetChartBkGradientFill( ParamColor( "Upper Chart", colorBlack ), ParamColor( "Lower Chart", colorBlack ) ); _SECTION_END(); Kisa = Param( "KISA GÜN", 12, 0.1, 500, 0.1 ); Uzun = Param( "UZUN GÜN", 43, 0.1, 100, 0.1 ); Tetik = Param( "TETI.K GÜN", 21, 0.1, 50, 0.1 ); _SECTION_BEGIN( "Periodlar" ); function KisaPeriodTopla( Kisa ) { ka = Kisa; for ( i = 1; i < Kisa; i++ ) { ka = ka + i; } return ka; } function UzunPeriodTopla( Uzun ) { au = Uzun; for ( iu = 0; iu < Uzun; iu++ ) { au = au + iu; } return au; } function TetikPeriodTopla( Tetik ) { a = Tetik; for ( i = 0; i < Tetik; i++ ) { a = a + i; } return a; } _SECTION_END(); _SECTION_BEGIN( " Gün Toplamlar?" ); function KisaGunTopla( Kisa ) { a = Kisa; kd = a * C; for ( i = 0;i < Kisa;i++ ) { b = Ref( C, -i ); if ( a > 0 ) a--; kd = kd + ( a * b ); } return kd; } function UzunGunTopla( Uzun ) { au = Uzun; ku = au * C; for ( iu = 0;iu < Uzun;iu++ ) { bu = Ref( C, -iu ); if ( au > 0 ) au--; ku = ku + ( au * bu ); } return ku; } Period12Toplam = KisaPeriodTopla( Kisa ); Day12Toplam = KisaGunTopla( Kisa ); LWMA12 = Day12Toplam / Period12Toplam; Period43Toplam = UzunPeriodTopla( Uzun ); Day43Toplam = UzunGunTopla( Uzun ); LWMA43 = Day43Toplam / Period43Toplam; _SECTION_END(); _SECTION_BEGIN( " TSR HESAPLANMASI" ); function XDAY( Tetik ) { X = ( ( 2 * LWMA12 ) - LWMA43 ); aX = Tetik; kX = AX * X; for ( iX = 0;iX < Tetik;iX++ ) { bX = Ref( X, -iX ); if ( aX > 0 ) aX--; kX = kX + ( aX * bX ); } return kX; } XDayToplam = XDAY( Tetik ); XPeriodToplam = TetikPeriodTopla( Tetik ); TSR = ( XDayToplam / XPeriodToplam ); _SECTION_END(); _SECTION_BEGIN( " EKRANA BASMA I.S,LEMI." ); Plot( C, "Kapanis", colorWhite, styleCandle ); tsrcolor = IIf( TSR > Ref( TSR, -1 ), colorLime, colorRed ); Plot( TSR, "TSR", tsrcolor, styleDots + styleLine ); _SECTION_END(); _SECTION_BEGIN( "EXPLORATION" ); //AL=TSR>Ref(TSR,-1); //SAT=Ref(TSR,-1)>TSR; AL = Cross( C, TSR ); SAT = Cross( TSR, C ); AL_status = WriteIf( AL, "Al?s, Yap", " " ); SAT_status = WriteIf( SAT, "Sat?s, Yap", " " ); AL_Col = IIf( AL, colorDarkGreen , colorWhite ); SAT_Col = IIf( SAT, colorRed, colorWhite ); Filter = AL OR SAT; AddColumn( C, "KAPANIS,", 1.2, IIf( C > Ref( C, -1 ), colorBlue, colorRed ) ); AddTextColumn( AL_status, "TSR ALIS,", 1.2, colorWhite, AL_col ); AddTextColumn( SAT_status, "TSR SATIS,", 1.2, colorWhite, SAT_col ); _SECTION_END();
Sign up here with your email
ConversionConversion EmoticonEmoticon