path: root/macros/roundn.sci

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