Stock Portfolio Organizer
The ultimate porfolio management solution.
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Market Shiksha - Stochastics01 for Amibroker (AFL)
Just like the Donchians(uses n-days High-Low) or Supertrend(uses ATR or Volatility). This System is based on Stochastic Indicator, to capture Swing Points and Reversal. The System can be used on any TF.
System can be used as Trailing SL in combination to ur current system as it gives u Very Short(Dashed), Medium(Aqua and Lime) and Long Term(Blue and Yellow Trailing Lines) Support & Resistance Levels Extracted from Different Settings of Stochastic. Sometimes, they r in Confluence.
As a Standalone System,, Buy/Short when all three Signals comes in the Same Bar or in Confluence, OR When, at least, two Signals comes in same or Consecutive Bars.
Best is When we have long term intact and Short and Medium term Buy/Short Signals show in Same or Consecutive Bars. Example given in the Screenshot(Circled in Black).
This may not be the Perfect System as there is always room for improvement.
One can add his/her own Targets by calculating the risks.
Criticism is most welcome.
Screenshots
Indicator / Formula
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_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", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
k= StochK(45,15);
d= StochD(45,15,15);
sh= Cross(k,d);
sl= Cross(d,k);
Hh= HighestSince(sh,H,1);
Ll= LowestSince(sl,L,1);
Hhc= ValueWhen(sl,Hh,1);
Llc= ValueWhen(sh,Ll,1);
x1 = IIf(C>Hhc,1,IIf(C<Llc,-1,0));
y1 = IIf(C<Llc,1,IIf(C>Hhc,-1,0));
x2 = ValueWhen(x1!=0,x1,1);
y2 = ValueWhen(y1!=0,y1,1);
sts = IIf(x2==1,Llc,Null);
str = IIf(y2==1,Hhc,Null);
Plot(sts,"Support",IIf(C<sts,colorBlue,colorYellow),styleLine|styleThick);
Plot(str,"Resistance",IIf(C>str,colorYellow,colorBlue),styleLine|styleThick);
Buy0= C>Hhc;
Short0= C<Llc;
Buy0= ExRem(Buy0,Short0);
Short0= ExRem(Short0,Buy0);
k1= StochK(5,3);
d1= StochD(5,3,3);
sh1= Cross(k1,d1);
sl1= Cross(d1,k1);
Hh1= HighestSince(sh1,H,1);
Ll1= LowestSince(sl1,L,1);
Hhc1= ValueWhen(sl1,Hh1,1);
Llc1= ValueWhen(sh1,Ll1,1);
x5 = IIf(C>Hhc1,1,IIf(C<Llc1,-1,0));
y5 = IIf(C<Llc1,1,IIf(C>Hhc1,-1,0));
x6 = ValueWhen(x5!=0,x5,1);
y6 = ValueWhen(y5!=0,y5,1);
sts1 = IIf(x6==1,Llc1,Null);
str1 = IIf(y6==1,Hhc1,Null);
Plot(sts1,"Support",IIf(C<sts1,colorOrange,colorPink),styleDashed);
Plot(str1,"Resistance",IIf(C>str1,colorPink,colorOrange),styleDashed);
Buy1= C>Hhc1;
Short1= C<Llc1;
Buy1= ExRem(Buy1,Short1);
Short1= ExRem(Short1,Buy1);
k2= StochK(15,5);
d2= StochD(15,5,5);
sh2= Cross(k2,d2);
sl2= Cross(d2,k2);
Hh2= HighestSince(sh2,H,1);
Ll2= LowestSince(sl2,L,1);
Hhc2= ValueWhen(sl2,Hh2,1);
Llc2= ValueWhen(sh2,Ll2,1);
x3 = IIf(C>Hhc2,1,IIf(C<Llc2,-1,0));
y3 = IIf(C<Llc2,1,IIf(C>Hhc2,-1,0));
x4 = ValueWhen(x3!=0,x3,1);
y4 = ValueWhen(y3!=0,y3,1);
sts2 = IIf(x4==1,Llc2,Null);
str2 = IIf(y4==1,Hhc2,Null);
Plot(sts2,"Support",IIf(C<sts2,colorAqua,colorLime),styleLine|styleThick);
Plot(str2,"Resistance",IIf(C>str2,colorLime,colorAqua),styleLine|styleThick);
Buy2= C>Hhc2;
Short2= C<Llc2;
Buy2= ExRem(Buy2,Short2);
Short2= ExRem(Short2,Buy2);
PlotShapes(IIf(Buy0,shapeUpArrow,shapeNone),colorBlue,0,L,-30);
PlotShapes(IIf(Short0,shapeDownArrow,shapeNone),colorYellow,0,H,-30);
PlotShapes(IIf(Buy1,shapeUpArrow,shapeNone),colorOrange,0,L,-30);
PlotShapes(IIf(Short1,shapeDownArrow,shapeNone),colorOrange,0,H,-30);
PlotShapes(IIf(Buy2,shapeUpArrow,shapeNone),colorLime,0,L,-30);
PlotShapes(IIf(Short2,shapeDownArrow,shapeNone),colorLime,0,H,-30);0 comments
Leave Comment
Please login here to leave a comment.
Back