exn823.m

MATLAB及在电子信息课程中的应用.感觉很有用,本来也不花钱,有想用的来拿吧

%《MATLAB及其在理工课程中的应用指南》(十一五规划版)第八章例8－2－3程序
% 运算放大器有限增益和频率响应对电路闭环特性的影响
% 西安电子科技大学出版社出版  陈怀琛编著 2007年7月
%
Z2=[20,100,500]*1000; Z1=2000;	 % 设定元件参数
A0=input('A0= (书上取2e6) ');
w1=input('w1= (书上先取500，后取50) ');
w2=input('w2= (书上取2e6) ');
w3=input('w3= (书上取5e7) ');
w=logspace(2,8);		 % 设定频率数组
b=A0*w1*w2*w3; a=poly([-w1,-w2,-w3]);	 % 列出运算放大器分子分母系数向量
A=polyval(b,j*w)./polyval(a,j*w);	 % 求放大器开环频率响应
for i=1:3			 % 循环计算三种Z2的闭环响应
   Z12(i)=Z2(i)/Z1;
   H(i,:)=-Z12(i)./(1+(1+Z12(i))./A);	% 放大器闭环响应
   % Hdb=20*log10(abs(H));		% 化为分贝
   semilogx(w,abs(H(i,:)),'linewidth',2),hold on	% 画出频率-增益曲线
end
v=axis;axis(v);				% 保持w坐标,
semilogx(w,abs(A),'r--','linewidth',2)			% 画出开环频率-增益响应
grid,hold off
set(gcf,'color','w')