funçao filtro passabaixa

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

% FT de H(s)
R=1e3;
C=5e-7;
Wmax=50000;
Wc=1/(R*C);
H=[];
for w=0:1:Wmax
 s=1i*w;
 h1= Wc/(s+Wc);
 H= [H,abs(h1)]; % calcula o ABS da função e armazena
end
WW=[0:1:Wmax];
figure
plot(WW,H); %% para plotar a curva analítica
xlabel('Frequencia (rad/s)');
ylabel('Ganho H(jw)');
Medido=[1.08	1.04	1	0.92	0.84	0.8	0.76	0.72	0.64	0.6	0.56	0.48	0.44	0.4	0.36	0.32	0.28
]; % eixo dos granhos experimentais medidos
X=[50 1000	4000 6000 8000 9000	10600	12000	15000 18000 20000 25000 30000 35000 40000 45000 50000]; % eixo dasfreq experimentais
hold on; % comando para plotar dois traços dentro de um mesmo gráfico
plot(X,Medido,'o'); %% para plotar os pontos experimentais