Heiken ashi linearreg moving average presentation

#2
this is Trading System with crossover , but where we find this AFL ? if this forum members(CODE'R)great kind us so we get this AFL ,otherwise NO:clapping:
 
#4
got from some other forum


_SECTION_BEGIN("Background_Setting");
SetChartBkGradientFill( ParamColor("BgTop",colorBlack),
ParamColor("BgBottom",colorBlack),ParamColor("titleblock",colorDarkTeal ));
_SECTION_END();


_SECTION_BEGIN("Flower");

Title = StrFormat("\\c02 {{NAME}} | {{DATE}} | Open : %g | High : %g | Low : %g | Close : %g | Change = %.1f%% | Volume = " +WriteVal( V, 1.0 ) +" {{VALUES}}",O, H, L, C, SelectedValue( ROC( C, 1 )) );

_SECTION_END();


_SECTION_BEGIN("Sup/Res Detail");
SupResPeriod = Param("LookBack Period", 50, 0, 200,1);
SupResPercentage = Param("Percentage", 100, 0, 200,1);
PricePeriod = Param("Price Period", 16, 0, 200,1);
SupportLinecolor = ParamColor( "Support Color", colorGreen );
SupportLinestyle = ParamStyle("Support Style", styleThick|8|styleNoLabel);
ResistanceLinecolor = ParamColor( "Resistance Color", colorRed );
Resistancestyle = ParamStyle("Resistance Style", styleThick|8|styleNoLabel);
_SECTION_END();

_SECTION_BEGIN("Line Detail");
OverBought = Param("OverBought Above", 200, 0, 400,1);
OverSold = Param("OverSold Bellow", -200, -400, 0,1);
_SECTION_END();

_SECTION_BEGIN("Trend Bought/Sold Detail");
Smoother = Param("Trend Smoother", 5, 5, 20);
upcolor = ParamColor( "UpTrend Color", colorGreen );
Downcolor = ParamColor( "DownTrend Color", colorRed );
_SECTION_END();

_SECTION_BEGIN("Circle Detail");
Warningcolor = ParamColor( "Warning/Watch Signal", colorYellow );
WatchColor = ParamColor( "Accumulation Zone", colorWhite );
EntryColor = ParamColor( "Entry Signal", colorAqua );
ProfitTakeColor = ParamColor( "Distribution Zone", colorYellow );
ExitColor = ParamColor( "Exit Signal", colorRed );
_SECTION_END();

_SECTION_BEGIN("Swing Sup/Res");
Lookback=SupResPeriod;
PerCent=SupResPercentage;
Pds =PricePeriod;
Var=MACD();
Up=IIf(Var>Ref(Var,-1),abs(Var-Ref(Var,-1)),0);
Dn=IIf(Var<Ref(Var,-1),abs(Var-Ref(Var,-1)),0);
Ut=Wilders(Up,Pds);
Dt=Wilders(Dn,Pds);
RSIt=100*(Ut/(Ut+Dt));
A1=RSIt; B2=RSI(pds); C3=CCI(pds); D4=StochK(pds); E5=StochD(pds);
F6=MFI(pds); G7=Ultimate(pds); H8=ROC(C,pds);
Osc=C3;
Value1 = Osc;
Value2 = HHV(Value1,Lookback);
Value3 = LLV(Value1,Lookback);
Value4 = Value2 - Value3;
Value5 = Value4 * (PerCent / 100);
ResistanceLine = Value3 + Value5;
SupportLine = Value2 - Value5;
baseline=IIf( Osc < 100 AND Osc > 10 ,50 ,IIf( Osc < 0 ,0,0));
Plot(ResistanceLine,"",SupportLinecolor,SupportLinestyle);
Plot(SupportLine,"",ResistanceLinecolor,Resistancestyle);
_SECTION_END();

_SECTION_BEGIN("Entry/Exit Detail");
n=Smoother;
ys1=(High+Low+Close*2)/4;
rk3=EMA(ys1,n);
rk4=StDev(ys1,n);
rk5=(ys1-rk3)*200/rk4;
rk6=EMA(rk5,n);
UP=EMA(rk6,n);
DOWN=EMA(up,n);
Oo=IIf(up<down,up,down);
Hh=Oo;
Ll=IIf(up<down,down,up);
Cc=Ll;
barcolor2=IIf(Ref(oo,-1)<Oo AND Cc<Ref(Cc,-1),upcolor,IIf(up>down,upcolor,downcolor));
SetBarFillColor( barcolor2);
PlotOHLC( Oo,hh,ll,Cc, "Matrix - Accumulation or Bought/Distribution or Sold", barcolor2, styleCandle);
Buy=Cross(up,OverSold);
Sell=Cross(OverBought,up);
PlotShapes (IIf(Buy, shapeSmallCircle, shapeNone) ,EntryColor, layer = 0, yposition = -220, offset = 1 );
PlotShapes (IIf(Sell, shapeSmallCircle, shapeNone) ,ExitColor, layer = 0, yposition = 220, offset = 1 );


Buy=IIf(Ref(oo,-1)<Oo AND Cc<Ref(Cc,-1),1,IIf(up>down,1,0));
Short = barcolor2=IIf(Ref(oo,-1)<Oo AND Cc<Ref(Cc,-1),0,IIf(up>down,0,1));
Buy = ExRem(Buy ,Short);
Short = ExRem(Short,Buy);

PlotShapes(Buy * shapeUpArrow , colorRed,0,Ll-25);
PlotShapes(Short * shapeDownArrow , colorLime,0,Hh+25);





pd=Param("Pd",2,1,10);
Plot(Ref(MA(Hh,pd),-1),"",colorGreen,styleThick,styleNoLabel);
Plot(MA(Ll,pd),"",colorRed,styleThick,styleNoLabel);

x=(Hh+Ll)/2;



_SECTION_END();
_SECTION_BEGIN("Overbought/Oversold/Warning Detail");
n=Smoother;
ys1=(High+Low+Close*2)/4;
rk3=EMA(ys1,n);
rk4=StDev(ys1,n);
rk5=(ys1-rk3)*210/rk4;
rk6=EMA(rk5,n);
UP=EMA(rk6,n);
DOWN=EMA(up,n);
Oo=IIf(up<down,up,down);
Hh=Oo;
Ll=IIf(up<down,down,up);
Cc=Ll;
barcolor2=IIf(Ref(oo,-1)<Oo AND Cc<Ref(Cc,-1),colorGreen,IIf(up>down,colorGreen,colorRed));

UP=EMA(rk6,n);
UPshape = IIf(UP >= OverBought OR UP<=OverSold, shapeHollowSmallCircle, shapeNone);
UPColor = IIf(UP>=210, ProfitTakeColor, IIf(UP<=-210, WatchColor, Warningcolor));
Plot(UP, "", colorGrey50, styleThick|stylehidden);
PlotShapes(UPShape, UPColor, 0, UP, 0);
_SECTION_END();

_SECTION_BEGIN("Plot Lines");
Plot(OverBought,"",colorWhite,styleLine|styleNoLabel);
Plot(0,"",colorWhite,styleDashed|styleNoLabel);
Plot(OverSold,"",colorWhite,styleLine|styleNoLabel);
_SECTION_END();

GraphXSpace =10;
 

asnavale

Well-Known Member
#5
this is Trading System with crossover , but where we find this AFL ? if this forum members(CODE'R)great kind us so we get this AFL ,otherwise NO:clapping:
Are you looking for this?:




-Anant
 

asnavale

Well-Known Member
#8
Anant Sir,

Kindly can you share the AFL here please.
Hi Prabh,

This AFL is useless. It looks into future. Therefore, in back test it gives excellent results. But in actual trading the signals are delayed by about 3 days. So, there will not be much left in the trade.

I just posted it here as a1b2c3 wanted the AFL for the chart he posted. The AFL I made gave very similar chart. But he did not respond.

-Anant
 

asnavale

Well-Known Member
#9

prabhsingh

Well-Known Member
#10
Hi Prabh,

This AFL is useless. It looks into future. Therefore, in back test it gives excellent results. But in actual trading the signals are delayed by about 3 days. So, there will not be much left in the trade.

I just posted it here as a1b2c3 wanted the AFL for the chart he posted. The AFL I made gave very similar chart. But he did not respond.

-Anant
IF there is no learning in that AFL then its seriously useless.I am not looking at anything which can predict any future but instead i would be more interested in things which can make me understand current things in much clearner way.Thx Anant Sir.
 

Similar threads