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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | _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