¼öÇÐ :: ±×·ì :: Thompson.

¼öÇÐ :: GROUP :: Thompson ¸ðµâÀº Åè½¼ ±×·ìÀÇ ¹Ý°æÀÇ 'n'°øÀÇ Ä«µð³Î¸®Æ¼¸¦ °è»êÇÏ´Â OO ¸Þ¼Òµå¸¦ Æ÷ÇÔÇÕ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

¼öÇÐ :: ±×·ì :: Thompson. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Roberto Alamos Moreno
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~ralamosm/Math-Group-Thompson-0.96/lib/Math/Group/Thompson.pm

¼öÇÐ :: ±×·ì :: Thompson. ű×


¼öÇÐ :: ±×·ì :: Thompson. ¼³¸í

¼öÇÐ :: ±×·ì :: Åè½¼ ¸ðµâÀº Åè½¼ ±×·ì FÀÇ ¹Ý°æÀÇ 'n'ÀÇ °øÀ» °è»êÇÏ´Â OO ¸Þ¼Òµå¸¦ Æ÷ÇÔÇÕ´Ï´Ù. ¼öÇÐ :: ±×·ì :: Thompson Perl ¸ðµâÀº Åè½¼ ±×·ìÀÇ ¹Ý°æÀÇ 'n'ÀÇ Ä«µð³Î¸®Æ¼¸¦ °è»êÇÏ´Â OO ¸Þ¼Òµå¸¦ Æ÷ÇÔÇÕ´Ï´Ù. F.Synopsis´Â ¼öÇÐ :: Group :: ThompsonÀ» »ç¿ëÇÕ´Ï´Ù. MY $ F = ¼öÇÐ :: ±×·ì :: Thompson-> New (verbose => 0); MY $ Ä«µå = $ F-> CARDBN (3, ''); Àμâ "#b (3) = $ cardn"; ¼öÇÐ :: ±×·ì :: Åè½¼ ¸ðµâÀº Åè½¼ ±×·ìÀÇ ¹Ý°æÀÇ °øÀ» °è»êÇÏ´Â Objetct ÁöÇ⠸޼ҵ带 Á¦°øÇÕ´Ï´Ù.ÀÌ ¸ðµâÀº FFÀÇ ÇÁ¸®Á¨ Å×À̼ÇÀ» »ç¿ëÇÕ´Ï´Ù = ¿©±â¼­ a, b´Â °ø½Ä ±âÈ£, ÀϹÝÀûÀÎ Á¤·ùÀÚ¿Í e´Â F. = xyx ^ (- 1) y ^ (- 1) f¿¡ÀÖ´Â ¸ðµç g¿¡ ´ëÇØ G´Â WordG = A_ { 1} A_ {2} ... A_ {n} A_ {i}Àº ¸ðµç i $ v¿¡ ´ëÇÑ a, b, a ^ (- 1) ¶Ç´Â b ^ (- 1)ÀÔ´Ï´Ù. ÀÚ¼¼ÇÑ Àμö´Â ¼öÇÐÀ» ¾Ë·ÁÁÝ´Ï´Ù. : Group :: Thompson »ý¼º µÈ ¸ðµç ´Ü¾î ($ v == 1) ¶Ç´Â not ($ v == 0) ¶Ç´Â ÆÄÀÏ¿¡ ÀúÀåÇϽʽÿÀ. ¿©±â¼­ $ v´Â ÆÄÀÏÀÇ À̸§ (ºÐ¸íÈ÷ 0 ¶Ç´Â 1 ~ÀÇ ÀÚ¼¼ÇÑ ÆÄÀÏÀÌ Á¸ÀçÇÏ¸é ±³Ã¼µÇ¾î ¹«°á¼ºÀ» È®ÀÎÇؾßÇÕ´Ï´Ù. Âü°í : N, #b (n) ¶Ç´Â #gb (n) -B (n)ÀÇ ¸Å¿ì ÀÛÀº °ªÀÌ ¸Å¿ì Å« °ªÀ¸·Î ÆÄÀÏ¿¡ ´Ü¾î¸¦ ÀúÀåÇÏ´Â °ÍÀÌ ÁÁ½À´Ï´Ù. ¿¹¸¦ µé¾î, n = 19, #b (n) ~ 3 ^ n = 1162261467 ~ 1.1 ±â°¡, ÆÄÀÏ¿¡ ÀÇÇØ ocupped °ø°£ÀÌ (¹ÙÀÌÆ®) : #b (1) + ÇÕ°è (i = 2 ~ 19) {i * (#b (i) - #b (i-1))} = CardBnThis ¸Þ¼­µå´Â ù ¹ø° Àμö¿¡ Àü´Þ µÈ Àμö°¡ CardbnÀÇ ÀüÈ­´Â ''¶Ç´Â not.usage : My $ C = $ F-> CardBn ($ radius, $ g); $ RADIUS´Â ¿©±â¼­ integer number> = 0ÀÌ°í $ g´Â f (word A, B, C ¶Ç´Â D). óÀ½À¸·Î CardBnÀ̶ó°íÇÏ´Â °ÍÀº $ G°¡ ''¿Í °°Áö ¾ÊÀ¸¸é CardBnÀº setGB (n) - b (n) = {w in f in f | W (n) ¹× b (n)}} challenÀÌ ÄÝ·»ÀÌ ¾Æ´Ñ °æ¿ì $ g°¡ °°À¸¸é CardBnÀº #b (n)À» ¹ÝȯÇÕ´Ï´Ù. ¼ºÀå (´õ "Á¤È®È÷",ÀÌ ¾Ë°í¸®ÁòÀº o (3 ^ n)) .resetresets CardBN ¹æ¹ý¿¡ »ç¿ë µÈ Ä«¿îÅ͸¦ ¼³Á¤ÇÏ°í, ù ¹ø° _Element ¼Ó¼ºÀ» '', 1.Usage : $ F-> Àç¼³Á¤À¸·Î ¼³Á¤; ¸ÖƼ ¸Ê ·Ñ FÀÇ µÎ ´Ü¾î »çÀÌ ¿¡¼­ÀÌ ¸Þ¼Òµå´Â ¼Ó¼º Inv.usage¿¡ ÀúÀåµÈ ¿ª °ü°è¸¦ °í·ÁÇÕ´Ï´Ù. ³» $ mul = $ f-> °öÇϱâ ($ g, $ w); $ g ¹× $ w´Â f ¹× $ wÀÇ ¿ä¼ÒÀÔ´Ï´Ù. MULÀº $ G $ W.RotateThis ¸ðµâÀÌ F·Î ÀÎÇÑ ´Ü¾î·Î ¹Þ¾Æ µé¿©Áö°í ¸¶Áö¸· ÆíÁö¸¦ ù ¹ø° Àå¼Ò¿¡ ³õ½À´Ï´Ù. $ w = 'ABC'; $ w = $ self-> ȸÀü ($ w); # $ W´Â ÀÌÁ¦ 'CBA'InVersethis ¸Þ¼­µå¿Í µ¿ÀÏÇÕ´Ï´Ù. F¿¡¼­ ´Ü¾î¸¦ ¹Þ¾Æ ¹ÝȯÇÕ´Ï´Ù. $ w ='ABC '; $ w = $ self-> inverse ($ w); # $ W == 'ADC'DIVIDETETHIS ¸Þ¼­µå´Â F¿¡ ´Ü¾î¸¦ ¹Þ°í ù ¹ø° ¿ä¼Ò°¡ ´Ü¾îÀÇ Ã¹ ¹ø° Àý¹ÝÀÌ°í µÎ ¹ø° Â÷¿ø ¹è¿­À» ¹ÝȯÇÏ°í µÎ ¹ø°´Â Word.usageÀÇ ÈĹÝÀÇ ¹ÝÀüÀÔ´Ï´Ù. $ w = 'aabc'; ($ w1, $ w2) = $ self-> ³ª´©±â ($ w); # NO $ W1 == 'AA'¹× $ W2 == 'AD'GET_INVTHIS ¸Þ¼Òµå F.NOTETHIS ¸Þ¼­µåÀÇ »ý¼º±â ¿ä¼Ò °£ÀÇ ¿ª ¹Ýȯ °ü°èÀÇ Çؽø¦ ¹ÝȯÇÕ´Ï´Ù. stderrÀÇ ¹®ÀÚ¿­ÀÌ ¼ö½ÅµÇ°Å³ª ÇØ´ç ÆÄÀÏÀ» ¹­°Å³ª ´ëÀÀÇÕ´Ï´Ù. $ f-> ¸Þ¸ð ( 'aa'); # Àμâ AA. "n"¶Ç´Â ÆÄÀÏ¿¡ ÀúÀåÇϽʽÿÀ. requirements : ¡¤ perl ¿ä±¸ »çÇ× : ¡¤ Perl.


¼öÇÐ :: ±×·ì :: Thompson. °ü·Ã ¼ÒÇÁÆ®¿þ¾î