Stock Portfolio Organizer
The ultimate porfolio management solution.
Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
SWING TRADING for Amibroker (AFL)
Copy & Paste Friendly
Back
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 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 | _SECTION_BEGIN("Price1");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", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );_SECTION_END(); SetChartBkGradientFill( ParamColor("BgTop", ColorRGB( 172,172,172 )), ParamColor("BgBottom", ColorRGB( 172,172,172 )),ParamColor("titleblock",ColorRGB( 172,172,172 ))); SetChartBkGradientFill( ParamColor("BgTop", ColorRGB( 172,172,172 )), ParamColor("BgBottom", ColorRGB( 172,172,172 )),ParamColor("titleblock",ColorRGB( 172,172,172 ))); _SECTION_BEGIN("ADX");range = Param("ADX Periods", 7, 2, 200, 1 );Col_adx = IIf(ADX(range) > Ref(ADX(range),-1) AND ADX(range) > 15,colorBlue, colorGrey40);Col_pdi = IIf(PDI(range) > MDI(range) AND ADX(range) > Ref(ADX(range),-1),colorBrightGreen,colorDarkGreen);Col_Mdi = IIf(MDI(range) > PDI(range) AND ADX(range) > Ref(ADX(range),-1),colorRed,colorDarkRed); trend = IIf(col_pdi==colorBrightGreen,colorBrightGreen,IIf(col_mdi==colorRed,ColorRGB(255,73,64),IIf(PDI(range) > MDI(range),colorDarkGreen,colorDarkRed))); Plot(Close,"close",trend,styleBar); _SECTION_BEGIN("Fibo for all bars"); TimeFrameSet( in15Minute*2 ); DH=Ref(H,-1);DL=Ref(L,-1);DC=Ref(C,-1); pd = ( DH+ DL + DC )/3;sd1 = (2*pd)-DH;sd2 = pd -(DH - DL);sd3 = Sd1 - (DH-DL);rd1 = (2*pd)-DL;rd2 = pd +(DH -DL);rd3 = rd1 +(DH-DL); TimeFrameRestore(); Title = EncodeColor(colorWhite)+ "nfz.rahman" + " - " + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) + " - " + Date() +" - "+"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+ "Cl-"+C+" "+ WriteIf(C > pd, EncodeColor(colorGreen)+"stay long",EncodeColor(colorRed)+"stay SHORT") + "\n"+ "Vol= "+ WriteVal(V) +WriteIf ( V > MA(V,26) ,EncodeColor(colorGreen)+" UP "+ (V/MA(V,26))*100 + " %", EncodeColor(colorRed)+" DOWN "+ (V/MA(V,26))*100 + " %")+ EncodeColor(colorGreen)+ "\n R3 : "+ EncodeColor(colorWhite)+RD3+ EncodeColor(colorGreen)+ "\n R2 : "+ EncodeColor(colorWhite)+RD2+ EncodeColor(colorGreen)+ "\n R1 : "+ EncodeColor(colorWhite)+RD1+ EncodeColor(colorBlue)+ "\n Pivot : "+ EncodeColor(colorWhite)+pd+ EncodeColor(colorRed)+ "\n S1 : "+ EncodeColor(colorWhite)+SD1+ EncodeColor(colorRed)+ "\n S2 : "+ EncodeColor(colorWhite)+SD2+ EncodeColor(colorRed)+ "\n S3 : "+ EncodeColor(colorWhite)+SD3; _SECTION_BEGIN("KPL");//AFL by Kamalesh Langote. Email:kpl@vfmdirect.comno=Param( "Swing", 2, 1, 55 );tsl_col=ParamColor( "Color", colorCycle ); res=HHV(H,no);sup=LLV(L,no);avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));avn=ValueWhen(avd!=0,avd,1);tsl=IIf(avn==1,sup,res); Plot(tsl, _DEFAULT_NAME(), tsl_col, styleStaircase); Buy=Cross(C,tsl);Sell=Cross(tsl,C);shape=Buy*shapeUpArrow + Sell*shapeDownArrow;PlotShapes(shape,IIf(Buy,tsl_col,tsl_col),0,IIf(Buy,Low,High));_SECTION_END(); _SECTION_BEGIN("Graphics");GrpPrm=Param("Graphic Space",2,-5,10);GraphXSpace=GrpPrm;_SECTION_END(); _SECTION_BEGIN("Average 2");P = ParamField("Field");Type = ParamList("Type", "Weighted,Lagless-21,Hull-26,LinearRegression-45,Exponential,Double Exponential,TrippleExponential,Wilders,Simple");Periods = Param("Periods", 35 ,2, 200 );Displacement = Param("Displacement", 1, -50, 50 );m = 0; if( Type == "Weighted" ) m= WMA( P, Periods );if( Type == "Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods),Periods);if( Type == "Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4);if( Type == "Linear Regression-45" ) m= LinearReg( P, Periods );if( Type == "Exponential" ) m = EMA( P, Periods );if( Type == "Double Exponential" ) m = DEMA( P, Periods );if( Type == "Tripple Exponential" ) m = TEMA( P, Periods );if( Type == "Wilders" ) m = Wilders( P, Periods );if( Type == "Simple" ) m = MA( P, Periods ); Plot( m, _DEFAULT_NAME(), ParamColor("Color", colorLightBlue),ParamStyle("Style",styleLine |styleThick|styleNoTitle ,maskAll),Displacement );_SECTION_END(); |