!goto $wims_read_parm

:def
title=Moyenne géométrique avec poids
synonyme=poids moyenne geometrique
input=data2d
!exit

:proc

pari_header=dmat=Mat([$fml2]);w=sum(x=1,$cnt,dmat[x,2]);
result=!exec pari print(prod(x=1,$cnt,dmat[x,1]^dmat[x,2])^(1/w));\
	print(w);
!distribute lines $result into result, totweight

!exit

:output

<p class="wimscenter">
Moyenne géométrique avec poids =
!htmlmath $result
</p>
Données : $cnt nombre avec poids { $fml3 }
(total des poids = $totweight).

!exit

