string GetDT240(){
    int h=hour()-hour()%4;
	 printf("\n hour: %d  now: %d",hour(),h);
    return strf("%04d-%02d-%02d %02d:00", year(),month(),day(),h);
}


// --------------------------- Main-----------------------------
function main() {
    
	printf("\n %s",GetDT240()); 
}

function run() {
        BarPeriod=1;    
	LookBack=0;
	printf("\n %s",GetDT240()); 
	quit("");
}

string GetDT240(){
    int h=hour(NOW)-hour(NOW)%4;
	 printf("\n hour: %d  now: %d",hour(NOW),h);
    return strf("%04d-%02d-%02d %02d:00", year(NOW),month(NOW),day(NOW),h);
}

Test period         2020-04-01..2021-01-29 (19500 bars), detrended <-- OK
Year Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec Total
2020               9   9   7  -1   8  18  -1   8  12   +93

[24003: Thu 21-01-28 15:30] 2306 0 274/135  (1.21367)
[24004: Thu 21-01-28 15:45] 2306 0 274/135  (1.21331)
[24005: Thu 21-01-28 16:00] 2306 0 274/135  (1.21223)
[24006: Thu 21-01-28 16:15] 2306 0 274/135  (1.21239)
[24007: Thu 21-01-28 16:30] 2306 0 274/135  (1.21267)
(EUR/USD:total:s) Short 5@1.21227 Entry stop
(EUR/USD:total:s) Entry stop 1.21227 hit by 1.21202 at 16:30:00
(EUR/USD:total:S) Short 5@1.21227 Entry stop
(EUR/USD:total:s) Entry 1.2118 removed (exit)

[24008: Thu 21-01-28 16:45] 2306 0 274/135  (1.21204)
(EUR/USD:total:S) Entry stop 1.21227 hit by 1.21192 at 16:45:00
[EUR/USD:total:S00941] Short 5@1.21214 Risk 42 px at 16:45:00

 zorro -train Workshop5  -a gbp/jpy -c Real54AU
 zorro -train Workshop5  -a aud/jpy -c Real54AU
 zorro -train Workshop5  -a eur/cad -c Real54AU

// Workshop 5: Counter trend trading, optimized ////////////////

function run()
{
	set(PARAMETERS);  // generate and use optimized parameters
	BarPeriod = 240;	// 4 hour bars
	LookBack = 500;
	StartDate = 2005;
	EndDate = 2017; 	// fixed simulation period
	NumWFOCycles = 10; // activate WFO
	NumCores = -2;	// multicore training
	
	//asset("EUR/USD");
	
	if(ReTrain) {
		printf("\nRetraining....");
		UpdateDays = -1;	// update price data from the server 
		SelectWFO = -1;	// select the last cycle for re-optimization
	}
		
// calculate the buy/sell signal
	vars Price = series(price());
	vars Filtered = series(BandPass(Price,optimize(30,20,40),0.5));
	vars Signal = series(FisherN(Filtered,500));
	var Threshold = optimize(1,0.5,1.5,0.1);

// buy and sell
	Stop = optimize(4,2,10) * ATR(100);
	Trail = 4*ATR(100);

	if(crossUnder(Signal,-Threshold))
		enterLong(); 
	else if(crossOver(Signal,Threshold))
		enterShort();

// plot signals and thresholds
	plot("Filtered",Filtered,NEW,BLUE);
	plot("Signal",Signal,NEW,RED);
	plot("Threshold1",1,0,BLACK);
	plot("Threshold2",-1,0,BLACK);
	set(LOGFILE,PLOTNOW); 
} 

Zorro -train Workshop5.c -a eur/usd

Zorro -train Workshop5.c -a eur/usd -c accountname

function tick()
{
	if(!is(LOOKBACK))
		printf(".");
}
function run() 
{
	set(TICKS);
	BarPeriod = 1;
	TickTime = -10;
	StartDate = NOW;
	
}