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 ....
HAPPY 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 | _SECTION_BEGIN ( "New Year" ); for ( i = 1; i < BarCount ; i++ ) z = ( GetPerformanceCounter ()/100)%30; y = ( GetPerformanceCounter ()/100)%255; Col= ColorHSB ( ( i + y ) % 256, 255, 255 ); x= Cum (1);L1= LastValue (x); F= StochD ()+30* sin ( Cum (1/5))+20* sin (10* Cum (1/10)); RequestTimedRefresh (1); Plot (F, "" ,Col+z, styleNoLine + styleNoLabel ); PlotShapes ( shapeStar *(F>95)*(X>L1-180),1+(x%35)+z); PlotShapes (shapeHollowStar*(F<30>10)*(X>L1-180),Col); y0=20;y1=60;y=0.5*(y0+y1); Plot (0, "" ,1, styleNoLine + styleNoLabel ); Plot (y0+y1, "" ,3, styleNoLine + styleNoLabel ); n=4;d0=140;dd=10; d=d0; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y[L1-d-1+4],0), "" ,3,1); d1=d-n; Plot ( LineArray (x[L1-d1],y0[d1],x[L1-d1+1],y1[d1],0), "" ,3,1); d=d0-dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y[L1-d-1+4],0), "" ,3,1); Plot ( LineArray (x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d- 1+4],0), "" ,3,1); d1=d-n; Plot ( LineArray (x[L1-d1],y0[d1],x[L1-d1+1],y1[d1],0), "" ,3,1); d=d-dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y[L1-d-1+4],0), "" ,3,1); Plot ( LineArray (x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d- 1+4],0), "" ,3,1); d1=d-n; Plot ( LineArray (x[L1-d1],y[d1],x[L1-d1+1],y1[d1],0), "" ,3,1); d=d-dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y[L1-d-1+4],0), "" ,3,1); Plot ( LineArray (x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d- 1+4],0), "" ,3,1); d1=d-n; Plot ( LineArray (x[L1-d1],y[d1],x[L1-d1+1],y1[d1],0), "" ,3,1); d=d-dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+3],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d],y1[d],x[L1-d+1],y[d],0), "" ,3,1); d=d-2*dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); d1=d-n; Plot ( LineArray (x[L1-d1],y0[d1],x[L1-d1+1],y1[d1],0), "" ,3,1); Plot ( LineArray (x[L1-d+1],y1[d],x[L1-d+4],y0[d],0), "" ,3,1); d=d-dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y[L1-d-1+4],0), "" ,3,1); Plot ( LineArray (x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d- 1+4],0), "" ,3,1); Plot ( LineArray (x[L1-d-1+1],y0[L1-d-1],x[L1-d-1+5+1],y0[L1-d- 1+4],0), "" ,3,1); d=d-dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d],y0[L1-d-1],x[L1-d-1+4],y[L1-d-1+3],0), "" ,3,1); d1=d-n+1; Plot ( LineArray (x[L1-d1],y[d1],x[L1-d1+2],y0 [d1],0), "" ,3,1);d=d-5; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); d=d-dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+3],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d],y1[d],x[L1-d+1],y[d],0), "" ,3,1); d=d-7; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y[L1-d-1+4],0), "" ,3,1); Plot ( LineArray (x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d- 1+4],0), "" ,3,1); Plot ( LineArray (x[L1-d-1+1],y0[L1-d-1],x[L1-d-1+5+1],y0[L1-d- 1+4],0), "" ,3,1); d=d-dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y[L1-d-1+4],0), "" ,3,1); Plot ( LineArray (x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d- 1+4],0), "" ,3,1); d1=d-n; Plot ( LineArray (x[L1-d1],y0[d1],x[L1-d1+1],y1[d1],0), "" ,3,1); d=d-dd; Plot ( LineArray (x[L1-d],y0[d],x[L1-d+1],y1[d],0), "" ,3,1); Plot ( LineArray (x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y[L1-d-1+4],0), "" ,3,1); Plot ( LineArray (x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d- 1+4],0), "" ,3,1); d1=d-n; Plot ( LineArray (x[L1-d1],y[d1],x[L1-d1+1],y1[d1],0), "" ,3,1); Plot ( LineArray (x[L1-d],y[d],x[L1-d+5],y0[d],0), "" ,3,1); Title= "HAPPY NEW YEAR 2014" ; _SECTION_END (); |