New intraday trading system

not working

amibroker afl

Hello
asmit sir

can u share u r afl with me,

warm regards
cahinmay

_SECTION_BEGIN("Chart Settings");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("Outer Panel",colorPaleBlue));
SetChartBkGradientFill(ParamColor("Upper Chart",1),ParamColor("Lower Chart",23));
_SECTION_END();

Kisa=Param("KISA GN",12,1,500,1);
Uzun=Param("UZUN GN",43,1,1000,1);
Tetik=Param("TETIK GN",21,1,50,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 Toplamlari");
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 ISLEMI");

Plot(C,"Kapanis",colorWhite,styleBar);
tsrcolor = IIf(TSR > Ref(TSR,-1),colorLime,colorRed);
Plot(TSR,"TSR",tsrcolor,styleLine|styleThick);

_SECTION_END();


chinmay its for u.

exactly same by nishant 's system from amibroker library

Asmit Sir

Thank U verymuch Sir

warm regards
chinmay

good afl can we get this for meta4.

Hi friends,

I have one indicator i want to modify these. These is a Awsome indicator Red and Green line histogram. I want buy and sell signal on chart when histogram is green buy signal on chart and when histrogram is red sell signal on chart.

Here i give afl for these indicator. If any one can do pls try these.

_SECTION_BEGIN("Awsome Oscilator");
center=(H+L)/2;
t1=Optimize("t1",34,20,50,3); //slow MA param
t2=Optimize("t2",5,3,10,1); //fast MA param
awi=MA(center,t2)-MA(center,t1);

Plot(awi,"Awsome",IIf(awi>Ref(awi,-1),colorGreen,colorRed),styleHistogram | styleThick);

Buy=Cover=
Cross(awi,0) OR //cross 0
(awi<0 AND awi>Ref(awi,-1) AND Ref(awi, -BarsSince(awi<Ref(awi,-1)))>LLV(awi,BarsSince(awi>0))) OR //lower high built
(awi>0 AND awi>Ref(awi,-1)) // awi direction change to positive above 0 level
;
Short=Sell=
Cross(0,awi) OR //cross 0
(awi>0 AND awi<Ref(awi,-1) AND Ref(awi, -BarsSince(awi>Ref(awi,-1)))<HHV(awi,BarsSince(awi<0))) OR //higher low built
(awi<0 AND awi<Ref(awi,-1)) // awi direction change to negative below 0 level
;

Buy=Cover=ExRem(Buy,Sell);
Sell=Short=ExRem(Short,Cover);
PlotShapes( IIf( Buy, shapeNone , shapeNone ), colorWhite );
PlotShapes( IIf( Short, shapeNone, shapeNone ), colorWhite );
_SECTION_END();


Thanks

Hi,

Asmit Where is this indicator code?

i have modified sfl. now it shows price m arrow

_SECTION_BEGIN("Awsome Oscilator");
center=(H+L)/2;
t1=Optimize("t1",34,20,50,3); //slow MA param
t2=Optimize("t2",5,3,10,1); //fast MA param
awi=MA(center,t2)-MA(center,t1);

//Plot(awi,"Awsome",IIf(awi>Ref(awi,-1),colorGreen,colorRed),styleHistogram | styleThick);

Buy=Cover=
Cross(awi,0) OR //cross 0
(awi<0 AND awi>Ref(awi,-1) AND Ref(awi, -BarsSince(awi<Ref(awi,-1)))>LLV(awi,BarsSince(awi>0))) OR //lower high built
(awi>0 AND awi>Ref(awi,-1)) // awi direction change to positive above 0 level
;
Short=Sell=
Cross(0,awi) OR //cross 0
(awi>0 AND awi<Ref(awi,-1) AND Ref(awi, -BarsSince(awi>Ref(awi,-1)))<HHV(awi,BarsSince(awi<0))) OR //higher low built
(awi<0 AND awi<Ref(awi,-1)) // awi direction change to negative below 0 level
;

Buy=Cover=ExRem(Buy,Sell);
Sell=Short=ExRem(Short,Cover);
//PlotShapes( IIf( Buy, shapeNone , shapeNone ), colorWhite );
//PlotShapes( IIf( Short, shapeNone, shapeNone ), colorWhite );
shape = Buy * shapeUpArrow + Sell * shapeDownArrow;

Plot( Close, "Price", colorBlack, styleCandle );

PlotShapes( shape, IIf( Buy, colorGreen, colorRed ), 0, IIf( Buy, Low, High ) );

GraphXSpace = 5;

_SECTION_END();



johnny