Cyclotomic polynomial: Difference between revisions
Content added Content deleted
(J: FFT speedup for polynomial multiplication and division) |
m (fix name to match presentation here.) |
||
Line 2,155: | Line 2,155: | ||
,(y%*/q) {."0 (* 1 _1 $~ #) cyclotomic */}.q |
,(y%*/q) {."0 (* 1 _1 $~ #) cyclotomic */}.q |
||
elseif. 1 e. 1 < p do. |
elseif. 1 e. 1 < p do. |
||
,(y%*/q) {."0 |
,(y%*/q) {."0 cyclotomic */q |
||
else. |
else. |
||
lgl=. {:$ ctlist=. cyclotomic "0 }:*/@>,{1,each q NB. ctlist is 2-d table of polynomial divisors |
lgl=. {:$ ctlist=. cyclotomic "0 }:*/@>,{1,each q NB. ctlist is 2-d table of polynomial divisors |