"유한체 위의 정수론과 기하학"의 두 판 사이의 차이
둘러보기로 가기
검색하러 가기
이 항목의 수학노트 원문주소==
Pythagoras0 (토론 | 기여) 잔글 (찾아 바꾸기 – “<h5>” 문자열을 “==” 문자열로) |
Pythagoras0 (토론 | 기여) 잔글 (찾아 바꾸기 – “</h5>” 문자열을 “==” 문자열로) |
||
| 1번째 줄: | 1번째 줄: | ||
| − | <h5 style="margin: 0px; line-height: 3.428em; color: rgb(34, 61, 103); font-family: 'malgun gothic',dotum,gulim,sans-serif; font-size: 1.166em; background-position: 0px 100%;">이 항목의 수학노트 원문주소 | + | <h5 style="margin: 0px; line-height: 3.428em; color: rgb(34, 61, 103); font-family: 'malgun gothic',dotum,gulim,sans-serif; font-size: 1.166em; background-position: 0px 100%;">이 항목의 수학노트 원문주소== |
| 5번째 줄: | 5번째 줄: | ||
| − | ==개요 | + | ==개요== |
| 13번째 줄: | 13번째 줄: | ||
| − | ==코드 | + | ==코드== |
# (*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번째 줄: | ||
| − | ==메모 | + | ==메모== |
| 27번째 줄: | 27번째 줄: | ||
| − | ==관련된 항목들 | + | ==관련된 항목들== |
* [[이차잉여의 상호법칙]] | * [[이차잉여의 상호법칙]] | ||
| 38번째 줄: | 38번째 줄: | ||
| − | ==사전 형태의 자료 | + | ==사전 형태의 자료== |
* http://ko.wikipedia.org/wiki/ | * http://ko.wikipedia.org/wiki/ | ||
| 48번째 줄: | 48번째 줄: | ||
| − | ==관련논문 | + | ==관련논문== |
* 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일 (목) 13:58 판
이 항목의 수학노트 원문주소==
개요
코드
- (*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/
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]