NB. NISHIKAWA Toshio NB. JAPLA june/2015 NB. Script of CORDIC NB> ****************************** cordic =: 3 : 0 Angle =. y. S =. 45 X =. 1 Y =. 1 XA =. '' YA =. '' i =. 0 while. i < 17 do. T =. 0 < Angle - S TA =. ((+:)@(_0.5&+)) T if. T do. NB. wr 'plus' S1 =. S + (>:i){TH X1 =. X - (0.5^>:i) * Y Y1 =. Y + (0.5^>:i) * X else. NB. wr 'neg' S1 =. S - (>:i){TH X1 =. X + (0.5^>:i) * Y Y1 =. Y - (0.5^>:i) * X end. XA =. XA, X YA =. YA, Y S =. S1 X =. X1 Y =. Y1 i =. i + 1 end.