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