function run()
{

Script="Zorro1/Strategies/SMA20.c"
//Someway to receive the var or the series generated by Zorro1

Script="Zorro2/Strategies/SMA100.c"
//Someway to receive the var or the series generated by Zorro2

if (crossOver(Zorro1SMA(20), Zorro2SMA(100)) 

enterLong();

/ Deep Learning Test ///////////////////////////////////////////


///////////////////////////////////////////////////////////////////////
#include <r.h>

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 run()
{
	NumCores = -1;
	Script = "DL3kb";
	Script = "DL3kc";
	
	StartDate = 20190301;
	EndDate = 20200501;
	BarPeriod = 60;	// 1 hour
	LookBack = 100;

	//WFOPeriod = 252*24; // 1 year
	//DataSplit = 90;

	assetList("AssetsFix");
	asset("EUR/USD");
	set(RULES);
	Spread = RollLong = RollShort = Commission = Slippage = 0;
	LifeTime = 3 ; 
	if(Train) Hedge = 2;

	
			////// MIS SEÑALES ///

	var Signals[9];  // hasta 15 sin problema
	Signal[0]=change(1);
	Signal[1]=change(2);
	Signal[2]=change(3);
	Signal[4]=change(4);
	Signal[5]=range(1);
	Signal[6]=range(2);
	Signal[7]=range(3);
	Signal[8]=range(4);
	
	
	var Threshold = 0.9;
	var Threshold1 = 0.1;
	var vLongb,vShortb,vLongc,vShortc;
	
		
	// aqui empiezo a hacer loop
	while(algo(loop("DN1","DN2"))){
	set(LOGFILE|PLOTNOW);
	if(Algo=="DN1"){
		if(Init) print(TO_WINDOW,"\nR DL1 and Deepnet required"); 
	Script = "DL3b";
	
	var vLongb = adviseLong(NEURAL+BALANCED,0,Signals,9);
	var vShortb = adviseShort(NEURAL+BALANCED,0,Signals,9);

	}

	if(Algo=="DN2"){
		if(Init) print(TO_WINDOW,"\nR DL2 and Deepnet required"); 
	Script = "DL3c";
	var vLongc = adviseLong(NEURAL+BALANCED,0,Signals,9);
	var vShortc = adviseShort(NEURAL+BALANCED,0,Signals,9);
	}
	
///////////////////////////////////////////////////////////	
// logic   //////////////////////////////////////////

if(vLongb> Threshold
and vShortb< Threshold1
and vLongc> Threshold
and vShortc < Threshold1
)	
		enterLong();

	if(vShortb> Threshold
and vLongb < Threshold1
and vShortc> Threshold
and vLongc < Threshold1
)	
	enterShort();
	
// plots  /////////////////////

	plot("Longb",vLongb,NEW|LINE,BLACK);
	plot("Longc",vLongc,NEW|LINE,BLUE);

	plot("Shortb",vShortb,NEW|LINE,GREY);
	plot("Shortc",vShortc,NEW|LINE,MAROON);

	}
}

 if(vLongb>threshold and vLongc>threshold) 
enterLong();

// Deep Learning Test ///////////////////////////////////////////

//#define DO_SIGNALS  // generate sample set in Train mode
//#define DEEPNET
//#define H2O 
//#define MXNET
#define KERAS

///////////////////////////////////////////////////////////////////////
#include <r.h>

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 run()
{
	NumCores = -1;
	StartDate = 20170101;
	EndDate= 20190101;
	BarPeriod = 1440;	// 1 hour
	LookBack = 100;

	//WFOPeriod = 252*24; // 1 year
	//DataSplit = 90;

	assetList("AssetsDarwinexFMB");
	asset("EUR/USD");
	set(RULES);
	Spread = RollLong = RollShort = Commission = Slippage = 0;
	LifeTime = 3;
	if(Train) Hedge = 2;
	
	var Threshold = 0.5;
	var vLong,vShort,vLong1,vShort1;
///////////////////////////////////////////////////////////	

	SelectWFO = -1; // use the last WFO cycle for calibrating the neural net

	set(LOGFILE|PLOTNOW);
	if(Init) print(TO_WINDOW,"\nR1 and Keras required"); 

	if (Algo = "DeepLearnKeras1"){
	Script = "DeepLearnKeras1";
	vLong = adviseLong(NEURAL+BALANCED,0,
	change(1),change(2),change(3),change(4),
		range(1),range(2),range(3),range(4));
		
		vShort = adviseShort(NEURAL+BALANCED,0,
	change(1),change(2),change(3),change(4),
		range(1),range(2),range(3),range(4));
	}
		if(Init) print(TO_WINDOW,"\nR and Keras required"); 
	//Script = "DeepLearnKeras1";
	
	if (Algo = "DeepLearnKeras2"){
	
	Script = "DeepLearnKeras2";
		
		vLong1 = adviseLong(NEURAL+BALANCED,0,
	change(1),change(2),change(3),change(4),
		range(1),range(2),range(3),range(4));
		
		vShort1 = adviseShort(NEURAL+BALANCED,0,
	change(1),change(2),change(3),change(4),
		range(1),range(2),range(3),range(4));
	}


		if (vLong > Threshold
		and vLong1 > Threshold )	
		enterLong();

	if(vShort  > Threshold
	and vShort1  > Threshold)
		enterShort();

	plot("Long",vLong,NEW|LINE,BLACK);
	plot("Short",vShort,NEW|LINE,GREY);
		plot("Long1",vLong1,NEW|LINE,BLUE);
	plot("Short1",vShort1,NEW|LINE,RED);
}