_SECTION_BEGIN("Stochastic Slow");
tf = Param("TF", 5, 1, 10000, 1) ;
periods = Param( "Periods", 8, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
Dsmooth = Param( "%D avg", 4, 1, 200, 1 );
expandmode = expandFirst ;
tfs = tf * in1Minute ;
TimeFrameSet(tfs) ;
stck = StochK( periods , Ksmooth) ;
stcd = StochD( periods , Ksmooth, DSmooth ) ;
TimeFrameRestore() ;
stcke = TimeFrameExpand(stck, tfs, expandmode) ;
stcde = TimeFrameExpand(stcd, tfs, expandmode) ;
Plot( stcke, "%K"+_PARAM_VALUES(), ParamColor( "%K color", colorCycle ), ParamStyle("%K style") );
Plot( stcde, "%D"+_PARAM_VALUES(), ParamColor( "%D color", colorCycle ), ParamStyle("%D style",styleDashed) );
_SECTION_END();