9 lines
234 B
Text
9 lines
234 B
Text
procedure main(A)
|
|
write("Mean angle is ",meanAngle(A))
|
|
end
|
|
|
|
procedure meanAngle(A)
|
|
every (sumSines := 0.0) +:= sin(dtor(!A))
|
|
every (sumCosines := 0.0) +:= cos(dtor(!A))
|
|
return rtod(atan(sumSines/*A,sumCosines/*A))
|
|
end
|