function c=acpvar(A);	
//Coordonnées des variables dans le cercle des correlations
  mat_cor=correlation(A);
  X=reduire(A);
  VectP=vectprop(mat_cor); 	
  // les vecteurs propres 
  ValP=valprop(mat_cor); 		
  // les valeurs propres
  c = VectP*diag(sqrt(ValP));  		
endfunction;