function Arms=rms(Ain,divr)
    x=linspace(0,2*%pi,divr)
    y=sin(x)
    Arms=Ain*sqrt(mean(y.^2))
endfunction