function reslt = mod(x,y)
reslt=x-floor(x./y).*y;