%FFT
Fs1=5228.92073    % Pocet zaznamu za sekundu (sampling frequency)
l1=length(sandvik_moment)   %delka vektoru
fft_sandvik_moment=fft(sandvik_moment);   %fourierova transformace
P2_sandvik_moment=abs(fft_sandvik_moment/l1); %prevedeni vysledku na absolutni hodnoty
P1_sand=P2_sandvik_moment(1:l1/2+1);
P1_sand(2:end-1)=2*P1_sand(2:end-1);

%frequency vektor
freq1=Fs1*(0:(l1/2))/l1

%Ploting
plot(sandvik_cas,sandvik_moment)
ylim([300 800])
xlim([0 0.2])
title('Průběh kroutícího momentu v čase - Sandvik')
xlabel('Čas [s]') 
ylabel('Moment [Nm]')

figure
plot(freq1,P1_sand)
ylim([0 10])
xlim([0 500])
title('Frekvenční spektrum - Sandvik')
xlabel('Frekvence [Hz]') 
ylabel('Amplituda [Nm]')