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 ....
For Portfolio Manager Click Here

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Trend Master for Amibroker (AFL)

Copy & Paste Friendly

_SECTION_BEGIN("Price");
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 ) ) ));
TimeFrameSet(inDaily);
MA3 = MA(C,3);
Cl = C;
TimeFrameRestore();
MA3=(TimeFrameExpand( MA3, inDaily));
Cl=(TimeFrameExpand( Cl, inDaily));
barcolor =IIf(C > MA3 , colorGreen,IIf(C < MA3,colorRed, colorBlack) );
Plot( C, "Close", barcolor , styleNoTitle |styleBar);
//Plot(MA(C,100) , "", colorBlue, styleLine);
//Plot(MA(C,200) , "", colorCustom12, styleLine);
r1 = Param( "Fast avg", 12, 2, 200, 1 );
r2 = Param( "Slow avg", 26, 2, 200, 1 );
r3 = Param( "Signal avg", 9, 2, 200, 1 );
//Plot( ml = MACD(r1, r2), StrFormat(_SECTION_NAME()+"(%g,%g)", r1, r2), ParamColor("MACD color", colorRed ), ParamStyle("MACD style") );
//Plot( sl = Signal(r1,r2,r3), "Signal" + _PARAM_VALUES(), ParamColor("Signal color", colorBlue ), ParamStyle("Signal style") );
//Plot( ml-sl, "MACD Histogram", ParamColor("Histogram color", colorBlack ), styleNoTitle | ParamStyle("Histogram style", styleHistogram | styleNoLabel, maskHistogram ) );
ml = MACD(r1, r2);
sl = Signal(r1,r2,r3);
xx = ml-sl;
Plot(ValueWhen((Cross(xx,0 )OR Cross(0,xx)), C),"", colorRed, styleDashed|styleNoRescale|styleThick);


function PercentR( periods )
{
return -100 * ( HHV( H, periods ) - C )/( HHV( H, periods ) - LLV( L, periods ) );
}
xx= 100- abs(PercentR( 25 ));
tt= (RSI( 25) + xx)/2;

//Plot( EMA(tt,5) ,"PercentR", barcolor , 1+4) ;
qq = EMA(tt,5);
//Plot(MA(qq,34) , "", colorBlue, styleLine);


per =5;
x = Cum(1);
s1=qq;
s11=qq;
pS = TroughBars( s1, per, 1 ) == 0;
endt= LastValue(ValueWhen( pS, x, 1 ));
startt=LastValue(ValueWhen( pS, x, 2 ));
dtS =endt-startt;
endS = LastValue(ValueWhen( pS, s1, 1 ) );
startS = LastValue( ValueWhen( pS, s1, 2 ));
aS = (endS-startS)/dtS;bS = endS;
trendlineS = aS * ( x -endt ) + bS;
pR = PeakBars( s11, per, 1 ) == 0;
endt1= LastValue(ValueWhen( pR, x, 1 ));
startt1=LastValue(ValueWhen( pR, x, 2 ));
dtR =endt1-startt1;
endR = LastValue(ValueWhen( pR, s11, 1 ) );
startR = LastValue( ValueWhen( pR, s11, 2 ));
aR = (endR-startR)/dtR;
bR = endR;
trendlineR = aR * ( x -endt1 ) + bR;
//Buy = (S1==trendlineS );// AND qq <= 20;
//Sell = (S11==trendlineR );// AND qq >= 70;
//Buy = ExRem( Buy, Sell );
//Sell = ExRem( Sell, Buy )PlotShapes( Buy * shapeUpArrow + Sell * shapeDownArrow, IIf( Buy, colorGreen , colorRed) );
//dist = 2.5*ATR(10);
//for( i = 0; i < BarCount; i++ )
{
//if( Buy[i] ) PlotText( "Buy " + L[ i ], i, L[ i ]-dist[i], colorGreen );
//if( Sell[i] ) PlotText( "Sell " + H[ i ], i, H[ i ]+dist[i], colorRed);
}
_SECTION_END(); 
Back