Averages/Root mean square: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 425: | Line 425: | ||
<pre>6.20484</pre> |
<pre>6.20484</pre> |
||
=={{header|PostScript}}== |
|||
<lang> |
|||
/findrms{ |
|||
/x exch def |
|||
/sum 0 def |
|||
/i 0 def |
|||
x length 0 eq{} |
|||
{ |
|||
x length{ |
|||
/sum x i get 2 exp sum add def |
|||
/i i 1 add def |
|||
}repeat |
|||
/sum sum x length div sqrt def |
|||
}ifelse |
|||
sum == |
|||
}def |
|||
[1 2 3 4 5 6 7 8 9 10] findrms |
|||
</lang> |
|||
Output: |
|||
<lang> |
|||
6.20483685 |
|||
</lang> |
|||
=={{header|PureBasic}}== |
=={{header|PureBasic}}== |
||
<lang PureBasic>NewList MyList() ; To hold a unknown amount of numbers to calculate |
<lang PureBasic>NewList MyList() ; To hold a unknown amount of numbers to calculate |