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