// Laboratorio de trading de Duk2 de estrategiastrading.com//
//Indicador Time-Out//

//parametros//
Periodo = Param("LargoP",40,10,1000,1);
Periodocorto = Param("CortoP",10,10,100,1);

// Volatilidad Histórica
HV = (StDev(log(C/Ref(C,-1)),Periodo) * sqrt(252));

// Indicador
LOGROCC= log (C / Ref(C, -Periodocorto));//rentabilidades logarítmicas
LOGROCL= log (C / Ref(C, -Periodo));//rentabilidades logarítmicas
DI_Tuning= ((LOGROCC * LOGROCL) / HV)+1;//de momento me quedo con esta version

//re-escalado//
inputmin= LLV(DI_Tuning, Periodo);
inputmax = HHV(DI_Tuning, Periodo);

function rescale( p,inputmin, inputmax, outputmin, outputmax)
{
	outputrange = outputmax - outputmin;
	inputrange = (inputmax- inputmin)+0.0001;//evitar division x 0
	x = (p - inputmin)* (outputrange / inputrange);
	return x;
}

TimeOut= rescale( DI_Tuning,inputmin, inputmax,0,100);
TimeOutAlert= TimeOut > 90;

//*********//Graficos//*************************//

//Plot( DI_Tuning, "DI_Tuning",colorBlack);
//Plot(80,"",colorLightGrey,styleDashed|styleOwnScale, 0,100);
//Plot(TimeOut, "Time-Out",colorBlue,styleLine|styleThick|styleOwnScale, 0,100);
Plot(TimeOutAlert, "Alert",colorRed,styleArea|styleNoTitle);