Gerard Mansoif
Inscrit le: 23 Nov 2006 Messages: 1
|
Posté le: 23 Nov 2006 14:37 Sujet du message: Procédure sur les barycentres |
|
|
Salut, mon prof me demande d'écrire une procédure sur les barycentres: on donne une liste de points pondérés du plan. On doit obtenir en sortie les coordonnées du barycentre de ces points.
Là, je bloque: je sais déclarer des points, mais après?
Merci pour vos futures réponses. |
|
prof_simplet
Inscrit le: 12 Sep 2006 Messages: 86
|
Posté le: 23 Nov 2006 14:40 Sujet du message: |
|
|
Bonjour, j'ai été rapide car j'avais la proc dans mes archives:
Code: |
> restart:
> with(geometry):
> bary:=proc(L::listlist)
> local k,x,y,s:
> s:=sum(L[k][2],k=1..nops(L)):
> if s<>0 then
> x:=0: y:=0:
> for k to nops(L) do
> x:=x+L[k][2]*HorizontalCoord(L[k][1]): y:=y+L[k][2]*VerticalCoord(L[k][1])
> od;
> point(G,evalf(x/s),evalf(y/s))
> else error "La somme des coefficients doit etre non nulle" end if
> end proc:
> point(A,1,-1):point(B,2,0):point(C,-1,0):point(D,-4,5):
> G:=bary([[A,3],[B,1],[C,-2],[D,0.5]]):
> coordinates(G);
[2.000000000, -.2000000000]
|
J'adore ton pseudo.
A+ |
|