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 ....
Buy for Amibroker (AFL)
Copy & Paste Friendly
Back
_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 ) ) )); SD = StochD(8, 3, 3); MH = MACD(8, 21) - Signal(8, 21, 5); trendup = IIf(MH > 0 OR (MH > 0 AND MH > Ref(MH, -1)) AND RSI(3) >50 AND SD < 80 AND SD > Ref(SD, -1) AND ValueWhen(C,O<C), colorYellow, colorBlack); trendcolor = IIf(MH < 0 OR (MH < 0 AND MH < Ref(MH, -1)) AND RSI(3) <50 AND SD > 20 AND SD < Ref(SD, -1) AND ValueWhen(C,O>C), colorRed, trendup); Plot( C, "Close", trendcolor, styleCandle | styleThick ); _SECTION_END(); no=Param( "Swing", 5, 1, 55 ); res=HHV(H,no); sup=LLV(L,no); tsl=IIf(ValueWhen(IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0))!=0,IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0)),1)==1,sup,res); Plot(tsl, _DEFAULT_NAME(), colorYellow, styleStaircase); Buy = Cross(C,res) ; Sell = Cross(sup,C) ; _SECTION_END(); a=C; g=(EMA(Close,3) * (2 / 4 - 1)-EMA(Close,5) * (2 / 6 - 1)) / (2 /4- 2 /6); e=Ref(tsl,-1); Buy = Cross(C,tsl) ; Sell = Cross(tsl,C) ; SellPrice=ValueWhen(Sell,e,1); BuyPrice=ValueWhen(Buy,e,1); Long=Flip(Buy,Sell); Shrt=Flip(Sell,Buy ); Filter=Buy OR Sell; Buy = Cross(C,tsl) ; Sell = Cross(tsl,C) ; shape = Buy * shapeUpArrow + Sell * shapeDownArrow; PlotShapes( shape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High ) ); a1=Ref(tsl,-1); dist = 0.8*ATR(1); //0.8 dist1 = 1.8*ATR(1); //1.2 for( i = 0; i < BarCount; i++ ) { if( Buy[i] ) { PlotText( "Buy:" + L[ i ] + "\nTgt: " + (a1[i]*1.005) + "\nSL: " + (tsl[i]*0.9975), i, L[ i ]-dist[i], colorLime); } if( Sell[i] ) { PlotText( "Sell:" + H[ i ] + "\nT: " + (a1[i]*0.995) + "\nSL: " + (tsl[i]*1.0025), i, H[ i ]+dist1[i], colorBlack); } }