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
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 | _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 (); |