Skip to main content

False Trade Deletion for Amibroker (AFL)

sateeshliks about 15 years ago Amibroker (AFL)

  • Rating:
    2 / 5 (Votes 5)
  • Tags:
    amibroker

Simple way to avoid negative trade and set good prfit…

Assign two charts and set another value as 46.1… Trade if both signal were same otherwise dont..

Screenshots

Indicator / Formula

Copy & Paste Friendly
////////////////////////////////////////////////////////////////////////////////////
_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();
////////////////////////////////////////////////////////////////////////////////////

6 comments

1. waves
about 15 years ago

Good Chart prepared.
What is the meaning of ‘KAPANIS’, ‘TSR ALIS’, ‘TSR SATIS’.

“Assign two charts and set another value as 46.1… Trade if both signal were same otherwise dont..”
above is incomplete statement. ‘set another value at 46.1…’ what one has to understand?

Thanks

Report as Spam
3. drtrader
about 15 years ago

Please post a complete description of interpretation of the formula.

Report as Spam
4. kis
almost 15 years ago

// would have been easier to write the 6 functions into 2 or 1 function(s) or
// or better to write it like this:
SetChartOptions( 0, chartShowArrows | chartShowDates );

_SECTION_BEGIN(“TSR”);
Kisa=Param(“KISA GÜN”,12,0.1,500,0.1);
Uzun=Param(“UZUN GÜN”,43,0.1,100,0.1);
Tetik=Param(“TETIK GÜN”,21,0.1,50,0.1);

TSR = WMA-WMA, Tetik);
Plot(TSR, _DEFAULT_NAME() , IIf( TSR > Ref( TSR, -1 ), colorLime, colorRed ), styleDots);
Plot( C, “Close”, colorBlack, styleCandle );
_SECTION_END();

_SECTION_BEGIN( “EXPLORATION” );
AL = Cross( C, TSR );
SAT = Cross( TSR, C );

AL_status = WriteIf( AL, “Alis Yap”, " " );
SAT_status = WriteIf( SAT, “Satis 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();

Report as Spam
5. kis
almost 15 years ago

another try… line not displayed properly….
the TSR line should be
TSR = WMA[ 2*WMA(C,Kisa)-WMA, Tetik ];

replace the [] with ()

Report as Spam
6. kis
almost 15 years ago

This comment system eats characters.
see if this works
“TSR = WMA-WMA, Tetik);”

Report as Spam

Leave Comment

Please login here to leave a comment.