// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("KST");
SetChartOptions( 0,  chartGridMiddle = 0 );
PlotGrid(0,ParamColor("upGridcolor",colorWhite));
p1 =  ROC(Close,6);
p2 = ROC( Close, 12);
p3 =  ROC( Close, 18) ;
p4 =  ROC( Close, 24);
  kst = p1 + 2 * p2 + 3 * p3 + 4 * p4;
  KST = kst;
  Plot( KST, "KST ", ParamColor("KST Color", ColorRGB(6,255,255) ), ParamStyle("KST style" ) ); 
_SECTION_END();
_SECTION_BEGIN("DispMA");
P = ParamField("kst",-1);
Type = ParamList("Type", "Simple,Exponential,Double Exponential,Tripple
Exponential,Wilders,Weighted",1);
Periods = Param("Periods", 9, 2, 100 );
Displacement = Param("Displacement", 0, -50, 50 );
SL= (HHV(H,13)+LLV(L,13))/2;
TL= (HHV(H,9)+LLV(L,9))/2;
m = Ref((SL+TL)/2,-2);
if( Type == "Simple" ) 					m = MA( P, Periods );
if( Type == "Exponential" ) 			m = EMA( P, Periods );
if( Type == "Double Exponential" ) 	m = DEMA( P, Periods );
if( Type == "Tripple Exponential" ) 	m = TEMA( P, Periods );
if( Type == "Wilders" ) 				m = Wilders( P, Periods );
if( Type == "Weighted" ) 				m = WMA( P, Periods );
Plot( m, _DEFAULT_NAME(), IIf( kst > m, ParamColor("Up Color", colorOrange ),
ParamColor("Down Color", colorOrange ) ), ParamStyle("Style"), 0, 0, Displacement );
_SECTION_END();