%
% diffamp
%
r = 3.6;
source([-1-r -2.5],'V_2','h');
source([-1-r -.5],'V_1','h'); 
plot([2.6 3.6],[-.5 -.5],'k','linewidth',1.5)
resist([-1 -2.5],'h','R_1','y_1')
resist([-1 -.5],'h','R_3','y_3')
resist([-1 1.5],'h','R_4','y_4')
plot([-4.6 -1],[1.5 1.5],'k','linewidth',1.5)
plot([2.6 2.6],[1.5 -.5],'k','linewidth',1.5)
plot([2.6 3.6],[-2.5 -2.5],'k','linewidth',1.5)
plot([-4.6 -4.6],[1.5 -4],'k','linewidth',1.5)
%plot([-5.5 -4.5],[-0.5 -0.5],'k','linewidth',1.5)
ground([-4.6 -4],'')
opamp([r .5],4,0)
resist([3.5 -5],'h','R_2','y_2')
plot([2.5 2.5],[-2.5 -5],'k','linewidth',1.5)
plot([2.5 4],[-5 -5],'k','linewidth',1.5)
plot([6.9 8.5],[-5 -5],'k','linewidth',1.5)
plot([8.5 8.5],[-5 -1.5],'k','linewidth',1.5)
plot([7.5 8.5],[-1.5 -1.5],'k','linewidth',1.5)
text(2.4,-2,'x_1')%,'fontsize',20)
text(2.4,-1,'x_1')
text(7.8,-2,'x_2')%,'fontsize',20)
set(findall(gcf,'type','text'),'fontSize',14)%,'fontWeight','bold')
hold off
axis off