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 ....
Triple MA Color Cloud 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 | _SECTION_BEGIN ( "Set Chart" ); SetChartBkGradientFill ( ParamColor ( "Inner panel upper" , colorBlack ), ParamColor ( "Inner panel lower" , colorBlack )); Title = EncodeColor ( colorYellow )+ "SWING" + "-- " + EncodeColor ( colorRed )+ "MULTIPLE" + " " + EncodeColor ( colorBrightGreen )+ "MOVING AVERAGES WITH ZIGZAG" + "\n" + EncodeColor ( colorWhite )+ "CNBONDRE" + " - " + FullName () + " - " + EncodeColor ( colorYellow )+ Interval (2) + EncodeColor ( colorYellow ) + " - " + EncodeColor ( colorCustom11 )+ Date () + " - " + "-" + EncodeColor ( colorAqua ) + " Op=" + O + " " + " Hi=" + H + " " + " Lo=" + L + " " + " Cl=" + C + " " + " Ch= " + WriteVal ( ROC ( C , 1 ),1.2)+ "%" + " Vol=" + WriteVal ( V )+ "\n" ; StyleList= ParamList ( "Chart Style" , "Candle,Bar" ); style = IIf (StyleList== "Candle" , styleCandle , styleBar =128); GreenBar = IIf ( C > O , True , False ); RedBar = IIf ( C < O , True , False ); BarColor = IIf (GreenBar, colorWhite , IIf (RedBar, colorWhite , colorWhite )); PlotOHLC ( O , H , L , C , "" , BarColor, style ); _SECTION_END (); _SECTION_BEGIN ( "MA" ); P = ParamField ( "Price field" ,-1); Periods = Param ( "Periods" , 15, 2, 300, 1, 10 ); Plot ( MA ( P, Periods ), _DEFAULT_NAME (), ParamColor ( "Color" , colorCycle ), ParamStyle ( "Style" ) ); m= MA ( P, Periods ); _SECTION_END (); _SECTION_BEGIN ( "MA2" ); 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 ( "EMA" ); P = ParamField ( "Price field" ,-1); Periods = Param ( "Periods" , 15, 2, 300, 1, 10 ); Plot ( EMA ( P, Periods ), _DEFAULT_NAME (), ParamColor ( "Color" , colorCycle ), ParamStyle ( "Style" ) ); s= EMA ( P, Periods ); _SECTION_END (); PlotText ( " Ch= " + WriteVal ( ROC ( C ,1),1.2)+ "%" , BarCount , LastValue ( C ),42); numBars = BarsSince ( DateNum ()!= Ref ( DateNum (),-1))+1; PlotText ( " \n dm = " + WriteVal ((m-s)/ Ref ((m-s),-1)) , BarCount , LastValue ( C ),42); _SECTION_BEGIN ( "Fill Color" ); Cloudswitch = ParamToggle ( "Fill Color" , "On,Off" ); dynamic_color = IIf ( m > s, ParamColor ( "Down Color" , colorSeaGreen ), ParamColor ( "Up Color" , colorOrange )); PlotOHLC ( IIf (Cloudswitch,-1e10,m), IIf (Cloudswitch,-1e10,m), IIf (Cloudswitch,-1e10,s), IIf (Cloudswitch,-1e10,m), "" , dynamic_color, styleNoLabel | styleCloud ); _SECTION_END (); |