please edit this AFL

Happy_Singh

Happy_Singh

Happy
#11
#11
Code: 
SetChartBkColor(colorLightGrey);
//SetChartBkGradientFill(colorLightGrey, colorDarkGrey);
_SECTION_BEGIN("MA");
Len = IIf(Interval() > 300, 30, 60);
Disp = WriteIf(Interval() > 300, "MA30", "MA60");
Av = MA(C, Len);
ColorShow = IIf(Av > Ref(Av,-1) AND C > Av, colorGreen, IIf(Av < Ref(Av,-1) AND C < Av, colorRed, colorBlue));
Plot(Av, Disp, ColorShow ,styleLine+styleDots,styleThick,styleDots); 
_SECTION_END();

ToolTip = "High = " + H + "\nOpen = " + O + "\nRange = " + (High-Low) +"\nTRUERange = " + (C-O) +"\nMID ="+((High+Low)/2)+ "\nClose = " + C + "\nLow = " + L;
_SECTION_BEGIN("BW Fractal"); 

UpFractal= ValueWhen( 
(Ref(H,-2) > Ref(H, -4)) AND 
(Ref(H,-2) > Ref(H, -3)) AND 
(Ref(H,-2) > Ref(H, -1)) AND 
(Ref(H,-2) > H), Ref(H,-2)); 

DownFractal= ValueWhen( 
(Ref(L,-2) <= Ref(L, -4)) AND 
(Ref(L,-2) <= Ref(L, -3)) AND 
(Ref(L,-2) <= Ref(L, -1)) AND 
(Ref(L,-2) <= L), Ref(L,-2)); 



