%Opamp characteristics
%  kja 070406
aminit;
w=logspace(-1,9,1000);
s=i*w;
k=1e7;
ak=1e8;                    %Hz
R2=1e6;
for R1=[1 1e2 1e4 1e6],
R2=1e6;
a=ak/k;
G=R2*ak./(R1*ak+(R1+R2).*(s+a));
subplot(321)
loglog(w,abs(G),'Linewidth',AM_data_linewidth);
hold on;
end
set(gca,'Xtick',[1 1e2 1e4 1e6 1e8]);
set(gca,'Ytick',[1 1e2 1e4 1e6 1e8]);
xlabel('w');ylabel('gain');
line([0.1 1e9],[1 1]);
amaxis([0.1 1e9 0.1 1e7]);

amprint('opamp-wfb.eps');
