CORDIC: Difference between revisions

9 bytes removed ,  11 months ago
m (→‎{{header|J}}: bugfix (partial))
Line 128:
}}
 
CORDIC=: {{-9
_0.92954 _0.420445
'r d a'=. 2 2 0.5p1#:y
CORDIC 0
if. d do. alpha=. 0.5p1-a else. alpha=. a end.
1 0
(r{:: 1;1 _1)*cordic alpha
CORDIC 1.5
}}</syntaxhighlight>
0.103588 1.46074
CORDIC 6
}}0.405107 _1.39209</syntaxhighlight>
 
Task examples (cos is the left value in the result, argument is in radians):
6,962

edits