//== Added Crash crashandburn59 [at] hotmail.com solution 
Plot(Ref(UpFractal,2), "Up Fractal", ParamColor("Up Fractal Color",colorRed), 
ParamStyle("Up Fractal Style", styleDashed)); 
Plot(Ref(DownFractal,2), "Down Fractal",ParamColor("Down Fractal 
Color",colorBlue), ParamStyle("Down Fractal Style", styleDashed)); 

//Plot(Max(HHV(H,3),Ref(UpFractal,2)), "Up Fractal", ParamColor("Up Fractal Color",colorRed), ParamStyle("Up Fractal Style", styleDashed)); 
//Plot(Max(HHV(H,3),Ref(UpFractal,2)), "Down Fractal",ParamColor("Down FractalColor",colorBlue), ParamStyle("Down Fractal Style", styleDashed)); 

_SECTION_END();


Plot(C,"",colorWhite,styleCandle);
Res =
(H>Ref(H,-1) AND H>Ref(H,-2) AND H>Ref(H,1) AND H>Ref(H,2)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H==Ref(H,1) AND H>Ref(H,2) AND H>Ref(H,3)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H>Ref(H,1) AND H==Ref(H,2) AND H>Ref(H,3)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H==Ref(H,1) AND H==Ref(H,2) AND H>Ref(H,3) AND H>Ref(H,4)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H==Ref(H,1) AND H>Ref(H,2) AND H==Ref(H,3) AND H>Ref(H,4)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H>Ref(H,1) AND H==Ref(H,2) AND H==Ref(H,3) AND H>Ref(H,4));
Resistance = ValueWhen(Res,H,1);


Sup = 
(L<Ref(L,-1) AND L<Ref(L,-2) AND L<Ref(L,1) AND L<Ref(L,2)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L==Ref(L,1) AND L<Ref(L,2) AND L<Ref(L,3)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L<Ref(L,1) AND L==Ref(L,2) AND L<Ref(L,3)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L==Ref(L,1) AND L==Ref(L,2) AND L<Ref(L,3) AND L<Ref(L,4)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L==Ref(L,1) AND L<Ref(L,2) AND L==Ref(L,3) AND L<Ref(L,4)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L<Ref(L,1) AND L==Ref(L,2) AND L==Ref(L,3) AND L<Ref(L,4));
Support = ValueWhen(Sup,L,1);

AlligatorMode	 =	ParamToggle("Alligator Anatomy 101", "Book and Course|Software",1);
smooth=(H+L)/2;
smooth5=MA(smooth,5);
smooth34=MA(smooth,34); 
AlligatorNose=MA(C,5);
AlligatorLips=IIf(AlligatorMode,Ref(EMA(smooth,9),-3),Ref(MA(smooth,5),-3));
AlligatorTeeth=IIf(AlligatorMode,Ref(EMA(smooth,15 ),-5),Ref(MA(smooth,8),-5));
AlligatorJaw=IIf(AlligatorMode,Ref(EMA(smooth,25),-8),Ref(MA(smooth,13),-8));
AlligatorColor=IIf(AlligatorLips > AlligatorJaw, colorDarkGreen, colorDarkRed);
Plot(AlligatorLips, "Lips", colorGreen,styleThick);
Plot(AlligatorTeeth,"Teeth", colorRed,styleThick);
Plot(AlligatorJaw, "Jaw", colorBlue,styleThick);

_SECTION_BEGIN("Title");
Title = "";
HoD = TimeFrameGetPrice("H",inDaily);
LoD = TimeFrameGetPrice("L",inDaily);
Rng = HoD - LoD;
Mid = LoD + Rng/2;

//Draw the Panel Box
GfxSelectPen( colorBlack,1 ); 

GfxMoveTo(2,2); 
GfxLineTo(2,30); 
GfxLineTo(1044,30); 
GfxLineTo(1044,2); 
GfxLineTo(2,2); 
GfxMoveTo(140,2); 
GfxLineTo(140,30); 
GfxMoveTo(430,2); 
GfxLineTo(430,30); 
GfxMoveTo(530,2); 
GfxLineTo(530,30); 

GfxSelectFont("Comic Sans MS Bold", 9, 800);
GfxSetTextColor(colorBlack);
GfxDrawText(Name(), 10, 3, 77, 20,0);
GfxDrawText(NumToStr(Interval()/60,2.0) + " Min", 82, 3, 140, 20,0);
GfxSelectFont("Comic Sans MS Bold", 7, 800);
GfxDrawText(Date(), 10, 18, 140, 30,0);
GfxSelectFont("Comic Sans MS Bold", 10, 800);
GfxSetTextColor(colorBlue);
GfxDrawText(" HoD:" + NumToStr(HoD,3.0), 148, 7, 240, 30,0);
GfxSetTextColor(colorRed);
GfxDrawText(" LoD:" + NumToStr(LoD,3.0), 242, 7, 340, 30,0);
GfxSetTextColor(colorBlack);
GfxDrawText(" Mid:" + NumToStr(Mid,3.0), 342, 7, 500, 30,0);
GfxDrawText(" Range:" + NumToStr(Rng,3.0), 437, 7, 620, 30,0);
GfxDrawText("Open: " + NumToStr(O,3.0), 537, 7, 740, 30,0);
GfxSetTextColor(colorBlue);
GfxDrawText("Hi: " + NumToStr(H,3.0), 647, 7, 740, 30,0);
GfxSetTextColor(colorRed);
GfxDrawText("Lo: " + NumToStr(L,3.0), 740, 7, 860, 30,0);
GfxSetTextColor(colorBlack);
GfxDrawText("Close: " + NumToStr(C,3.0), 840, 7, 980, 30,0);
GfxSetTextColor(colorBlack);
GfxDrawText("Volume: " + NumToStr(V,3.0), 940, 7, 1080, 30,0);

_SECTION_END();

GfxSetOverlayMode(1);
GfxSelectFont("Comic Sans MS Bold", Status("pxheight")/15 );
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ColorRGB( 160, 160, 160 ) );
GfxSetTextColor( ColorHSB( 160, 0, 151 ) );

GfxSetBkMode(0); // transparent
GfxTextOut( "-DO ONLY WHAT THE SYSTEM SAYS-", Status("pxwidth")/2, Status("pxheight")/3 );
If you try this you will know what i mean . . .

switch between first 2 lines in the code, remove comment \\ and see . . .

:) Happy
 
N

nirmal82

Member
#12
#12
Happy_Singh said:
Code: 
SetChartBkColor(colorLightGrey);
//SetChartBkGradientFill(colorLightGrey, colorDarkGrey);
_SECTION_BEGIN("MA");
Len = IIf(Interval() > 300, 30, 60);
Disp = WriteIf(Interval() > 300, "MA30", "MA60");
Av = MA(C, Len);
ColorShow = IIf(Av > Ref(Av,-1) AND C > Av, colorGreen, IIf(Av < Ref(Av,-1) AND C < Av, colorRed, colorBlue));
Plot(Av, Disp, ColorShow ,styleLine+styleDots,styleThick,styleDots); 
_SECTION_END();

ToolTip = "High = " + H + "\nOpen = " + O + "\nRange = " + (High-Low) +"\nTRUERange = " + (C-O) +"\nMID ="+((High+Low)/2)+ "\nClose = " + C + "\nLow = " + L;
_SECTION_BEGIN("BW Fractal"); 

UpFractal= ValueWhen( 
(Ref(H,-2) > Ref(H, -4)) AND 
(Ref(H,-2) > Ref(H, -3)) AND 
(Ref(H,-2) > Ref(H, -1)) AND 
(Ref(H,-2) > H), Ref(H,-2)); 

DownFractal= ValueWhen( 
(Ref(L,-2) <= Ref(L, -4)) AND 
(Ref(L,-2) <= Ref(L, -3)) AND 
(Ref(L,-2) <= Ref(L, -1)) AND 
(Ref(L,-2) <= L), Ref(L,-2)); 



