{ Type agrege de stockage d'un sommet 3D       }

structure sommet3D
  reel x <- 0.0
  reel y <- 0.0
  reel z <- 0.0
fin structure

{ Fonction de calcul et retour du barycentre  }
{ d'un nuage de points stocké dans un tableau }
{ de sommet3D                                 }
{ tp : Le tableau de sommet3D                 }
  
sommet3D fonction barycentre(tp)
  Entrées
    Tableau [] de sommet3D tp
  Locales
   sommet3D p
   entier i
  pour i de 0 à longueur(tp)-1 faire
    p.x <- p.x+tp[i].x
    p.y <- p.y+tp[i].y
    p.z <- p.z+tp[i].z
  fait
  p.x <- p.x/N
  p.y <- p.y/N
  p.z <- p.z/N
  retourner p
fin fonction