// WDL6 trying to make it work ///////////////////

var change(int n)
{
	return scale((priceClose(0) - priceClose(n))/priceClose(0),100)/100;
}

var range(int n)
{
	return scale((HH(n) - LL(n))/priceClose(0),100)/100;
}
	

function tradeUNO()
{
	if(Init) print(TO_WINDOW,"\nR and Keras1 required"); 
	Script = "DeepLearnKeras1";
	set(RULES);
	
	var sube1=3;
	var baja1=3;
	var Threshold1 = 0.5;
	var vLong1,vShort1;
	
	ifelse((vLong1 = adviseLong(NEURAL+BALANCED,0,
	change(1),change(2),change(3),change(4),
	range(1),range(2),range(3),range(4))>Threshold1),sube1=5.0,sube1=2.0);
		
	ifelse((vShort1 = adviseLong(NEURAL+BALANCED,0,
	change(1),change(2),change(3),change(4),
	range(1),range(2),range(3),range(4))>Threshold1),baja1=5.0,baja1=2.0);

return sube1;
return baja1;
}

function tradeDOS()
{
	if(Init) print(TO_WINDOW,"\nR and Keras2 required"); 
	Script = "DeepLearnKeras2";
	set(RULES);

	var sube2=3;
	var baja2=3;
	var Threshold2 = 0.5;
	var vLong2,vShort2;
	
	ifelse((vLong2 = adviseLong(NEURAL+BALANCED,0,
	change(1),change(2),change(3),change(4),
	range(1),range(2),range(3),range(4))>Threshold2),sube2=5.0,sube2=2.0);
	
	ifelse((vShort2 = adviseShort(NEURAL+BALANCED,0,
	change(1),change(2),change(3),change(4),
		range(1),range(2),range(3),range(4))>Threshold2),baja2=5.0,baja2=2.0);

return sube2;
return baja2;
}

function run()
{
	NumCores = -2;		// use multiple cores (Zorro S only)
	StartDate = 20170101;
	EndDate= 20190101;
	BarPeriod = 1440;	// 1 hour
	LookBack = 100;

	assetList("AssetsDarwinexFMB");
	asset("EUR/USD");
	set(RULES);
	LifeTime=3;
	
	var sube1=1.8;
	var baja1=1.8;
	var sube2=1;
	var baja2=1;
	
	while(algo(loop("TRND","CNTR")))
	{
		if(Algo == "TRND") 
			tradeUNO();
		else if(Algo == "CNTR") 
			tradeDOS();
	}
	
	if(sube1>4 and sube2>4)
		enterLong();
	
	if(baja1>4 and baja2>4)
		enterShort();
	//}
	PlotWidth = 600;
	PlotHeight1 = 300;
	
	plot("sube1",sube1,NEW|LINE,BLACK);
	plot("baja1",baja1,NEW|LINE,GREY);
	plot("sube2",sube2,NEW|LINE,BLUE);
	plot("baja2",baja2,NEW|LINE,RED);
}