Averages/Pythagorean means: Difference between revisions
m
→{{header|RPL}}: highlighted syntax, simplified harmonic mean code
m (→{{header|RPL}}: highlighted syntax, simplified harmonic mean code) |
|||
Line 3,243:
=={{header|RPL}}==
These words can be used either on vectors or lists.
{{works with|HP|28}}
≪ → array op
≪ array 1 GET 2 array SIZE
'''IF''' DUP2 > '''THEN''' DROP2 '''ELSE FOR''' j array GET op EVAL '''NEXT END'''
≫ ≫ '<span style="color:blue">REDUCE</span>' STO
≪ DUP ≪ + ≫ <span style="color:blue">REDUCE</span> SWAP SIZE /
≫ '<span style="color:blue">AMEAN</span>' STO
≪ DUP ≪ * ≫ <span style="color:blue">REDUCE</span> SWAP SIZE INV ^
≫ '<span style="color:blue">GMEAN</span>' STO
≪
≫ '<span style="color:blue">HMEAN</span>' STO
{ 1 2 3 4 5 6 7 8 9 0 } <span style="color:blue">AMEAN</span>
{ 1 2 3 4 5 6 7 8 9 0 } <span style="color:blue">GMEAN</span>
[ 1 2 3 4 5 6 7 8 9 0 ] <span style="color:blue">HMEAN</span>
{{out}}
<pre>
Line 3,266 ⟶ 3,267:
1: 3.41417152147
</pre>
=={{header|Ruby}}==
{{works with|Ruby|1.9+}}
| |||