function [a]=filter_even(x,yp,yn)

a=x+floor((yp+yn+2)*(1/4));
