Averages/Mean angle: Difference between revisions
Added Easylang
(RPL: add) |
(Added Easylang) |
||
Line 418:
=={{header|Delphi}}==
See [[#Pascal]].
=={{header|EasyLang}}==
{{trans|C}}
<syntaxhighlight lang=easylang>
func mean ang[] .
for ang in ang[]
x += cos ang
y += sin ang
.
return atan2 (y / len ang[]) (x / len ang[])
.
print mean [ 350 10 ]
print mean [ 90 180 270 360 ]
print mean [ 10 20 30 ]
</syntaxhighlight>
=={{header|EchoLisp}}==
<syntaxhighlight lang="scheme">
| |||