% Исследование окон FlatTop RS ws Classical
NN=1024;
for n=0:1:NN-1
w(n+1)=1.0- 1.93*cos(2*pi*n/(NN-1))+ 1.29*cos(4*pi*n/(NN-1)) -  0.388*cos(6*pi*n/(NN-1)) + 0.032*cos(8*pi*n/(NN-1)) ; 
wRS(n+1)=1.00- 1.9619033*cos(2*pi*n/(NN-1))+ 1.5250805*cos(4*pi*n/(NN-1)) -  0.6948463*cos(6*pi*n/(NN-1)) + 0.1321999*cos(8*pi*n/(NN-1)) ; 
end 
i=1;
for n=0:0.01:(NN-1)*0.01
    Signal(i) = sin(2*pi*n);
    i=i+1;
end    

SignalRS=Signal.*wRS;
SignalFT=Signal.*w;
 
 SpecRS= 20*log10(abs(fft(SignalRS)));
 plot(SpecRS(1:32768),'red');
 SpecFT= 20*log10(abs(fft(SignalFT)));
 hold on;
 plot(SpecFT(1:32768),'g.:');
 grid on;