%% Filtr tłumiący do 170Hz
Wpc=170/(0.5*fs);
Wsc=140/(0.5*fs);
Rpc=3;
Rsc=40;
[n1,Wn1] = cheb1ord(Wpc,Wsc,Rpc,Rsc)
[b1,a1] = cheby1(n1,Rpc,Wn1,'high')
Gc=tf(b1,a1,1/fs)
options = bodeoptions;
options.FreqUnits = 'Hz';
options.FreqScale = 'linear'
figure(3)
bode(Gc, options)
xlim([0 4700])