"유한체 위의 정수론과 기하학"의 두 판 사이의 차이
둘러보기로 가기
검색하러 가기
Pythagoras0 (토론 | 기여) 잔글 (찾아 바꾸기 – “<h5>” 문자열을 “==” 문자열로) |
|||
| 5번째 줄: | 5번째 줄: | ||
| − | + | ==개요</h5> | |
| 13번째 줄: | 13번째 줄: | ||
| − | + | ==코드</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 a 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] | # (*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 a 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] | ||
| 21번째 줄: | 21번째 줄: | ||
| − | + | ==메모</h5> | |
| 27번째 줄: | 27번째 줄: | ||
| − | + | ==관련된 항목들</h5> | |
* [[이차잉여의 상호법칙]] | * [[이차잉여의 상호법칙]] | ||
| 38번째 줄: | 38번째 줄: | ||
| − | + | ==사전 형태의 자료</h5> | |
* http://ko.wikipedia.org/wiki/ | * http://ko.wikipedia.org/wiki/ | ||
| 48번째 줄: | 48번째 줄: | ||
| − | + | ==관련논문</h5> | |
* Koblitz, Neal. 1982. Why Study Equations over Finite Fields? Mathematics Magazine 55, no. 3 (May 1): 144-149. doi:[http://dx.doi.org/10.2307/2690080 10.2307/2690080]. | * Koblitz, Neal. 1982. Why Study Equations over Finite Fields? Mathematics Magazine 55, no. 3 (May 1): 144-149. doi:[http://dx.doi.org/10.2307/2690080 10.2307/2690080]. | ||
2012년 11월 1일 (목) 03:07 판
이 항목의 수학노트 원문주소
==개요
==코드
- (*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 a 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/