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 ....
trend+bollinger+wma 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 | //lema_SECTION_BEGIN("LEMA");P = ParamField("Price field",-1);Periods = Param("Periods", 20, 2, 200, 1, 10 );lema = EMA (Close,Periods)+ EMA((Close-EMA(Close,Periods)),Periods);Plot( lEMA, _DEFAULT_NAME(), ParamColor( "Color", colorCycle ),ParamStyle("Style") );Buy=Cross(C,lema);_SECTION_END();// grafik;Plot(C,"close",colorRed,styleCandle);// linreg50+mav50+mav3+bol(48,1,5);Plot(WMA(H,50)," wma50",colorAqua,styleLine);Plot(WMA(H,100)," wma100",colorGold,styleLine);P = ParamField("Price field",-1);Periods = Param("Periods", 48, 1, 5, 1 );Width = Param("Width", 2, 0, 10, 0.05 );Color = ParamColor("Color", colorBlue );Style = ParamStyle("Style");Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style ); Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );P = ParamField("Price field",-1); Length = 90; Daysback = Param("Period for Liner Regression Line",Length,1,240,1);shift = Param("Look back period",0,0,240,1); x = Cum(1);lastx = LastValue( x ) - shift;aa = LastValue( Ref(LinRegIntercept( p, Daysback), -shift) );bb = LastValue( Ref(LinRegSlope( p, Daysback ), -shift) );y = Aa + bb * ( x - (Lastx - DaysBack +1 ) ); LRColor = ParamColor("LR Color", colorCycle ); LRStyle = ParamStyle("LR Style"); LRLine = IIf( x > (lastx - Daysback) AND BarIndex() < Lastx, y, Null ); LRStyle = ParamStyle("LR Style");Angle = Param("Angle", 0.05, 0, 1.5, 0.01);// A slope higher than 0.05 radians will turn green, less than -0.05 will turn red and anything in between will be white. LRLine = IIf( x > (lastx - Daysback) AND BarIndex() < Lastx, y, Null ); Pi = 3.14159265 * atan(1); // PiSlopeAngle = atan(bb)*(180/Pi); LineUp = SlopeAngle > Angle;LineDn = SlopeAngle < - Angle; if(LineUp){Plot(LRLine, "Lin. Reg. Line Up", IIf(LineUp, colorBrightGreen, colorWhite), LRStyle);}else{Plot(LRLine, "Lin. Reg. Line Down", IIf(LineDn, colorDarkRed, colorWhite), LRStyle);} SDP = Param("Standard Deviation", 1.5, 0, 6, 0.1);SD = SDP/2; width = LastValue( Ref(SD*StDev(p, Daysback),-shift) ); //Set width of inside chanels here.SDU = IIf( x > (lastx - Daysback) AND BarIndex() < Lastx, y+width , Null ) ;SDL = IIf( x > (lastx - Daysback) AND BarIndex() < Lastx, y-width , Null ) ; SDColor = ParamColor("SD Color", colorCycle );SDStyle = ParamStyle("SD Style"); Plot( SDU , "Upper Lin Reg", colorWhite,SDStyle ); //Inside Regression LinesPlot( SDL , "Lower Lin Reg", colorWhite,SDStyle ); //Inside Regression Lines SDP2 = Param("2d Standard Deviation", 2.0, 0, 6, 0.1);SD2 = SDP2/2; width2 = LastValue( Ref(SD2*StDev(p, Daysback),-shift) ); //Set width of outside chanels here. SDU2 = IIf( x > (lastx - Daysback) AND BarIndex() < Lastx, y+width2 , Null ) ;SDL2 = IIf( x > (lastx - Daysback) AND BarIndex() < Lastx, y-width2 , Null ) ; SDColor2 = ParamColor("2 SD Color", colorCycle );SDStyle2 = ParamStyle("2 SD Style"); Plot( SDU2 , "Upper Lin Reg", colorWhite,SDStyle2 ); Plot( SDL2 , "Lower Lin Reg", colorWhite,SDStyle2 ); Trend = IIf(LRLine > Ref(LRLine,-1),colorGreen,colorRed); Plot( LRLine , "LinReg", Trend, LRSTYLE );oran=WMA(H,50)/C;oran=1.1;Buy=Cross(C,wMA(h,50)) OR Cross(C,oran);TimeFrameSet(inWeekly);Filter=Cross(C,wMA(h,50));TimeFrameRestore(); |