%% TP Instrumentation 6
%% 2007-2008
%% D-5 Mesure des gains
%% http://jonaphy.free.fr/TP_INSTRUMENTATION/
%
%
clear all;
close all;
%
% Import des données du fichier
% En volts à gauche E_1 et S_exp à droite
[E_1, S_exp]=textread('Donnees_D5.txt', '%u %u');
%
% Détermination des coefficients de la droite S_exp=aE_1+b => y=ax+b
coef=polyfit(E_1,S_exp,1);
a=coef(1);b=coef(2);
%
% Calcul de la courbe moyenne
x=min(E_1):(max(E_1)-min(E_1))/100:max(E_1);
y=a*x+b;
mess=['Courbe y = ',num2str(a),'x + ',num2str(b)];
%
% Tracés des points expérimentaux et de la courbe
plot(E_1,S_exp,'*b')
hold on
plot(x,y,'-b')
legend('Points expérimentaux',mess,4)
xlabel('E_1 en volts')
ylabel('S_{exp} en volts')
%
%