// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Double SMI"); 
SetChartOptions(3,chartShowDates);
SetChartOptions(0,chartShowArrows);
SetChartBkColor(ParamColor("Outer Panel",colorPaleBlue)); 
SetChartBkGradientFill(ParamColor("Upper Chart",1),ParamColor("Lower Chart",1)); 

LookBackD 	= Optimize("LookBackD",Param("LookbackD", 10, 1, 100 ),1,30,1);
Smooth1D  	= Optimize("Smooth1D",Param("Smooth1D", 3, 1, 100 ),1,30,1);
Smooth2D  	= Param("Smooth2D", 5, 1, 20 );
TriggerD  	= Param("SignalD", 3, 1, 10);
PP 		= ParamField("Price field",-1);
SMILevel 	= Param("Level", 60, 10, 60, 10);

HHD = HHV( H, LookBackD );
LLD = LLV( L, LookBackD );
HHW = HHV( H, 5*LookBackD );
LLW = LLV( L, 5*LookBackD );

StoMomD = 100 * EMA( EMA( PP - 0.5 * ( HHD + LLD ), Smooth1D ), Smooth2D ) / 
( 0.5 * EMA( EMA( HHD - LLD, Smooth1D ), Smooth2D ) );
StoMomW = 100 * EMA( EMA( PP - 0.5 * (HHW + LLW), 5*Smooth1D ), Smooth2D ) / 
( 0.5 * EMA( EMA( HHW - LLW, 5*Smooth1D ), Smooth2D ) );


Plot (StoMomD,"",IIf(StoMomD> Ref(StoMomD,-1),colorBrightGreen,colorRed), styleThick);
Plot (StoMomW,"",IIf(StoMomW> Ref(StoMomW,-1),colorLightBlue,colorDarkBlue), styleThick);
Plot(0,"",colorOrange, styleLine);
Plot( SMILevel,"",colorBlack,styleDashed);
Plot(-SMILevel,"",colorBlack,styleDashed);
Plot( 80,"",colorOrange,styleLine);
Plot(-80,"",colorOrange,styleLine);