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 ....
DPO-DEMA color and explor for Amibroker (AFL)
Copy & Paste Friendly
Back
_SECTION_BEGIN("DPO"); Version(5.00); SetChartBkGradientFill( ParamColor("Backgroud Top Color", colorWhite),ParamColor("Background Bottom Color", colorWhite)); function DetrendedPriceOsc( Periods ) { return C - Ref( MA( C, Periods ), -( 1 + Periods/2 ) ); } Plot( s=DetrendedPriceOsc( Param("Periods", 20, 1, 100 ) ), _DEFAULT_NAME(), ParamColor("Color", colorLightOrange ), ParamStyle("Style")); _SECTION_END(); _SECTION_BEGIN("DEMA"); P = ParamField("Price field",-1); Periods = Param("Periods", 15, 2, 300, 1, 10 ); Plot( k=DEMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorRed ), ParamStyle("Style") ); { SK=s; SD=k; } { SK=s; SD=k; } Buy = Cross( SK, SD); Sell = Cross( SD, SK); PlotShapes(IIf(Buy,shapeUpArrow,shapeNone) ,colorGreen); PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colorRed); Plot(0,"",ParamColor( "ColorZero", colorBlueGrey ),styleLine); { SK=s; SD=k; } { SK=s; SD=k; } Buy = Cross( SK, SD); Sell = Cross( SD, SK); Color = IIf( s > k, ParamColor("s Color", colorWhite ) , ParamColor( "k Color", colorRed ) ); PlotOHLC ( s, s, k, k, "", Color, styleCloud | styleNoLabel, Null, Null); _SECTION_END(); _SECTION_BEGIN("Exploracja"); ProgADX1 = Param("Próg Min ADX", 20,1,80,1); ProgADX2 = Param("Próg Max ADX", 50,1,80,1); ADXTrend=ADX(14)>ProgADX1 ; ProcPonadMA50=(C/Wilders(C,50)-1)*100; AddColumn(Close,"Close"); AddColumn(Volume,"Wolume",1.0); AddColumn(Wilders(C,50),"MA(50)"); AddColumn(ADX(14),"ADX(14)"); Filter= s>k AND Volume>50000; _SECTION_END();