Hi Silentshadow ,
Thanks for sharing this strategy.
I have found the following afl in internet. Actually it was for four days and i modified it for 3 days.
_SECTION_BEGIN("3hl method");
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
DC=TimeFrameGetPrice( "C", inDaily, 0);
DC1=TimeFrameGetPrice( "C", inDaily, -1);
dh=TimeFrameGetPrice( "H", inDaily, 0);
dh1=TimeFrameGetPrice( "H", inDaily, -1);
dh2=TimeFrameGetPrice( "H", inDaily, -2);
dh3=TimeFrameGetPrice( "H", inDaily, -3);
DL=TimeFrameGetPrice( "L", inDaily, 0);
dl1=TimeFrameGetPrice( "l", inDaily, -1);
dl2=TimeFrameGetPrice( "l", inDaily, -2);
dl3=TimeFrameGetPrice( "l", inDaily, -3);
do1=TimeFrameGetPrice( "O", inDaily, -1);
doo=TimeFrameGetPrice( "O", inDaily, 0);
Maxh1=Max(dh1,dh2);
Maxh2=Max(dh2,dh3);
Maxh=Max(Maxh1,Maxh2);
Plot(Maxh,"maxh",colorBrown,styleLine);
Minl1=Min(dl1,dl2);
Minl2=Min(dl2,dl3);
Minl=Min(Minl1,Minl2);
Plot(Minl,"minl",colorYellow,styleLine);
Buy = Cross(Close , Maxh);
Sell = Cross( Minl,Close);
PlotShapes(Sell*shapeDownArrow,colorWhite);
PlotShapes(Buy*shapeUpArrow,colorWhite);
Title = EncodeColor(colorBlack)+ "excel trade" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +" - "+"\n" +EncodeColor(colorBlue) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+
"Cl-"+C+" "+ "Vol= "+ WriteVal(V)+" 3dh= "+WriteVal(Maxh)+" 3dL= "+WriteVal(Minl);
Filter=(Buy OR Sell) ;
NumColumns = 0;
AddColumn(Close,"CMP", 1.2);
AddColumn( IIf( Buy, 66, 83 ), "Signal" , formatChar,2,4 );
AddColumn(doo,"open", 1.2);
AddColumn(dH,"HIGH", 1.2);
AddColumn(dL,"low", 1.2);
AddColumn(dC,"close", 1.2);
AddColumn(Maxh,"buy value", 1.2);
AddColumn(Minl,"sell value", 1.2);
_SECTION_END();
Kindly check is it correct?
Thanks
Thanks for sharing this strategy.
I have found the following afl in internet. Actually it was for four days and i modified it for 3 days.
_SECTION_BEGIN("3hl method");
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
DC=TimeFrameGetPrice( "C", inDaily, 0);
DC1=TimeFrameGetPrice( "C", inDaily, -1);
dh=TimeFrameGetPrice( "H", inDaily, 0);
dh1=TimeFrameGetPrice( "H", inDaily, -1);
dh2=TimeFrameGetPrice( "H", inDaily, -2);
dh3=TimeFrameGetPrice( "H", inDaily, -3);
DL=TimeFrameGetPrice( "L", inDaily, 0);
dl1=TimeFrameGetPrice( "l", inDaily, -1);
dl2=TimeFrameGetPrice( "l", inDaily, -2);
dl3=TimeFrameGetPrice( "l", inDaily, -3);
do1=TimeFrameGetPrice( "O", inDaily, -1);
doo=TimeFrameGetPrice( "O", inDaily, 0);
Maxh1=Max(dh1,dh2);
Maxh2=Max(dh2,dh3);
Maxh=Max(Maxh1,Maxh2);
Plot(Maxh,"maxh",colorBrown,styleLine);
Minl1=Min(dl1,dl2);
Minl2=Min(dl2,dl3);
Minl=Min(Minl1,Minl2);
Plot(Minl,"minl",colorYellow,styleLine);
Buy = Cross(Close , Maxh);
Sell = Cross( Minl,Close);
PlotShapes(Sell*shapeDownArrow,colorWhite);
PlotShapes(Buy*shapeUpArrow,colorWhite);
Title = EncodeColor(colorBlack)+ "excel trade" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +" - "+"\n" +EncodeColor(colorBlue) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+
"Cl-"+C+" "+ "Vol= "+ WriteVal(V)+" 3dh= "+WriteVal(Maxh)+" 3dL= "+WriteVal(Minl);
Filter=(Buy OR Sell) ;
NumColumns = 0;
AddColumn(Close,"CMP", 1.2);
AddColumn( IIf( Buy, 66, 83 ), "Signal" , formatChar,2,4 );
AddColumn(doo,"open", 1.2);
AddColumn(dH,"HIGH", 1.2);
AddColumn(dL,"low", 1.2);
AddColumn(dC,"close", 1.2);
AddColumn(Maxh,"buy value", 1.2);
AddColumn(Minl,"sell value", 1.2);
_SECTION_END();
Kindly check is it correct?
Thanks