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 ....
Slide Show - Indicator Cycle Timer for Amibroker (AFL)
Rating:
5 / 5 (Votes 1)
Tags:
amibroker, Slide Show, Indicator Cycle Timer
Formula to see SIX Indicators in a Six Second Rotation -—
We Take no Credit for the Indicators used, only the TIMER -—
ADVANTAGES: One Screen with Six Displays, Instead of Hunting Six Pages Now One Page Needed Only -—
Feel Free to Adjust the Numbers as you Like -—
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 | // SLIDE SHOW ----- Steven Carr and Rich Weiss ----- 10-20-20 -----// Formula to see SIX Indicators in a Six Second Rotation -----// We Take no Credit for the Indicators used, only the TIMER -----// ADVANTAGES: One Screen with Six Displays, Instead of Hunting Six Pages Now One Page Needed Only ----- // Feel Free to Adjust the Numbers as you Like -----SetChartOptions( 1, chartShowDates);// Sequential 6 Timer -----Seconds = int( Now(4) );sec2 = seconds/36; // About Six Seconds -----sec3 = round(sec2)-1;Tmr = sec2 - sec3; // number goes 0.5 to 1.5 -----Timer = IIf(Tmr>0.5 AND Tmr<0.66,1,0);Timer2 = IIf(Tmr>0.66 AND Tmr<0.82,1,0);Timer3 = IIf(Tmr>0.82 AND Tmr<0.98,1,0);Timer4 = IIf(Tmr>0.98 AND Tmr<1.14,1,0);Timer5 = IIf(Tmr>1.14 AND Tmr<1.3,1,0);Timer6 = IIf(Tmr>1.3 AND Tmr<1.46,1,0);// RSI -----ssRSI2 = RSI(14);ssRsi = IIf(Timer>0.5, ssRSI2, Null);ss50a = 50;ss50 = IIf(Timer>0.5, ss50a, Null);Plot(ssRSI," << SLIDE SHOW >> Six Indicators "+Date(),colorRed,styleThick);Plot(ss50,"\n"+"\n"+" RSI (14) = "+ssRsi,colorRed,styleThick|styleDashed);// ROC -----ssROC2 = ROC(C,14);ssROC = IIf(Timer2>0.5, ssROC2, Null);ss0a = 0;ss0 = IIf(Timer2>0.5, ss0a, Null);Plot(ssROC,"\n"+"\n"+" ROC (14) ",colorWhite,styleThick);Plot(ss0,"",colorWhite,styleThick|styleDashed);// Momentum Formula -----Mode = 0; // Smoothed -----MomPer = 10;SmaPer = 7; EmaPer = 7;if( Mode == 1) { Mom = 100 * ((Close / MA(Close, (2 * MomPer) + 1) ) - 1); } else{ Mom = 100 * ((EMA(Close, EmaPer) / MA(Close, (2 * MomPer) + 1) ) - 1); } Momx = IIf(Timer2>0.5, Mom, Null);Plot(Momx, "\n"+" MOM (10,7,7)", colorYellow, styleThick);// MACD -----ssMACD2 = MACD(12,26);ssMACD = IIf(Timer3>0.5, ssMACD2, Null);ssMa = MA(ssMACD,9);ssM = IIf(Timer3>0.5, ssMa, Null);Plot(ssMACD,"\n"+"\n"+" MACD (12,26) ",colorOrange,styleThick|styleOwnScale);Plot(ssM,"",colorlightOrange,styleThick|styleOwnScale);// TEMA -----ssTEMA2 = TEMA(C,20);ssTEMA = IIf(Timer4>0.5, ssTEMA2, Null);Plot(ssTEMA,"\n"+"\n"+" TEMA (20) ",colorBrightGreen,styleThick);ssTEMA4 = TEMA(C,40);ssTEMA = IIf(Timer4>0.5, ssTEMA4, Null);Plot(ssTEMA,"\n"+" TEMA (40) ",colorGreen,styleThick);ssTEMA8 = TEMA(C,80);ssTEMA = IIf(Timer4>0.5, ssTEMA8, Null);Plot(ssTEMA,"\n"+" TEMA (80) ",colorpaleGreen,styleThick);ssC = IIf(Timer4>0.5 OR Timer5>0.5 OR Timer6>0.5, C, Null);Plot(ssC,"",colorTeal, styleBar|styleThick);// MAs -----ssMA20a = MA(C,20);ssMA20 = IIf(Timer5>0.5, ssMA20a, Null);Plot(ssMA20,"\n"+"\n"+" MA (20) ",colorTurquoise,styleThick);ssMA40a = MA(C,40);ssMA40 = IIf(Timer5>0.5, ssMA40a, Null);Plot(ssMA40,"\n"+" MA (40) ",colorTeal,styleThick);ssMA80a = MA(C,80);ssMA80 = IIf(Timer5>0.5, ssMA80a, Null);Plot(ssMA80,"\n"+" MA (80) ",colorBlueGrey,styleThick);// Zig H Zag L -----pr= 10; pk=PeakBars(H,pr)==0;tr=TroughBars(L,pr)==0;zzHi=Zig(H,pr);zzLo=Zig(L,pr);Avg=(zzHi+zzLo)/2;x=IIf(pk,zzHi,IIf(tr,zzLo,IIf(Avg>Ref(Avg,-1),H,L)));zzHiLo=Zig(x,pr);zlm = zzHiLo;Slpz = (zlm-Ref(zlm,-1))*25;zzhx = IIf(Timer6>0.5, zzhilo, Null);colorz = IIf( Slpz>0, colorTeal, colorTan);Plot( zzHx, "\n"+"\n"+" Zig Zag (10) = "+WriteVal(Slpz,1.1)+ " ", colorz, styleThick);// Buys and Sells -----Buy2 = Cross(Ref(Slpz,1),0) AND Timer6>0.5;Sell2 = Cross(0, Ref(Slpz,1)) AND Timer6>0.5; PlotShapes( shapeCircle*Buy2, colorLime, 0, l, -30 );PlotShapes( shapeCircle*Sell2, colorCustom12, 0, h, 30 );// End Slide Show ----- |
0 comments
Leave Comment
Please login here to leave a comment.
Back