Averages/Mean angle: Difference between revisions
Content added Content deleted
(RPL: add) |
(Added Easylang) |
||
Line 418: | Line 418: | ||
=={{header|Delphi}}== |
=={{header|Delphi}}== |
||
See [[#Pascal]]. |
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}}== |
=={{header|EchoLisp}}== |
||
<syntaxhighlight lang="scheme"> |
<syntaxhighlight lang="scheme"> |