% EN123 script for 1-op amp LP HP filter 10.19.05
% OpAmpFilt05_123 close tic

R1 = 2000
R2 = 0.5e4
C1 = 3.3e-7
C2 = 1e-6

omeg = 10:10:30000;

numer = -j.*omeg*R2*C1;
denom = (1+j.*omeg*R1*C1).*(1+j.*omeg*R2*C2);

Vout = abs(numer./denom);
semilogx(omeg, Vout, 'r')
Vout2 = 3.28*abs(numer.*numer./(denom.*denom));
hold on
semilogx(omeg, Vout2, 'b')
et = toc