Stock Portfolio Organizer
The ultimate porfolio management solution.
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Nifty Trading System for Amibroker (AFL)
This system is designed to trade particularly in Nifty Futures.
Similar Indicators / Formulas
Indicator / Formula
_SECTION_BEGIN("MA Diff"); T=26; KMA=((C-MA(C,T))/MA(C,T))*100; Graph0=KMA; Graph0Style=2+4; Graph0BarColor=IIf(KMA>0,5,4); GraphXSpace=5; _SECTION_END(); _SECTION_BEGIN("Price"); SetChartOptions(0,chartShowArrows|chartShowDates); Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); _SECTION_END(); //------------------------------------------------------------------------------ _SECTION_BEGIN("ZIG-ZAG"); P = ParamField( "Price field" ); change = Param("% change",5,0.1,25,0.1); _SECTION_END(); _SECTION_BEGIN("EMA"); P = ParamField("Price field",-1); Periods = Param("Periods", 15, 2, 300, 1, 10 ); _SECTION_END(); _SECTION_BEGIN("MACD Exploration"); r1 = Param( "Fast avg", 12, 2, 200, 1 ); r2 = Param( "Slow avg", 26, 2, 200, 1 ); r3 = Param( "Signal avg", 9, 2, 200, 1 ); Z=Param("zig",1,0,10,0.1); Cond1 = Cross(MACD(r1,r2),Signal(r1,r2,r3)); Cond3 = Zig(C,z)>Ref(Zig(C,z),-4); Buy = Cond1 AND Cond3; Cond4 = Cross(Signal(r1,r2,r3),MACD(r1,r2)); Cond6 = Zig(C,z)<Ref(Zig(C,z),-4); Sell = Cond4 AND Cond6; Trigger = WriteIf(Buy, "Buy", "") + WriteIf(Sell, "Sell", ""); _N(Title = StrFormat("{{NAME}} {{DATE}} {{INTERVAL}}: O=%1.2f, H=%1.2f, L=%1.2f, C=%1.2f, V=%1.0f\n{{VALUES}}", O, H, L, C, V)); BG = IIf(Buy, colorPaleGreen, IIf(Sell, colorRose, colorDefault)); FG = IIf(Buy, colorDarkGreen, IIf(Sell, colorDarkRed, colorDefault)); if(Status("action") == actionIndicator) { Plot(C, "", colorGrey50, styleBar); //PlotShapes(IIf(Buy, shapeCircle, shapeNone),colorBlue, 0,L, Offset=-60); //PlotShapes(IIf(Sell, shapeCircle, shapeNone),colorBlue, 0,H, Offset=-30); } //------------------------------------------------------------------------------------------------ if(Status("action") == actionExplore) Filter = Buy OR Sell; SetOption("NoDefaultColumns", True); AddTextColumn(Name(), "Symbol", 77, FG, BG, 120); AddColumn(DateTime(), "Date", formatDateTime, FG, BG, 100); AddColumn(TimeNum() ,"Time",1); AddColumn( C, "Close", 1.3 ); AddColumn( H, "High", 1.3 ); AddColumn(V, "Volume"); AddColumn(Ref(V,-1),"P-Vol"); AddColumn(V/Ref(V,-1)*100,"Increase in Vol"); AddColumn( Buy, "Buy", 1 ); AddColumn( Sell, "Sell", 1 ); shape = Buy * shapeHollowUpTriangle + Sell * shapeHollowDownTriangle; PlotShapes( shape, IIf( Buy, colorBlue, colorBlue ), 0, IIf( Buy, Low, High ) ); GraphXSpace = 7; GraphXSpace = 7; _SECTION_END(); _SECTION_BEGIN("EMA3"); P = ParamField("Price field",-1); Periods = Param("Periods", 15, 2, 300, 1, 10 ); _SECTION_END(); _SECTION_BEGIN("Background text"); C13=Param("fonts",20,10,30,1 ); C14=Param("left-right",2.1,1.0,5.0,0.1 ); C15=Param("up-down",12,1,20,1 ); Miny = Status("axisminy"); Maxy = Status("axismaxy"); lvb = Status("lastvisiblebar"); fvb = Status("firstvisiblebar"); pxwidth = Status("pxwidth"); pxheight = Status("pxheight"); GfxSetBkMode(transparent=1); GfxSetOverlayMode(1); GfxSelectFont("Tahoma", 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 (103,103,103)); GfxTextOut( "AJEET SINGH", Status("pxwidth")/C14, Status("pxheight")/C15*2.5 ); GfxSelectFont("Tahoma", Status("pxheight")/C13*0.5 ); GfxSetTextColor( ColorRGB (103,103,103)); GfxTextOut( "", Status("pxwidth")/C14, Status("pxheight")/C15*4 ); GfxSelectFont("MS Sans Serif", 10, 500, False, False, 0); //Second phase starts Here //File: BHS Chart _SECTION_BEGIN("Trading"); //SetChartBkColor(ParamColor("Outer panel color ",colorLightYellow)); SetChartBkColor(ParamColor("BackGround Color", colorBlack)); pShowtradeLines = ParamToggle("Show Trade Lines", "No|Yes", 1); pShowMarkers = ParamToggle("Show Markers", "No|Yes", 1); synch=ParamToggle("Synchronize buy/short with foreign index", "No|Yes", 1); Volmin=Param("Volume minimum",5000,0,10000000,50); Volmax=Param("Volume maximum",1000000,0,10000000,50); priceRL=Param("Price Range Min",150,1,20000,1); priceRH=Param("Price Range Max",3000,1,20000,1); PercChangemin=Param("Percentage Change Min set", -25, -100, 100, 0.1); PercChangemax=Param("Percentage Change Max set", 25, -100, 100, 0.1); PerctakeProfit=Param("Take Profit Percent Set",0.6,0.3,30,0.1); PercStoploss=Param("StopLoss Percent Set",0.25,0.2,5,0.1); PlotOHLC(Open,High,Low,Close,"",colorWhite,styleCandle); Bars = 0; xpdh = 90; { Plot_Range = (TimeNum() >= 85500 AND TimeNum()<= 153500) AND (DateNum()==LastValue(DateNum())); FH_Range = (TimeNum() >= 085500 AND TimeNum()<= 093000) AND (DateNum()==LastValue(DateNum())); FH_Prices = High * FH_Range; FH_Marker = BarsSince(FH_Range>0); Num_Bars = 36000 / Interval(1); TimeFrameSet(inDaily); TOP_ = Open; PDH_ = Ref(High,-1); PDL_ = Ref(Low,-1); PDO_ = Ref(Open,-1); PDC_ = Ref(Close,-1); PDM_ = (PDH_+PDL_)/2; TimeFrameRestore(); isAll = True; isRth = TimeNum() >= 085400 AND TimeNum() <= 093000; isdRth = TimeNum() >= 085400 AND TimeNum() <= 160000; aRthL = IIf(isRth, L, 1000000); aRthH = IIf(isdRth, H, Null); aRthLd = IIf(isdRth, L, 1000000); TOP = TimeFrameExpand(TOP_,inDaily,expandFirst); PDH = TimeFrameExpand(PDH_,inDaily,expandFirst); PDL = TimeFrameExpand(PDL_,inDaily,expandFirst); PDO = TimeFrameExpand(PDO_,inDaily,expandFirst); PDC = TimeFrameExpand(PDC_,inDaily,expandFirst); PDM = TimeFrameExpand(PDM_,inDaily,expandFirst); FHH = Ref(HHV(High*FH_Range,Num_Bars),-FH_Marker); FHL = TimeFrameCompress( aRthL, inDaily, compressLow ); FHL = TimeFrameExpand( FHL, inDaily, expandFirst ); DayH = TimeFrameCompress( aRthH, inDaily, compressHigh ); DayH = TimeFrameExpand( DayH, inDaily, expandFirst ); DayL = TimeFrameCompress( aRthLd, inDaily, compressLow ); DayL = TimeFrameExpand( DayL, inDaily, expandFirst ); FC1=((PDH-PDL)*0.433); FC2=((PDH-PDL)*0.7666); FC3=((PDH-PDL)*1.355); FC4=(FHH-FHL); A=IIf((FC4<=FC1+PDH*0.005),FC1,0); B=IIf((FC4<=FC2+PDH*0.005 AND FC4>FC1+PDH*0.005),FC2,0); Cl=IIf((FC4<=FC3 AND FC4>FC2+PDH*0.005),FC3,0); AF=(A+B+Cl); //foreign _SECTION_BEGIN ("foreign Index bar graph"); Vr=ParamList("Index",List = "^NSEI,^NSEBANK,^CNXIT,^NSMIDCP,RELIANCE.NS,SBIN.N S",0); SetForeign(Vr); HaC =(O+H+L+C)/4; HaO = AMA( Ref( HaC, -1 ), 0.5 ); HaH = Max( H, Max( HaC, HaO) ); HaL = Min( L, Min( HaC, HaO) ); BG3=HHV(LLV(HaL,4)+ATR(4),8); BR3=LLV(HHV(HaH ,4)-ATR(4),8); co = IIf(Hac>BG3 ,colorBrightGreen,IIf(Hac < BR3,colorRed,colorGrey50)); Plot(4, "", Co,styleArea+styleOwnScale | styleNoLabel, -1, 100); RestorePriceArrays(); _SECTION_END(); BuyPrice=(DayL+AF); BuyTP1=(BuyPrice+(BuyPrice*(PerctakeProfit/100))); BuyTP2=(C>=BuyTP1); SellPrice=(DayH-AF); SellTP1=(SellPrice-(SellPrice*(PerctakeProfit/100))); SellTP2=(C<=SellTP1); percchange=(((C-TOP)/TOP)*100); Vol=(V>=Volmin AND V<=Volmax); Percentage=(percchange>=PercChangemin AND percchange<=PercChangemax); prc=(C>=priceRL AND C<=priceRH); BuyStop1=(BuyPrice-(BuyPrice*(PercStoploss/100))); BuyStop2=IIf((BuyStop1<=SellPrice) AND SellPrice<=BuyPrice,SellPrice,BuyStop1); SellStop1=(SellPrice+(SellPrice*(PercStoploss/100))); SellStop2=IIf((SellStop1>=BuyPrice) AND SellPrice<=BuyPrice, BuyPrice,SellStop1); BuyStop=IIf((Buy AND NOT BuyTP2),BuyStop2,Null); BuyTP=IIf(Buy AND NOT BuyStop,BuyTP2,Null); Bars = BarsSince(TimeNum() >= 85400 AND TimeNum() < 092900); x0 = BarCount-LastValue(Bars); x1 = BarCount-1; TOP_Line = LineArray(x0,LastValue(TOP),x1,LastValue(TOP),0); PDH_Line = LineArray(x0,LastValue(PDH),x1,LastValue(PDH),0); PDL_Line = LineArray(x0,LastValue(PDL),x1,LastValue(PDL),0); PDC_Line = LineArray(x0,LastValue(PDC),x1,LastValue(PDC),0); PDM_Line = LineArray(x0,LastValue(PDM),x1,LastValue(PDM),0); FHH_Line = LineArray(x0,LastValue(FHH),x1,LastValue(FHH),0); FHL_Line = LineArray(x0,LastValue(FHL),x1,LastValue(FHL),0); BuyPriceline=LineArray(x0,LastValue(BuyPrice),x1,LastValue(BuyPrice),0); BuyStopline=LineArray(x0,LastValue(BuyStop2),x1,LastValue(BuyStop2),0); BuyTPline=LineArray(x0,LastValue(BuyTP1),x1,LastValue(BuyTP1),0); SellPriceline=LineArray(x0,LastValue(SellPrice),x1 ,LastValue(SellPrice),0); SellStopline=LineArray(x0,LastValue(SellStop2),x1, LastValue(SellStop2),0); SellTPline=LineArray(x0,LastValue(SellTP1),x1,LastValue(SellTP1),0); DayHline=LineArray(x0,LastValue(DayH),x1,LastValue (DayH),0); DayLline=LineArray(x0,LastValue(DayL),x1,LastValue (DayL),0); Plot(IIf(pShowtradeLines,BuyStopline,Null),"BuySto p",colorBrightGreen,styleDots|styleNoRescale| styleNoLine); Plot(IIf(pShowtradeLines,SellPriceline,Null),"Shor t Here",colorRed,styleDots|styleNoRescale); //PlotShapes(IIf(pShowMarkers AND Buy, shapeHollowUpArrow, Null), colorDarkGreen, 0,L,Offset=-30); if( Status("action") == actionIndicator ) ( Title = EncodeColor(colorWhite)+ "Trading System" + " - " + Name() + " - " + EncodeColor(colorYellow)+ Interval(2) + EncodeColor(colorYellow) + " - " + Date() +" - "+ EncodeColor(colorYellow) + "-Open="+WriteVal(O,1) + EncodeColor(colorYellow) + "- High= "+ WriteVal(H,1)+ EncodeColor(colorYellow) + "- Low= "+ WriteVal(L,1)+ EncodeColor(colorYellow) + "- Close= "+ WriteVal(C,1)+ EncodeColor(colorYellow) + "- Vol= "+ WriteVal(V,1)+("\n") +WriteIf(Percchange, " % Change = "+(Percchange)+" ","")+" Previous DayHigh="+WriteVal(PDH,1)+", Previous DayLow="+WriteVal(PDL,1)+", Today High="+WriteVal(DayH,1)+", Todays Low="+WriteVal(DayL,1)+ WriteIf(Hac>BG3,EncodeColor(colorBrightGreen)+"+Up ", WriteIf(Hac<BR3,EncodeColor(colorRed)+"-Down",EncodeColor(colorLightYellow)+"< Flat >"))); GfxSetOverlayMode( mode = 0 ); GfxSelectPen( colorLightBlue, 3 ); GfxSelectSolidBrush( colorLightYellow ); GfxRoundRect( 20, 55, 180, 175, 15, 15 ); GfxSetBkMode(1); GfxSelectFont( "Arial", 10, 700, False ); GfxSetTextColor( colorBrown ); GfxSetTextAlign(0); GfxTextOut( WriteIf(SellPrice, "TRP level: "+(SellPrice),""), 30, 60); GfxTextOut( WriteIf(BuyPrice, "Buy Above: "+(BuyPrice),""), 30, 75); GfxTextOut( WriteIf(BuyStop2, "Long SL: "+(BuyStop2),""), 30, 90); GfxTextOut( WriteIf(BuyTP1 , "Long Target 1: "+(BuyTP1),""), 30, 105); GfxTextOut( WriteIf(SellPrice, "Sell Below: "+(SellPrice),""), 30, 120); GfxTextOut( WriteIf(SellStop2, "Short SL: "+(SellStop2),""), 30, 135); GfxTextOut( WriteIf(SellTP1, "Short Target: "+(SellTP1),""), 30, 150); AddColumn(V,"Volume",1.0); AddColumn(Percchange,"Change %",1.2); AddColumn(BuyPrice,"Buy at",1.2); AddColumn(BuyStop,"Buy Stop at",1.2); AddColumn(BuyTP1,"Buy Profit at",1.2); AddColumn(SellPrice,"Short at",1.2); AddColumn(SellTP1,"Short profit at",1.2); } _SECTION_END(); _SECTION_BEGIN("short signal"); 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 ) ); BG2=HHV(LLV(Low,4)+ATR(4),8); BR2=LLV(HHV(High,4)-ATR(4),8); SetBarFillColor( IIf(O <C, colorSeaGreen,colorOrange) ); k = Optimize("K",Param("K",1.75,1,5,0.25),1,5,0.25); Per= Optimize("atr",Param("atr",10,3,30,1),3,30,1); j=HaClose; nm= (H-L); rfsctor = WMA(nm, PER); revers = K * rfsctor; Trend = 1; NW[0] = 0; for(i = 1; i < BarCount; i++) { if(Trend[i-1] == 1) { if(j[i] < NW[i-1]) { Trend[i] = -1; NW[i] = j[i] + Revers[i]; } else { Trend[i] = 1; if((j[i] - Revers[i]) > NW[i-1]) { NW[i] = j[i] - Revers[i]; } else { NW[i] = NW[i-1]; } } } if(Trend[i-1] == -1) { if(j[i] > NW[i-1]) { Trend[i] = 1; NW[i] = j[i] - Revers[i]; } else { Trend[i] = -1; if((j[i] + Revers[i]) < NW[i-1]) { NW[i] = j[i] + Revers[i]; } else { NW[i] = NW[i-1]; } } } } Plot(NW, "", IIf(Trend == 1, 6, 4), 4); Buy=Cross(j,nw); Short=Cross(nw,j); Sell=Cross(nw,j); Cover=Cross(j,nw); Buy=ExRem(Buy,Sell); Sell=ExRem(Sell,Buy); Short=ExRem(Short,Cover); Cover=ExRem(Cover,Short); //dist = 1.5*ATR(15); for( i = 0; i < BarCount; i++ ) { if( Buy[i] ) PlotText( "Buy@" + O[ i ], i, L[ i ]-Trend[i], colorDarkBlue, colorYellow ); if( Sell[i] ) PlotText( "Sell@" +H[ i ], i-4, L[ i ]+Trend[i], colorRed, colorYellow ); } PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,halow,-30); PlotShapes(IIf(Sell, shapeHollowDownTriangle, shapeNone),colorWhite, 0,hahigh,-15); PlotShapes(IIf(Cover, shapeHollowUpTriangle, shapeNone),colorWhite, 0,halow,-15); PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,hahigh,-30);
8 comments
Leave Comment
Please login here to leave a comment.
Back
Looks good … 3 Star from me.
thank u sir
good excellent ………thank u sir…which timeframe is most suitable
Navin…………
Plz go for lower time frames
5,10 etc.
makaran2 sir , ur afl is realy good . can u tell me how did u get buy above and sell bellow . i mean some time buy price is higher than sell price . some time seller is higher than buy price .which way we get these sir ? can u tell me how did u get that sir ? .cos i wanna get in shorter time frame . thanks a lot sir .
hi
AFL is good but when we back test in 15 min TF closebase, its tread pr. does not match with real close pr. i think some error in it ,pl guide me
Navin
CAN I USE MCX FUTURE TRADING?
PLEASE ANSWER ME…
dear makaran sir
nice afl
can u please set trade delays from current bar to next bar