TSR Formula for AMIBROKER

[soydan]

hi All..


////////////////////////////////////////////////////////////////////////////////////
_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 GN",12,0.1,500,0.1);
Uzun=Param("UZUN GN",43,0.1,100,0.1);
Tetik=Param("TETİK GN",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(" Gn 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 İŞLEMİ");
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ış Yap"," ");
SAT_status=WriteIf(SAT,"Satış Yap"," ");
AL_Col=IIf(AL, colorDarkGreen , colorWhite);
SAT_Col=IIf(SAT, colorRed,colorWhite);
Filter = AL OR SAT;
AddColumn(C, "KAPANIŞ", 1.2, IIf(C > Ref(C,-1),colorBlue, colorRed));
AddTextColumn(AL_status, "TSR ALIŞ", 1.2, colorWhite, AL_col);
AddTextColumn(SAT_status, "TSR SATIŞ", 1.2, colorWhite, SAT_col);
_SECTION_END();
////////////////////////////////////////////////////////////////////////////////////

 

[newagetk]

Guzelmıs sn soydan

 

[deliiii]

Tebrikler Sn Soydan gzel bir alışma

 

[rpc]

Hi
Can any1 pls explain what this afl does ?
what language are the posters in this thread talking ?