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 ....
My 8 for Amibroker (AFL)
Rating:
2 / 5 (Votes 3)
Tags:
trading system, amibroker
This indicator use Aroon,MACD,RSI,BB,MFI,MA…
Similar Indicators / Formulas
All in One
Submitted
by Nahid over 14 years ago
Kase Peak Osc. V2 batu
Submitted
by batu1453 over 10 years ago
Kase CD V2batu
Submitted
by batu1453 over 10 years ago
Ichimoku
Submitted
by prashantrdx over 10 years ago
Arvind' System
Submitted
by akdabc over 14 years ago
Miftha remix for dse
Submitted
by coolpace over 14 years ago
Indicator / Formula
Copy & Paste Friendly
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 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | _SECTION_BEGIN("Chart Display");GraphXSpace = 10;SetBarsRequired(1,1); SetChartOptions(0,chartShowArrows|chartShowDates|chartWrapTitle);Plot( C, "Close", ParamColor("Candle Outline Color?", colorWhite), styleCandle|styleNoTitle); _N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));_SECTION_END();_SECTION_BEGIN("Volume");Plot(Volume, _DEFAULT_NAME(), ParamColor("Color", colorGrey50), ParamStyle( "Style", styleHistogram | styleOwnScale, maskHistogram), 2 );_SECTION_END();VBS=0;VSS=0;VBM = "";VSM = "";_SECTION_BEGIN("Parameter Settings");ap = Param("Aroon Periods", 14, 1, 100, 1 );ParamStr("--------------- ------------------","-");bp = Param("Bollinger Bands Periods", 15, 2, 300, 1 );bw = Param("Bollinger Bands Width", 2, 0, 10, 0.05 );ParamStr("--------------------------------","-");r1 = Param( "MACD Fast Average", 12, 2, 200, 1 );r2 = Param( "MACD Slow Average", 26, 2, 200, 1 );r3 = Param( "MACD Signal Average", 9, 2, 200, 1 );ParamStr("---------------------------------","-");mp = Param( "MFI Periods", 14, 2, 200, 1 );ParamStr("--------------- -----------------","-");rp = Param( "RSI Periods", 15, 1, 200, 1 );ParamStr("---------------- -----------------","-");P1 = Param("Fast MA Period?",3,1,100);P2 = Param("Medium MA Period?",5,1,300);P3 = Param("Short MA Period?",8,1,300);HHVBS = HHVBars(H,ap+1);LLVBS = LLVBars(L,ap+1);Aroon_Up = ((ap-HHVBS)/ap)*100;Aroon_Down = ((ap-LLVBS)/ap)*100;Aroon_Buy = Aroon_Up>70 AND Aroon_Down<30;Aroon_Sell = Aroon_Up<30 AND Aroon_Down>70;VBS = IIf(Aroon_Buy,VBS+1,VBS);VSS = IIf(Aroon_Sell,VSS+1,VSS);VBM = WriteIf(Aroon_Buy,VBM + "Aroon ",VBM);VSM = WriteIf(Aroon_Sell,VSM + "Aroon ",VSM);BB_Buy = C<BBandBot(C,bp,bw);BB_Sell = C>BBandTop(C,bp,bw);VBS = IIf(BB_Buy,VBS+1,VBS);VSS = IIf(BB_Sell,VSS+1,VSS);VBM = WriteIf(BB_Buy,VBM + "Bollinger Bands ",VBM);VSM = WriteIf(BB_Sell,VSM + "Bollinger Bands ",VSM);ml = MACD(r1, r2); sl = Signal(r1,r2,r3);MACD_Hist = ml-sl;MACD_Buy = ml>0 OR ml>sl;MACD_Hist_Buy = MACD_Hist<0 AND MACD_Hist>Ref(MACD_Hist,-1);MACD_Sell = ml<0 OR ml<sl;MACD_Hist_Sell = MACD_Hist>0 AND MACD_Hist<Ref(MACD_Hist,-1);VBS = IIf(MACD_Buy,VBS+1,VBS);VSS = IIf(MACD_Sell,VSS+1,VSS);VBS = IIf(MACD_Hist_Buy,VBS+1,VBS);VSS = IIf(MACD_Hist_Sell,VSS+1,VSS);VBM = WriteIf(MACD_Buy,VBM + "MACD ",VBM);VSM = WriteIf(MACD_Sell,VSM + "MACD ",VSM);VBM = WriteIf(MACD_Hist_Buy,VBM + "MACD-Histogram ",VBM);VSM = WriteIf(MACD_Hist_Sell,VSM + "MACD-Histogram ",VSM);MFI_Buy = MFI(mp)<20;MFI_Sell = MFI(mp)>80; VBS = IIf(MFI_Buy,VBS+1,VBS);VSS = IIf(MFI_Sell,VSS+1,VSS);VBM = WriteIf(MFI_Buy,VBM + "MFI ",VBM);VSM = WriteIf(MFI_Sell,VSM + "MFI ",VSM);RSI_Value = RSI(rp);RSI_Buy = RSI_Value>30 AND Ref(RSI_Value,-1)<=30;RSI_Sell = RSI_Value<70 AND Ref(RSI_Value,-1)>=70;RSI_Price_Buy = RSI_Value>Ref(RSI_Value,-1) AND C>Ref(C,-1) AND RSI_Value>50;RSI_Price_Sell = RSI_Value<Ref(RSI_Value,-1) AND C<Ref(C,-1) AND RSI_Value<50;VBS = IIf(RSI_Buy,VBS+1,VBS);VSS = IIf(RSI_Sell,VSS+1,VSS);VBS = IIf(RSI_Price_Buy,VBS+1,VBS);VSS = IIf(RSI_Price_Sell,VSS+1,VSS);VBM = WriteIf(RSI_Buy,VBM + "RSI ",VBM);VSM = WriteIf(RSI_Sell,VSM + "RSI ",VSM);VBM = WriteIf(RSI_Price_Buy,VBM + "RSI&Price ",VBM);VSM = WriteIf(RSI_Price_Sell,VSM + "RSI&Price ",VSM);Fast_MA = MA(C,P1);Medium_MA = MA(C,P2);Slow_MA = MA(C,P3);MA_Buy = Fast_MA>Medium_MA AND Medium_MA>Slow_MA;MA_Sell = Fast_MA<Medium_MA AND Medium_MA<Slow_MA;VBS = IIf(MA_Buy,VBS+1,VBS);VSS = IIf(MA_Sell,VSS+1,VSS);VBM = WriteIf(MA_Buy,VBM + "MA ",VBM);VSM = WriteIf(MA_Sell,VSM + "MA ",VSM);_SECTION_END();_SECTION_BEGIN("Trading System");Count = Param("Trading System based on how many parameters?",3,1,8);Buy = VBS>=Count;Sell = VSS>=Count;Buy = ExRem(Buy,Sell);Sell = ExRem(Sell,Buy);PlotShapes(IIf(Buy,shapeUpArrow,shapeNone), colorBrightGreen, 0, L, Offset=-15);PlotShapes(IIf(Sell,shapeDownArrow,shapeNone), colorRed, 0, H, Offset=-15);AlertIf(Buy, "SOUND C:\\program files\\amibroker\\tada.wav", "Buy alert : "+C,1);AlertIf(Sell, "SOUND C:\\program files\\amibroker\\notify.wav", "Sell alert : "+C,2);MessageBg = ParamColor("Message Background Color?",colorBlack);GfxSetBkColor(MessageBg);GfxSelectFont("Arial",10,600); GfxSetTextColor(colorGreen);GfxTextOut("Buy Signal Count : "+VBS,15,25);GfxTextOut(VBM,15,40);GfxSetTextColor(colorRed);GfxTextOut("Sell Signal Count : "+VSS,15,55);GfxTextOut(VSM,15,70);_SECTION_END(); |
1 comments
Leave Comment
Please login here to leave a comment.
Back
simple and good one .. keep it up friend