1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| clear all
w = 0:1:10^4;
C = 100*10^-9;
R9 = 33000;
R11 = 3300;
RVmax = 50000;
w2 = 1/(R11*C);
nCourbes = 10;
figure(1)
clf
ax(1) = axes;
figure(2)
clf
ax(2) = axes;
for i = 1:nCourbes
RV(i) = (50/nCourbes)*i*10^3;
w1 = 1./((C*R11*(R9+RV(i)))./(R9+R11+RV(i)));
H0 = (R9+R11+RV(i))./(R9+RV(i));
H = H0*(1+1i*w/w1)./(1+1i*w/w2);
p(i,1) = loglog(w, 20*log10(abs(H)), 'parent', ax(1));
p(i,2) = loglog(w, atan(w/w1)-atan(w/w2), 'parent', ax(2));
if i==1
hold(ax(1),'on');
hold(ax(2),'on');
end
end
legend(ax(1), p(:,1), num2str(RV(:)));
legend(ax(2), p(:,2), num2str(RV(:))); |
Partager