// Downloaded From https://www.WiseStockTrader.com // 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 -----