www.gusucode.com > 声音的处理有：LPC，FFT，共振峰，频谱源码程序 > siganlandsystemusingMatlab/SSUM/library/rms.m

    function rms_value = rms(signal)

    sigsum = 0;
	N = length(signal);
    for i=1:N
		sigsum = sigsum + signal(i)^2;
    end

	rms_value = (1/N)*sqrt(sigsum);