## Author: Laurent <laurent@pop-os>
## Created: 2020-11-02

function [r, a, b] = calcul_parametres (X, Y)

  moyX = mean(X)
  moyY = mean(Y)
  sigmaX = sqrt( (X - moyX).'*(X - moyX) / size(X)(1) )
  sigmaY = sqrt( (Y - moyY).'*(Y - moyY) / size(Y)(1) )
  covariance = (X - moyX).'*(Y - moyY) / size(X)(1)
  
  r = covariance/(sigmaX*sigmaY)
  a = covariance/(sigmaX^2)
  b = moyY - moyX*a

endfunction