if(x>20){
	y[0]:=exp(-(x-20)/20);
	y[1]:=-y[0]/20;
}else{
	y[0]:=1.;
	y[1]:=0.;
}