Stock Portfolio Organizer
The ultimate porfolio management solution.
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Trend Trade for Amibroker (AFL)
I had Found this AFL Most Probably @ Wisestock traders.com……
just Modified Simply & Found nice results……..!
do your back taste and trade……..!
Happy trading……..!
Screenshots
Similar Indicators / Formulas
Indicator / Formula
_SECTION_BEGIN("TI"); parmTILUpColor = ParamColor("TI Line UpColor", colorGreen); parmTILDwnColor = ParamColor("TI Line DownColor", colorRed); parmHistUpColor = ParamColor("TI Histogram UpColor", colorLime); parmHistDwnColor = ParamColor("TI Histogram DownColor", colorOrange); r1=Param("PDI Period",14,1,100,1); r2=Param("MDI Period",14,1,100,1); r3=PDI(r1); r4=MDI(r2); r5=Param("WMA Period",40,1,100,1); TI = WMA( 2*WMA((r3-r4),int(r5/2))- WMA((r3-r4),r5),int(sqrt(r5))); for( i = 1 ; i < BarCount-2; i++ ) { if (TI[i] <TI[i-1] &&TI[i] <TI[i+1]) Lpml[i]=1; else Lpml[i] =0; if (TI[i] >TI[i-1] &&TI[i] >TI[i+1]) Lpmh[i]=1; else Lpmh[i] =0; } GR =ExRem(LpmH,Lpmh); RD =ExRem(Lpml,Lpml); //Green TI Line=Rising; Red TI Line=Falling col = IIf( TI > Ref( TI, -1 ), parmTILUpColor, parmTILDwnColor); //Green TIHistogram=Rising; Red TIHistogram=Falling HistColM= IIf( TI > Ref(TI,-1),parmHistUpColor,parmHistDwnColor); Buy= TI > Ref( TI, -1 ); Sell= TI < Ref( TI, -1 ); Buy=ExRem(Buy,Sell); Sell=ExRem(Sell,Buy); PlotShapes(IIf(Buy, shapeUpArrow,shapeNone),colorGreen, 0, L, Offset=-35); PlotShapes(IIf(Sell, shapeDownArrow,shapeNone),colorRed, 0, H, Offset=-35); _SECTION_BEGIN("Price"); 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", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); _SECTION_END(); _SECTION_BEGIN("Background text"); SetChartBkColor(ParamColor("Chart Back Color",colorBlack)); strWeekday = StrMid("---SUNDAY---MONDAY--TUESDAYWEDNESDAY-THURSDAY--FRIDAY--SATURDAY", SelectedValue(DayOfWeek())*9,9); GraphXSpace=Param("GraphXSpace",-20,-55,200,1); C13=20; C14=2.1; C15=12; pxwidth = Status("pxwidth"); pxheight = Status("pxheight"); YC=TimeFrameGetPrice("C",inDaily,-1); DD=Prec(C-YC,2); xx=Prec((DD/YC)*100,2); GfxSetBkMode(transparent=1); GfxSetOverlayMode(1); GfxSelectFont("Candara", Status("pxheight")/C13 ); GfxSetTextAlign( 6 ); GfxSetTextColor( ColorRGB (217,217,213)); GfxTextOut( Name(), Status("pxwidth")/C14, Status("pxheight")/C15 ); GfxSelectFont("Tahoma", Status("pxheight")/C13*0.5 ); GfxSetTextColor( ColorRGB (217,217,213)); GfxTextOut( "L.T.P. : "+ C +"", Status("pxwidth")/C14, Status("pxheight")/C15*2 ); GfxSelectFont("Candara", Status("pxheight")/C13*0.5 ); GfxSetTextColor( ColorRGB (217,217,213)); GfxTextOut( ""+DD+ " ( "+xx+"%)", Status("pxwidth")/C14, Status("pxheight")/C15*2.5 ); _SECTION_END(); _SECTION_BEGIN("Title"); DODay = TimeFrameGetPrice("O", inDaily); DHiDay = TimeFrameGetPrice("H", inDaily); DLoDay = TimeFrameGetPrice("L", inDaily); Title = EncodeColor(colorWhite)+ Name() + ", " + Interval(2) + ", " + Date() + " - "+strWeekday + " - " + EncodeColor(colorWhite) + "\n O " + EncodeColor(colorWhite) + O + ", H : " + H + ", L : " + L + ", C : " + C + "\n"+EncodeColor(colorWhite)+ " Day-Open : " +DODay + " Day-High : " +DHiDay + " Day-Low : " + DLoDay +"\n"+EncodeColor(colorWhite)+" Volume : "+V;
0 comments
Leave Comment
Please login here to leave a comment.
Back