1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| %% Récupération des valeurs du tableau
val=xlsread('test.xls');
x=val(:,1);
y=val(:,2);
%% Initialisation des variables
N = size(x,1);
sommex = zeros(N,1);
sommey = zeros(N,1);
moyx = zeros(N,1);
moyy = zeros(N,1);
xres = [];
yres = [];
Rsave = zeros(N,1);
%% Calcul des sommes et des moyennes au rang k
for k = 1:N
sommex(k,1) = sum(x(1:k,1));
sommey(k,1) = sum(y(1:k,1));
moyx(k,1) = sommex(k,1)/k;
moyy(k,1) = sommey(k,1)/k;
end
%% Calcul de R au rang k
for k = 1:N
Rsave(k,1) = ( sum( (x(1:k,1)-moyx(k,1)).*(y(1:k,1)-moyy(k,1)) )^2) / ( sum((x(1:k,1)-moyx(k,1)).^2) * sum((y(1:k,1)-moyy(k,1)).^2) ) ;
end
%% Analyses
Rcorr = find (Rsave > 0.9);
%% Affichages
v=Rsave(Rcorr);
xres(N)=x(k);
yres(N)=y(k);
figure(1)
hold on;
plot( xres, yres,'b.') |