Cyclotomic polynomial: Difference between revisions
no edit summary
m (→{{header|C++}}) |
No edit summary |
||
Line 3,062:
#[1, 105, 385, 1365, 1785, 2805, 3135, 6545, 6545, 10465, 10465,
# 10465, 10465, 10465, 11305, 11305, 11305, 11305, 11305, 11305]</lang>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>Cyclotomic[#, x] & /@ Range[30] // Column
i = 1;
n = 10;
PrintTemporary[Dynamic[{magnitudes, i}]];
magnitudes = ConstantArray[True, n];
While[Or @@ magnitudes,
coeff = Abs[CoefficientList[Cyclotomic[i, x], x]];
coeff = Select[coeff, Between[{1, n}]];
coeff = DeleteDuplicates[coeff];
If[Or @@ magnitudes[[coeff]],
Do[
If[magnitudes[[c]] == True,
Print["CyclotomicPolynomial(", i,
") has coefficient with magnitude ", c]
]
,
{c, coeff}
];
magnitudes[[coeff]] = False;
];
i++;
]</lang>
{{out}}
<pre>-1+x
1+x
1+x+x^2
1+x^2
1+x+x^2+x^3+x^4
1-x+x^2
1+x+x^2+x^3+x^4+x^5+x^6
1+x^4
1+x^3+x^6
1-x+x^2-x^3+x^4
1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9+x^10
1-x^2+x^4
1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9+x^10+x^11+x^12
1-x+x^2-x^3+x^4-x^5+x^6
1-x+x^3-x^4+x^5-x^7+x^8
1+x^8
1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9+x^10+x^11+x^12+x^13+x^14+x^15+x^16
1-x^3+x^6
1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9+x^10+x^11+x^12+x^13+x^14+x^15+x^16+x^17+x^18
1-x^2+x^4-x^6+x^8
1-x+x^3-x^4+x^6-x^8+x^9-x^11+x^12
1-x+x^2-x^3+x^4-x^5+x^6-x^7+x^8-x^9+x^10
1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9+x^10+x^11+x^12+x^13+x^14+x^15+x^16+x^17+x^18+x^19+x^20+x^21+x^22
1-x^4+x^8
1+x^5+x^10+x^15+x^20
1-x+x^2-x^3+x^4-x^5+x^6-x^7+x^8-x^9+x^10-x^11+x^12
1+x^9+x^18
1-x^2+x^4-x^6+x^8-x^10+x^12
1+x+x^2+x^3+x^4+x^5+x^6+x^7+x^8+x^9+x^10+x^11+x^12+x^13+x^14+x^15+x^16+x^17+x^18+x^19+x^20+x^21+x^22+x^23+x^24+x^25+x^26+x^27+x^28
1+x-x^3-x^4-x^5+x^7+x^8
CyclotomicPolynomial(1) has coefficient with magnitude 1
CyclotomicPolynomial(105) has coefficient with magnitude 2
CyclotomicPolynomial(385) has coefficient with magnitude 3
CyclotomicPolynomial(1365) has coefficient with magnitude 4
CyclotomicPolynomial(1785) has coefficient with magnitude 5
CyclotomicPolynomial(2805) has coefficient with magnitude 6
CyclotomicPolynomial(3135) has coefficient with magnitude 7
CyclotomicPolynomial(6545) has coefficient with magnitude 8
CyclotomicPolynomial(6545) has coefficient with magnitude 9
CyclotomicPolynomial(10465) has coefficient with magnitude 10</pre>
=={{header|Nim}}==
| |||