clear all;
clc

R = 1e4; C = 27*1e-9; C1 = 68 * 1e-9; R2 = 9*1e3; R1 = 1e3;

    H =@(w) 10/((R*C)^3*(i*w)^3+5*(R*C)^2*(i*w)^2+6*R*C*i*w+1);
  w = 2*pi*[200 300 500 800 1200 2000];
    for k=1:length(w)
    A(k) = abs(H(w(k)));
    end

    for k=1:length(w)
    fi(k) = angle(H(w(k)));
    end



figure(1);plot(w/(2*pi),A,'-o');
for k=1:length(w)
    text(w(k)/(2*pi)+20,A(k)+0.05, num2str(A(k),3));
    end
title('Zadanie 3'); xlabel('frequency'); ylabel('A(f)');
figure(2);plot(w/(2*pi),fi,'-o');
    for k=1:length(w)
    text(w(k)/(2*pi)+20,fi(k)+0.05, [num2str(fi(k)/pi,3) '\pi']);
    end
title('Zadanie 3'); xlabel('frequency'); ylabel('A(f)');