aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Averages-Mean-angle/Maple/averages-mean-angle-1.maple Normal file
View file

@ -0,0 +1,2 @@
> [ 350, 10 ] *~ Unit(arcdeg);
[350 [arcdeg], 10 [arcdeg]]

5
Task/Averages-Mean-angle/Maple/averages-mean-angle-2.maple Normal file
View file

@ -0,0 +1,5 @@
MeanAngle := proc( L )
uses Units:-Standard; # for unit-awareness
local u;
evalf( convert( argument( add( u, u = exp~( I *~ L ) ) ), 'units', 'radian', 'degree' ) )
end proc:

8
Task/Averages-Mean-angle/Maple/averages-mean-angle-3.maple Normal file
View file

@ -0,0 +1,8 @@
> MeanAngle( [ 350, 10 ] *~ Unit(arcdeg) );
0.
> MeanAngle( [ 90, 180, 270, 360 ] *~ Unit(arcdeg) );
0.
> MeanAngle( [ 10, 20, 30 ] *~ Unit(arcdeg) );
20.00000000