The following script can be used, with a Show View to display a Schaff Trend Cycle Indicator along the bottom of your chart:
fastMA = MA(BARS=23, STYLE=Exponential, CALC=Close); slowMA = MA(BARS=50, STYLE=Exponential, CALC=Close); m = fastMA - slowMA; mK = STOCH(m, BAR2=10); mD=STOCH(mK, DEFAULT=%D, BAR2=10); STOCH(mD, BAR2=10, TYPE=Double, DEFAULT=%D);