Here is AFL written by Rish
*****************************
_SECTION_BEGIN("HA");
tchoice=Param("Title Selection ",2,1,2,1);
Q=Param("% Change",2.1,1,10,1);
Z= Zig(C ,q ) ;
HH=((Z<Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2)) AND (Peak(z,q,1 ) >Peak(Z,q,2)));
LH=((Z<Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2)) AND (Peak(Z,q,1 ) <Peak(Z,q,2)));
HL=((Z>Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2)) AND (Trough(Z,q,1 ) >Trough(Z,q,2)));
LL=((Z>Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2)) AND (Trough(Z,q,1 ) <Trough(Z,q,2)));
GraphXSpace = 5;
dist = 0.5*ATR(20);
for( i = 0; i < BarCount; i++ )
{
}
Pstyle = ParamToggle("Heikin Ashi","On|Off",1);
if(Pstyle==0){
HaClose = (O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
PlotOHLC(HaOpen,HaHigh,HaLow,HaClose,"",IIf(HaClose > HaOpen,colorGreen,colorRed),styleCandle);
Sell = (abs(HaOpen -HaClose )<= ((HaHigh -HaLow )*0.1));
Buy = (abs(HaOpen -HaClose )<= ((HaHigh -HaLow )*0.1)) ;
Buy = ExRem( Buy, Sell );
Sell = ExRem( Sell, Buy );
TimeFrameSet(inDaily);
Hh=HHV (H,20);
Ll =LLV (L,20);
TimeFrameRestore();
Hh1=(TimeFrameExpand( Hh, inDaily));
Ll1=(TimeFrameExpand( Ll, inDaily));
Plot(Hh1 , "TurtleHigh",colorRed, 4+8+2048);
Plot(Ll1 , "TurtleLow",colorGreen, 4+8+2048);
Buy=Cross(C,HH);
Sell=Cross(HH,C);
Filter=Buy OR Sell;
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
}
else {
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
}
{
}
_SECTION_END();
*****************************
_SECTION_BEGIN("HA");
tchoice=Param("Title Selection ",2,1,2,1);
Q=Param("% Change",2.1,1,10,1);
Z= Zig(C ,q ) ;
HH=((Z<Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2)) AND (Peak(z,q,1 ) >Peak(Z,q,2)));
LH=((Z<Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2)) AND (Peak(Z,q,1 ) <Peak(Z,q,2)));
HL=((Z>Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2)) AND (Trough(Z,q,1 ) >Trough(Z,q,2)));
LL=((Z>Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2)) AND (Trough(Z,q,1 ) <Trough(Z,q,2)));
GraphXSpace = 5;
dist = 0.5*ATR(20);
for( i = 0; i < BarCount; i++ )
{
}
Pstyle = ParamToggle("Heikin Ashi","On|Off",1);
if(Pstyle==0){
HaClose = (O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
PlotOHLC(HaOpen,HaHigh,HaLow,HaClose,"",IIf(HaClose > HaOpen,colorGreen,colorRed),styleCandle);
Sell = (abs(HaOpen -HaClose )<= ((HaHigh -HaLow )*0.1));
Buy = (abs(HaOpen -HaClose )<= ((HaHigh -HaLow )*0.1)) ;
Buy = ExRem( Buy, Sell );
Sell = ExRem( Sell, Buy );
TimeFrameSet(inDaily);
Hh=HHV (H,20);
Ll =LLV (L,20);
TimeFrameRestore();
Hh1=(TimeFrameExpand( Hh, inDaily));
Ll1=(TimeFrameExpand( Ll, inDaily));
Plot(Hh1 , "TurtleHigh",colorRed, 4+8+2048);
Plot(Ll1 , "TurtleLow",colorGreen, 4+8+2048);
Buy=Cross(C,HH);
Sell=Cross(HH,C);
Filter=Buy OR Sell;
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
}
else {
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
}
{
}
_SECTION_END();