//== Added Crash crashandburn59 [at] hotmail.com solution 
Plot(Ref(UpFractal,2), "Up Fractal", ParamColor("Up Fractal Color",colorRed), 
ParamStyle("Up Fractal Style", styleDashed)); 
Plot(Ref(DownFractal,2), "Down Fractal",ParamColor("Down Fractal 
Color",colorBlue), ParamStyle("Down Fractal Style", styleDashed)); 

//Plot(Max(HHV(H,3),Ref(UpFractal,2)), "Up Fractal", ParamColor("Up Fractal Color",colorRed), ParamStyle("Up Fractal Style", styleDashed)); 
//Plot(Max(HHV(H,3),Ref(UpFractal,2)), "Down Fractal",ParamColor("Down FractalColor",colorBlue), ParamStyle("Down Fractal Style", styleDashed)); 

_SECTION_END();


Plot(C,"",colorWhite,styleCandle);
Res =
(H>Ref(H,-1) AND H>Ref(H,-2) AND H>Ref(H,1) AND H>Ref(H,2)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H==Ref(H,1) AND H>Ref(H,2) AND H>Ref(H,3)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H>Ref(H,1) AND H==Ref(H,2) AND H>Ref(H,3)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H==Ref(H,1) AND H==Ref(H,2) AND H>Ref(H,3) AND H>Ref(H,4)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H==Ref(H,1) AND H>Ref(H,2) AND H==Ref(H,3) AND H>Ref(H,4)) OR
(H>Ref(H,-1) AND H>Ref(H,-2) AND H>Ref(H,1) AND H==Ref(H,2) AND H==Ref(H,3) AND H>Ref(H,4));
Resistance = ValueWhen(Res,H,1);


Sup = 
(L<Ref(L,-1) AND L<Ref(L,-2) AND L<Ref(L,1) AND L<Ref(L,2)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L==Ref(L,1) AND L<Ref(L,2) AND L<Ref(L,3)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L<Ref(L,1) AND L==Ref(L,2) AND L<Ref(L,3)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L==Ref(L,1) AND L==Ref(L,2) AND L<Ref(L,3) AND L<Ref(L,4)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L==Ref(L,1) AND L<Ref(L,2) AND L==Ref(L,3) AND L<Ref(L,4)) OR
(L<Ref(L,-1) AND L<Ref(L,-2) AND L<Ref(L,1) AND L==Ref(L,2) AND L==Ref(L,3) AND L<Ref(L,4));
Support = ValueWhen(Sup,L,1);

AlligatorMode	 =	ParamToggle("Alligator Anatomy 101", "Book and Course|Software",1);
smooth=(H+L)/2;
smooth5=MA(smooth,5);
smooth34=MA(smooth,34); 
AlligatorNose=MA(C,5);
AlligatorLips=IIf(AlligatorMode,Ref(EMA(smooth,9),-3),Ref(MA(smooth,5),-3));
AlligatorTeeth=IIf(AlligatorMode,Ref(EMA(smooth,15 ),-5),Ref(MA(smooth,8),-5));
AlligatorJaw=IIf(AlligatorMode,Ref(EMA(smooth,25),-8),Ref(MA(smooth,13),-8));
AlligatorColor=IIf(AlligatorLips > AlligatorJaw, colorDarkGreen, colorDarkRed);
Plot(AlligatorLips, "Lips", colorGreen,styleThick);
Plot(AlligatorTeeth,"Teeth", colorRed,styleThick);
Plot(AlligatorJaw, "Jaw", colorBlue,styleThick);

_SECTION_BEGIN("Title");
Title = "";
HoD = TimeFrameGetPrice("H",inDaily);
LoD = TimeFrameGetPrice("L",inDaily);
Rng = HoD - LoD;
Mid = LoD + Rng/2;

//Draw the Panel Box
GfxSelectPen( colorBlack,1 ); 

GfxMoveTo(2,2); 
GfxLineTo(2,30); 
GfxLineTo(1044,30); 
GfxLineTo(1044,2); 
GfxLineTo(2,2); 
GfxMoveTo(140,2); 
GfxLineTo(140,30); 
GfxMoveTo(430,2); 
GfxLineTo(430,30); 
GfxMoveTo(530,2); 
GfxLineTo(530,30); 

GfxSelectFont("Comic Sans MS Bold", 9, 800);
GfxSetTextColor(colorBlack);
GfxDrawText(Name(), 10, 3, 77, 20,0);
GfxDrawText(NumToStr(Interval()/60,2.0) + " Min", 82, 3, 140, 20,0);
GfxSelectFont("Comic Sans MS Bold", 7, 800);
GfxDrawText(Date(), 10, 18, 140, 30,0);
GfxSelectFont("Comic Sans MS Bold", 10, 800);
GfxSetTextColor(colorBlue);
GfxDrawText(" HoD:" + NumToStr(HoD,3.0), 148, 7, 240, 30,0);
GfxSetTextColor(colorRed);
GfxDrawText(" LoD:" + NumToStr(LoD,3.0), 242, 7, 340, 30,0);
GfxSetTextColor(colorBlack);
GfxDrawText(" Mid:" + NumToStr(Mid,3.0), 342, 7, 500, 30,0);
GfxDrawText(" Range:" + NumToStr(Rng,3.0), 437, 7, 620, 30,0);
GfxDrawText("Open: " + NumToStr(O,3.0), 537, 7, 740, 30,0);
GfxSetTextColor(colorBlue);
GfxDrawText("Hi: " + NumToStr(H,3.0), 647, 7, 740, 30,0);
GfxSetTextColor(colorRed);
GfxDrawText("Lo: " + NumToStr(L,3.0), 740, 7, 860, 30,0);
GfxSetTextColor(colorBlack);
GfxDrawText("Close: " + NumToStr(C,3.0), 840, 7, 980, 30,0);
GfxSetTextColor(colorBlack);
GfxDrawText("Volume: " + NumToStr(V,3.0), 940, 7, 1080, 30,0);

_SECTION_END();

GfxSetOverlayMode(1);
GfxSelectFont("Comic Sans MS Bold", Status("pxheight")/15 );
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ColorRGB( 160, 160, 160 ) );
GfxSetTextColor( ColorHSB( 160, 0, 151 ) );

GfxSetBkMode(0); // transparent
GfxTextOut( "-DO ONLY WHAT THE SYSTEM SAYS-", Status("pxwidth")/2, Status("pxheight")/3 );
If you try this you will know what i mean . . .

switch between first 2 lines in the code, remove comment \\ and see . . .

:) Happy
Click to expand...
plz sir can u explain how can i enter exit thanks
 
