// 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 -----