% Root Mean Square Value
function [retval] = rms1(sig)
N = 20;
for k = 1 : length(sig)/N - 1
sig_sum = sum(sig((k-1)*N+1 : k*N));
squ_sum = sum(sig((k-1)*N+1 : k*N).**2);
retval(k) = sqrt(squ_sum/N);
end
endfunction
% Root Mean Square Value of AC
function [retval] = rms2(sig)
N = 20;
for k = 1 : length(sig)/N - 1
sig_sum = sum(sig((k-1)*N+1 : k*N));
squ_sum = sum((sig((k-1)*N+1 : k*N) .- sig_sum/N).**2);
retval(k) = sqrt(squ_sum/N);
end
endfunction
% Root Mean Square Value of AC
function [retval] = rms3(sig)
N = 20;
for k = 1 : length(sig)/N - 1
sig_sum = sum(sig((k-1)*N+1 : k*N));
squ_sum = sum(sig((k-1)*N+1 : k*N).**2);
retval(k) = sqrt((squ_s