!goto $wims_read_parm

:def
title=Moyenne géométrique
input=data1d
!exit

:proc

cnt=!itemcnt $formula
!if $cnt>0
 result=!product x for x in $formula
 result=$[($result)^(1/$cnt)]
!else
 result=1
!endif

!exit

:output

<div class="wimscenter">
Moyenne géométrique =
!htmlmath $result
</div>
Données : $cnt nombres { $formula }
<p>
<b>Rappel.</b>
La <em>moyenne géométrique</em> de 
\(\{x_1, x_2, ..., x_n\}\) 
est égale à
!set ins_align=middle
!insmath \left(\prod_{i=1}^n x_i\right)^{1/n}
.
</p>
!exit

