clear

%%Frequenzgänge des AD620
%%V=1
f_mess=1000*[1   10   100  150  200  250  300  350  400  450  500  550  600   650   700  900   1000 1500];
U_a1=       [1.1 1.12 1.12 1.18 1.25 0.64 0.69 0.75 0.85 0.88 0.54 0.52 0.496 0.444 0.44 0.292 0.26 0.12];
U_s1=       [1   1    1    1    1    0.5  0.5  0.5  0.5  0.5  0.3  0.3  0.3  0.3   0.3   0.3   0.3  0.3 ];
V1=(U_a1./U_s1);
loglog(f_mess,V1,'k-', 'linewidth',2);
grid on;
hold on;
ylabel('V=Ua,ss/Us,ss');
xlabel('Frequenz [Hz]');
%V=10
U_a10=[3.1 3.12 3.26 1.8  1.94 1.44 0.692 0.72 0.728 0.696 0.632 0.556 0.492 0.448 0.338 0.256 0.216 0.096];
U_s10=[0.3 0.3  0.3  0.15 0.15 0.1  0.05  0.05 0.05  0.05  0.05  0.05  0.05  0.05  0.05  0.05  0.05  0.05 ];
V10=(U_a10./U_s10);
loglog(f_mess,V10,'r-', 'linewidth',2);

%%Gleichtaktunterdrückung (U_g)
figure(2);
grid on;
hold on;
U_g = [-10 -9 -8 -7 -6 -5 -4 -3 -2 -1  1  2  3  4  5  6  7  8  9  10];
U_ag= 10^-6*[-480 -400 -390 -340 -280 -250 -200 -120 -110 -50 50 110 130 170 190 200 300 350 370 400];
G_g = 20.*log10(U_g./U_ag);
plot(U_g,G_g,'k-','linewidth',2);
axis([-10 10 0 100]);
ylabel('G in dB');
xlabel('U_g in V');

%%Gleichtaktunterdrückung (f)
figure (3);
grid on;
hold on;
U_gw=0.353;
f_mess2=[100 500 1000 1500 3000 5000 8000 10000 15000 20000 25000 30000 40000 50000 60000 70000 80000 90000 100000];
U_aw=10^-3*[0.2 0.25 0.3 0.36 0.62 0.97 1.51 1.85 2.74 3.8 4.7 5.5 7.1 9.1 10.5 12.7 14 16 18];
G_w=20*log10(U_gw./U_aw);
semilogx(f_mess2,G_w,'k-', 'linewidth',2);
ylabel('G in dB');
xlabel('Frequenz in Hz');