º£Æü¤Î¥Æ¡¼¥Þ
¡¢Á°²ó¥ì¥Ý¡¼¥È¤Î²òÅú
No.9 ¡¢¥Û¡¦ø§¥ó¡£¥·¡¦¥Í¥ÕèÄô¦¥Û¥¿¥ª¥Êú´¥£¡¢¥ã¡¢ð¦¥Ã¡¢¥Ï¡¢¥©¡¢¥Æ¡¢¥½¡¢¥Û¡¢¥Ì¡£¡Ö¥¤òÀâ¤ò¤Ä¤±¤ë¡
[²òÅú]
11¸Ä¤·¤«²ÄǽÀ¤¬¤Ê¤¤¤«¤é¡¢¸ÄÊ̤˸«¤Æ¤â¤â¤Á¤í¤ó¤è¤¤¡£¤¬¡¢¤â¤Ã¤È´ÊÌÀ¤Ê¤Î¤Ï¡¢ ¼ÌÁü
Fp:=Dom::IntegerMod(17); // Fp=Z/17 Z f:=poly(x^6-x-4,[x],Fp); // ÊÑ¿ô¤È·¸¿ô¤òÌÀ¼¨ g:=poly(x^(17^2)-x,[x],Fp); h:=poly(x^(17^3)-x,[x],Fp); gcd (f,g); // f ¤È g ¤Î GCD ¤òµá¤á¤ë¡£ gcd(f,h); // f ¤È h ¤Î GCD ¤òµá¤á¤ë¡£
ËÄÂç¤Ê·×»»¤ò¤»¤º¤Ë¤¹¤Þ¤¹ÊýË¡¤Ï¤Ê¤¤¤«? ¼Â¤Ï¤¢¤ë¡£ ¾å¤Î ´ûÌó¤Ê2¼¡¼° ¤È3¼¡¼° ¤ò¤È¤í¤¦¡£ (¤³¤ì¤Ï½ô·¯¤Ë¤âÍưפǤ¢¤í¤¦¡£) ¤³¤³¤Ç¤Ï¡¢Î㤨¤Ð , ¤È¤¹¤ë¡£ ¤Îº¬ ¤È ¤Îº¬ ¤ÎÏ ¤ò¹Í¤¨¤ë¡£ ¤ÎËþ¤¿¤¹¤Ù¤ ¼¡¼°¤ÏÈæ³ÓŪÍưפ˽ñ¤²¼¤»¤ë¡£¤½¤ì¤¬´ûÌó¤Ç¤¢¤ë ¤³¤È¤ò¸À¤¨¤Ð¤è¤¤¡£¤¹¤Ê¤ï¤Á¡¢ ¤¬ ¤Î ¼¡ ³ÈÂç¤Ç¤¢¤ë¤³¤È¤ò¸À¤¨¤Ð¤è¤¤¡£¥Õ¥í¥Ù¥Ë¥¦¥¹¼ÌÁü ¤Î¸ÀÍդǸÀ¤¨¤Ð¡¢ ¤³¤ì¤Ï ¤¬Á´¤Æ°Û¤Ê¤ë¤³¤È¤ò¼¨¤¹¤È¸À¤Ã¤Æ¤â Ʊ¤¸¤Ç¤¢¤ë¡£¤¢¤È¤Ï ¤È¡¢ ¤È¤ËÃí°Õ¤¹ ¤ì¤Ð¤è¤¤¡£