C

chilgu

Active Member
#13
#13
jaat na poochho sadhu ki
pooch leejo gyan.................................

Brothers,
This may be a good trading system. I have looked randomly on crude chart. It is giving good results in 5 and 15 minute time frame. Instead of refining beauty, one should focus on its accuracy and mechanical back testing.

Thanx for posting this good chart. Dear Kumudhan, if you do'nt mind, please tell us source of AFL.
 
a1b1trader

a1b1trader

Well-Known Member
#14
#14
chilgu said:
jaat na poochho sadhu ki
pooch leejo gyan.................................

Brothers,
This may be a good trading system. I have looked randomly on crude chart. It is giving good results in 5 and 15 minute time frame. Instead of refining beauty, one should focus on its accuracy and mechanical back testing.

Thanx for posting this good chart. Dear Kumudhan, if you do'nt mind, please tell us source of AFL.
Click to expand...
Ramta jogi behta paani
Iska koi source nahin hota.

Then why asking for source. :D

As you find it useful then use it silently and do not go after source.
Aam khane se matlab rakho, ped gin ker kya karoge.
 
C

chilgu

Active Member
#15
#15
OK brothther,
I apologies for my overtalking.

I attracted with this portion :-

_SECTION_BEGIN("Price");
GraphXSpace=5;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_BEGIN("MA");
Len = IIf(Interval() > 300, 30, 60);
Disp = WriteIf(Interval() > 300, "MA30", "MA60");
Av = MA(C, Len);
ColorShow = IIf(Av > Ref(Av,-1) AND C > Av, colorGreen, IIf(Av < Ref(Av,-1) AND C < Av, colorRed, colorBlue));
Plot(Av, Disp, ColorShow ,styleLine+styleDots,styleThick,styleDots);
_SECTION_END();

I like LinearReg and replaced with MA

_SECTION_BEGIN("Price");

GraphXSpace=5;
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

_SECTION_BEGIN("MA");
Len = IIf(Interval() > 300, 30, 60);
Disp = WriteIf(Interval() > 300, "MA30", "MA60");
Av = LinearReg(C, Len);
ColorShow = IIf(Av > Ref(Av,-1) AND C > Av, colorGreen, IIf(Av < Ref(Av,-1) AND C < Av, colorRed, colorBlue));
Plot(Av, Disp, ColorShow ,styleLine+styleDots,styleThick,styleDots);
_SECTION_END();

second part of image is LinearReg
Please consider it.
 
Last edited:
You must log in or register to reply here.
Thread starter Similar threads Forum Replies Date
mohan.sic Please Suggest a Data Vendor Data Feeds 4
S Views please…. Swing Trading 7
T Please help to edit the formula AmiBroker 0
F Please edit this market profile afl to 30min periods AmiBroker 0
S Please helps me to edit Heat_Map Formula AmiBroker 0

Similar threads