Subversion Repositories wimsdev

!goto $wims_read_parm

:def

title=Arithmetic mean

synonyme=average, mean

input=data1d

!exit

:proc

cnt=!itemcnt $formula

!if $cnt>0

 result=!sum x for x in $formula

 result=$[($result)/$cnt]

!else

 result=0

!endif

!exit

:output

<center>

Arithmetic mean =

!htmlmath $result

</center> <p>

Data: $cnt numbers { $formula }

<p>

The <em>arithmetic mean</em> of {<i>x</i><sub>1</sub>,

<i>x</i><sub>2</sub>, ..., <i>x<sub>n</sub></i>} is equal to

!set ins_align=middle

!instex $$$$ {1\over n}\sum_{i=1}^n x_i $$$$

 .

!exit