6 lines
201 B
Text
6 lines
201 B
Text
|
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:
|