n:=1024 (* Количество отсчётов *)
dx:=1/2560 (* шаг дискретизации в сигнале *)
wave:=Table[N[5*Sin[50*(t*dx+7)*2*π]+3*Sin[20*(t*dx+0)*2*π]+RandomReal[{-2,2}]],{t,0,n-1}]

rms1:=(Sqrt[((∑_(i=1)^n)((wave[[i]])^2))/n])

rdft[arg_]:=Abs[Fourier[arg,FourierParameters->{1,-1}]]/(n/2)
spectrum:=rdft[wave]
n10 := Ceiling[10.0*n*dx]+1 (* отсчёт 10 Гц *)
n1000 := Floor[1000.0*n*dx]+1 (* отсчёт 1000 Гц *)
rms2 := (Sqrt[((∑_(i=n10)^n1000)((spectrum[[i]])^2))/2])

StringForm["СКЗ Сигнал = ``",rms1]
StringForm["СКЗ Спектр = ``",rms2]
ListLinePlot[{wave,{rms1,rms1}},  DataRange->{0,dx*(n-1)},PlotLabels->{"Сигнал","СКЗ"}]
ListLinePlot[{Part[spectrum,1;;n1000],{rms2,rms2}}, DataRange->{0,1000},PlotRange->{0,6},PlotLabels->{"Спектр","СКЗ"}]