function r=roundn(x,n)
    r=(round(x*10^n))/(10^n);
endfunction