Optim_Speed_of_react.c

// Filter test ///////////////////

function run()
{
	BarPeriod = 60;
	MaxBars = 200;
	ColorUp = ColorDn = 0; // don't plot a price curve
	LookBack = 150;
	set(PLOTNOW);
	// asset("SPX500"); // dummy asset
	
	// vars Impulse = series(price());
	// int Period = 50;
	// plot("Impulse",Impulse,0,RED);
	// plot("SMA",SMA(Impulse,Period),0,BLACK);
	// plot("EMA",EMA(Impulse,Period),0,GREY);
	// plot("ALMA",ALMA(Impulse,Period),0,SILVER);
	// plot("Laguerre",Laguerre(Impulse,10.0/Period),0,MAROON);
	// plot("LinearReg",LinearReg(Impulse,Period),0,OLIVE);
	// plot("Hull MA",HMA(Impulse,Period),0,DARKGREEN);
	// plot("Zero-Lag MA",ZMA(Impulse,Period),0,ORANGE);
	// plot("Decycle",Decycle(Impulse,Period),0,MAGENTA);
	// plot("LowPass",LowPass(Impulse,Period),0,YELLOW);
	// plot("Smooth",Smooth(Impulse,Period),0,PURPLE);


	vars Chirp = series(genSine(3,60));
	int Color = BLACK;
	plot("Chirp",Chirp[0],0,Color);
	// plot("LeadingCycle",sin(DominantPhase(Chirp,30)+PI/4),NEW,Color);
	// plot("DominantPhase",DominantPhase(Chirp,30),NEW,Color);
	// plot("DominantPeriod",DominantPeriod(Chirp,30),NEW,Color);
	// plot("BandPass",BandPass(Chirp,30,0.1),NEW,Color);
	// plot("HighPass1",HighPass1(Chirp,30),NEW,Color);
	// plot("HighPass2",HighPass2(Chirp,30),NEW,Color);
	// plot("LowPass",LowPass(Chirp,40),NEW,Color);
	// plot("Laguerre",Laguerre(Chirp,0.3),NEW,Color);
	// plot("Butterworth",Butterworth(Chirp,40),NEW,Color);
	plot("Roof",Roof(Chirp,10,50),NEW,Color);
}