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 ....
WDF2 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 | /************************************* Created by Kelvinhand ***************************************/ global g_m, g_s; _SECTION_BEGIN ( "Background" ); SetChartBkGradientFill ( ParamColor ( "BgTop" , colorBlack ), ParamColor ( "BgBottom" , colorBlack ), colorLightGrey ); _SECTION_END (); _SECTION_BEGIN ( "Enable/Disable" ); ShowMACDLine = ParamToggle ( "Show MACD Line?" , "No|Yes" ); ShowBB = ParamToggle ( "Show MACD-BB?" , "No|Yes" , 1); ShowStdDev = ParamToggle ( "Show MA For StdDev?" , "No|Yes" , 1); _SECTION_END (); _SECTION_BEGIN ( "Styles" ); sShapeBtwBB = ParamList ( "Shape between BB" , "Small|Big" , 1); _SECTION_END (); _SECTION_BEGIN ( "Colors" ); cMacdLine= ParamColor ( "MACD Line" , colorOrange ); cUprBB = ParamColor ( "UpperBand" , colorBlueGrey ); cLwrBB = ParamColor ( "LowerBand" , colorBlueGrey ); cMacdGeUprBB = ParamColor ( "MacdGeUprBB" , colorBrightGreen ); cMacdLeLwrBB = ParamColor ( "MacdLeLwrBB" , ColorRGB (255,0,255)); cMacdLtUprBB = ParamColor ( "MacdLtUprBB" , colorRed ); cMacdGtLwrBB = ParamColor ( "MacdGtLwrBB" , colorDarkGreen ); cZLUp = ParamColor ( "Above Zeroline" , ColorRGB (0,0,140)); cZLDn = ParamColor ( "Below Zeroline" , ColorRGB (130,0,0)); _SECTION_END (); _SECTION_BEGIN ( "MACDBB" ); r1 = Param ( "Fast MA Period" , 12); r2 = Param ( "Slow MA Period" , 26); //r3 = Param("Signal Period", 9); r4 = Param ( "StdDev Period" , 10); SDCnt = Param ( "StdDev" , 1.0, 1,10, 0.1); MAforStdDev = ParamList ( "MA for StdDev" , "SMA|EMA" ); _SECTION_END (); g_m= EMA ( C ,r1)- EMA ( C ,r2); m1 = Ref (g_m, -1); if (MAforStdDev== "EMA" ) g_s = EMA (g_m,r4); else g_s = MA (g_m,r4); SD = StDev ( g_m, r4); BBtop= g_s + SDCnt*sD; BBbot= g_s - SDCnt*sD; if (ShowMACDLine) Plot (g_m, "" ,cMacdLine); if (ShowBB) { ThisColor = IIf (g_m>=BBtop AND g_m>=m1, cMacdGeUprBB, IIf (g_m<=BBbot AND g_m<=m1, cMacdLeLwrBB, IIf (g_m>g_s, cMacdLtUprBB, cMacdGtLwrBB))); Plot (g_m, "MACD" , ThisColor, styleDots | styleNoLine ); if (sShapeBtwBB== "Big" ) { ThisShape = IIf (g_m>BBtop, shapeNone , IIf (g_m<BBbot, shapeNone , shapeSmallCircle )); PlotShapes ( ThisShape, ThisColor,0, Null , 0 ); } } if (ShowStdDev) Plot (g_s, "MidBand" , colorDarkGrey , styleDashed | styleNoLabel ); if (ShowBB) { Plot (BBtop, "UprBand" ,cUprBB, styleNoLabel ); Plot (BBbot, "LwrBand" ,cLwrBB, styleNoLabel ); } Plot (0, "" , IIf (g_m>=0, colorBlue , colorRed ), styleNoLabel ); RequestTimedRefresh ( 0 ); |