function a = body(R, L, C, f)
%Norbert Wyszkowski
%19.10.2019
%charakterystyki bodego

W = 2 * pi .* f
S = W.*i
H = L*S ./ ( R*L*C*S.^2 + L*S + R)

figure(1);
subplot(2,1,1)
semilogx(W, abs(H),'b-')
subplot(2,1,2)
semilogx(W, angle(H))