"유한체 위의 정수론과 기하학"의 두 판 사이의 차이
둘러보기로 가기
검색하러 가기
(피타고라스님이 이 페이지의 이름을 유한체에서 정수계수 다항식의 분해(코드)로 바꾸었습니다.) |
|||
11번째 줄: | 11번째 줄: | ||
− | # (*choose the range l for the | + | |
+ | |||
+ | <h5>코드</h5> | ||
+ | |||
+ | # (*choose the range l for the number of primes*)<br> l := 50<br> (*choose a polynomial to work with*)<br> Pol := x^2 - 5<br> disc := Discriminant[Pol, x]<br> (*choose the modulus*)<br> M := 5<br> Pr[l_] := Table[Prime[n], {n, 1, l}]<br> S := Pr[l]<br> (*output*)<br> Print["discriminant of polynomial", " ", Pol // TraditionalForm]<br> disc<br> (*decomposition of the given polynomial modulo p*)<br> TableForm[Table[{Mod[p, M], Factor[Pol, Modulus -> p]}, {p, S}],<br> TableHeadings -> {S, {"residue class", "decomposition"}},<br> TableAlignments -> Center] | ||
2011년 3월 23일 (수) 16:44 판
이 항목의 수학노트 원문주소
개요
코드
- (*choose the range l for the number of primes*)
l := 50
(*choose a polynomial to work with*)
Pol := x^2 - 5
disc := Discriminant[Pol, x]
(*choose the modulus*)
M := 5
Pr[l_] := Table[Prime[n], {n, 1, l}]
S := Pr[l]
(*output*)
Print["discriminant of polynomial", " ", Pol // TraditionalForm]
disc
(*decomposition of the given polynomial modulo p*)
TableForm[Table[{Mod[p, M], Factor[Pol, Modulus -> p]}, {p, S}],
TableHeadings -> {S, {"residue class", "decomposition"}},
TableAlignments -> Center]
메모
관련된 항목들
사전 형태의 자료
관련논문
- Koblitz, Neal. 1982. Why Study Equations over Finite Fields? Mathematics Magazine 55, no. 3 (May 1): 144-149. doi:10.2307/2690080.
- http://www.jstor.org/action/doBasicSearch?Query=
- http://www.ams.org/mathscinet
- http://dx.doi.org/