function tradeCorrelationHTF()
{
        // PHANTOM set on always before calling this function and turned off after
	TimeFrame = frameSync(4);   // for 60 minute timeframe
        // Trade logic
        enterLong();
}

function tradeCorrelation()
{
	TimeFrame = 1;
        // Trade logic
	if(LotsPhantom > 0)
		enterLong();
}

function run()
{
	set(PARAMETERS+FACTORS+LOGFILE+PLOTNOW);
	BarPeriod = 15;
	while(asset(loop("EUR/USD","USD/JPY")))
	{
		while(algo(loop("CO","TC")))
		{
			if(Algo = "TC")
				tradeCorrelation();
			else if(Algo = "CO"){
                                // TrainMode PHANTOM Exclude phantom trades. Otherwise phantom trades are treated as normal trades in the training process. 
                                // Guessing that I should not set this - I should not exclude phantom trades from training because they 
				// setf(TrainMode,PHANTOM);

                                // TradeMode TR_PHANTOM Enter trades in phantom mode. The trades are simulated and not sent to the broker API. 
				setf(TradeMode,TR_PHANTOM);

				tradeCorrelationHTF();

                                // Turn Phantom off for lower timeframes to actually trade
				resf(TrainMode,PHANTOM);
				resf(TradeMode,TR_PHANTOM);
		}
	}
}

function tradeCorrelationLTF(int posvar)
{
	// posvar is position run or HTF 
	// run loop calls with 0 for TRAINMODE
	// HTF calls with 0, 1, -1 for TRADEMODE
	
	// Always trade LowerTimeFrame(LTF) so reset Phantom to off
	resf(TradeMode,TR_PHANTOM);
	
	// Algo is set/called by loop in TRAINMODE but for TRADEMODE
	// this LTF function is called by HTF so algo is not set so
	// setting it here for not TRAINMODE
	if(!(is(TRAINMODE)))
		algo("COLTF");
		
	TimeFrame = 1;
	
	// Same Trade logic as HTF
	
	// Entry Condition posvar >= 0 long or posvar <=0 for short
	if(posvar >= 0){
		if(longcondition){
				enterLong();
		}
	}
	
	if(posvar <= 0){
		if(shortcondition){
				enterShort();
		}
	}
}

function tradeCorrelationHTF()
{
	TimeFrame = frameSync(4);   // for 60 minute timeframe
	
	// Same Trade logic as LTF
	
	// Turn on Phantom for HTF TRADEMODE
	// This is optional - may help for day-trading
	// in the HTF direction -- comment out if 
	// you want to trade both HTF and LTF timeframes
	
	setf(TradeMode,TR_PHANTOM);

	// Entry Logic
	// enterLong(); 
	// or
	// enterShort();
	
	// Both timeframes should be trained and have a par file written during trainmode
	// They are trained in the same run loop but when not being trained
	// Then the HTF calls the LTF trading function with the current HTF regime 1:L or -1:S
	// 0 If no HTF position
	if(!is(TRAINMODE)){
		if(TradeIsLong)
			tradeCorrelationLTF(1);
		else if(TradeIsShort)
			tradeCorrelationLTF(-1);	
		else tradeCorrelationLTF(0);	
	}	
}

function run()
{
	set(PARAMETERS+FACTORS+LOGFILE+PLOTNOW);
	BarPeriod = 15;
	while(asset(loop("EUR/USD","USD/JPY")))
	{
		while(algo(loop("COHTF","COLTF")))
		{
			if(Algo == "COHTF"){
				tradeCorrelationHTF();
			}
			else if(Algo == "COLTF"){
				if(is(TRAINMODE))
					tradeCorrelationLTF(0);	// 0 = no trade position for TRAINMODE
			}
		}
	}
}