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 ....
KPL 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 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 | prev=AMA2(C,1,0);d=IIf(C>Ref(Max(Max(H,Ref(H,-20)),Max(Ref(H,-10),Ref(H,-15))),-1),Min(Min(L,Ref(L,-20)),Min(Ref(L,-10),Ref(L,-15))),IIf(C<Ref(Min(Min(L,Ref(L,-20)),Min(Ref(L,-10),Ref(L,-15))),-1),Max(Max(H,Ref(H,-20)),Max(Ref(H,-10),Ref(H,-15))),PREV));a=Cross(Close,d);b=Cross(d,Close);state=IIf(BarsSince(a)<BarsSince(b),1,0);s=state>Ref(state,-1);ss=state<Ref(state,-1);sss=state==Ref(state,-1);col=IIf(state == 1 ,51,IIf(state ==0,4,1));Plot(C,"",Col,64);PlotShapes( shapeUpArrow * s ,6,0,L); PlotShapes( shapeDownArrow *ss ,4,0,H);Filter = s OR sss OR sss ;AddColumn(C,"close",1.2);AddColumn( IIf( s, 66,1 ), "buy", formatChar, 1, bkcolor =IIf (s,colorYellow, colorPink ));AddColumn( IIf( Ss, 83,1 ), "sell", formatChar, 1, bkcolor =IIf (Ss,colorPink, colorYellow ));AddColumn( IIf( sss, 87,1 ), "wait", formatChar, 1, bkcolor =IIf (sss,colorYellow, colorRed ));_SECTION_BEGIN("");_N(Title = "{{NAME}} - {{INTERVAL}} {{DATE}}: "+_DEFAULT_NAME()+" : {{OHLCX}} {{VALUES}}"+"\n"+EncodeColor(colorYellow)+WriteIf(s,"EXIT all Short positions\nif trading long positions, enter long Now-\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(L+.75*ATR(5),1.4)+" ,","")+WriteIf(ss,"exit all long positions today with a Market On Close (MOC) order\nOR at the market price on tomorrow's Open with stop="+EncodeColor(4)+WriteVal(Ref(H+.75*ATR(5), -1),1.4)+",","")+ WriteIf( sss ,"No trading signals today.","") );//AlertIf(s,"ghghgh");AlertIf( s, "", "Simple text alert", 4 );_SECTION_BEGIN("swing1");no=20;res=HHV(H,no);sup=LLV(L,no);avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));avn=ValueWhen(avd!=0,avd,1);supres=IIf(avn==1,sup,res);a=Cross(C,supres);b=Cross(supres,C);style = a * styleStaircase + b * styleStaircase;PlotShapes(a,style, IIf(a,colorGreen,colorRed), 0, IIf(a,Low,High));_SECTION_END();_SECTION_BEGIN("trend");uptrend=PDI(20)>MDI(10)AND Signal(29)<MACD(13);downtrend=MDI(10)>PDI(20)AND Signal(29)>MACD(13);Plot( 2, /* defines the height of the ribbon in percent of pane width */"ribbon",IIf( uptrend, colorGreen, IIf( downtrend, colorRed, 0 )), /* choose color */styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );_SECTION_END();//d = Close > Ref( ChandelierHL(ATR(3),20), -1);//e =Close < Ref( ChandelierHL(ATR(3),20), -1);//f = Close < Ref( ChandelierHL(ATR(3),20), -1);//g = Close > Ref( ChandelierHL(ATR(3),20), -1);Buy = s AND a AND uptrend ;Short = ss AND b AND downtrend ;Sell = ss AND b AND downtrend ;Cover = s AND a AND uptrend ;Buy=ExRem(Buy,Sell);Sell=ExRem(Sell,Buy);Cover=ExRem(Cover,Short);Short=ExRem(Short,Cover);Filter=Buy OR Sell;Filter= Cover OR Short;AddColumn( Buy, "Buy", 1);AddColumn(Sell, "Sell", 1);AddColumn(Close,"Close",1.2);AddColumn(Volume,"Volume",1.0);_SECTION_BEGIN("Volume");Plot( Volume, _DEFAULT_NAME(), ParamColor("Color", colorLavender ), styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram ), 2 );_SECTION_END();// Plot the Buy and Sell arrows.shape = Buy * shapeUpArrow + Sell * shapeDownArrow;PlotShapes(shape, IIf(Buy,colorGreen,colorRed), 0, IIf(Buy,Low,High));Plot(supres,"Swing",colorYellow,styleStaircase);SetChartBkGradientFill( ParamColor("BgTop", ColorRGB( 172,172,172 )),ParamColor("BgBottom", ColorRGB( 172,172,172 )),ParamColor("titleblock",ColorRGB( 172,172,172 ))); GraphXSpace = 5;_SECTION_BEGIN("MA1");P = ParamField("Price field",-1);Periods = Param("Periods", 15, 2, 300, 1, 10 );Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") ); _SECTION_END();_SECTION_BEGIN("MA3");P = ParamField("Price field",-1);Periods = Param("Periods", 15, 2, 300, 1, 10 );Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") ); _SECTION_END(); |