¼öÇÐ :: ´ÙÇ×½ÄÇϳªÀÇ º¯¼öÀÇ ´ÙÇ×½ÄÀ»À§ÇÑ Perl Ŭ·¡½º | |
Áö±Ý ´Ù¿î·Îµå |
¼öÇÐ :: ´ÙÇ×½Ä ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Martin Becker
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mhasch/
¼öÇÐ :: ´ÙÇ×½Ä Å±×
¼öÇÐ :: ´ÙÇ×½Ä ¼³¸í
ÇϳªÀÇ º¯¼öÀÇ ´ÙÇ×½ÄÀ»À§ÇÑ Perl Ŭ·¡½º ¼öÇÐ :: ´ÙÇ×½ÄÀº ÇϳªÀÇ º¯¼ö¿¡¼ ´ÙÇ×½ÄÀ» ³ªÅ¸³»´Â Perl ¸ðµâÀ̸ç, I.E.E.E.E.°¡ º¯¼öÀÇ ¸¹Àº ÷°¡¹°, »¬¼À ¹× °ö¼À°ú ÀϺΠ»ó¼ö·Î Áö¾îÁ³½À´Ï´Ù. ÇϳªÀÇ º¯¼ö¿¡¼ ´ÙÇ×½ÄÀ» ¾²´Â Ç¥ÁØ ¹æ¹ýÀº XÀÇ ÈûÀÌ Á¤·Ä µÈ XÀÇ ÀÏÁ¤ÇÏ°í ÈûÀÇ Á¦Ç°ÀÇ ÇÕ°è·Î¼ÀÇ ÇÕ°èÀÔ´Ï´Ù. ÀÌ·¯ÇÑ ¿ë¾îÀÇ »ó¼ö´Â °è¼ö¶ó°íÇÕ´Ï´Ù. ´ÙÇ×½Ä P (x) = 0À̶ó°íÇÕ´Ï´Ù. 0 ´ÙÇ×½Ä ÀÌ¿ÜÀÇ ´ÙÇ×½ÄÀÇ °æ¿ì, 0ÀÌ ¾Æ´Ñ °è¼ö¸¦ °®´Â XÀÇ °¡Àå ³ôÀº Àü·ÂÀÇ Áö¼ö´Â ´ÙÇ×½ÄÀÇ Á¤µµ¶ó°í ºÒ¸®¿ì´Â °ÍÀº ´Ù¾çÇÑ »ý¼ºÀÚ¸¦ »ç¿ëÇÏ¿© ¶Ç´Â ±¸¼ºµÈ Ç¥ÇöÀÇ °á°ú·Î¼ ´ÙÇ×½Ä ¹°Ã¼¸¦ »ý¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ±âÁ¸ °³Ã¼. ¼öÇÐ :: ´ÙÇ×½Ä ¹°Ã¼´Â ¼öÇÐÀû Ư¼º°ú °ü·ÃÇÏ¿© ºÒº¯ÇÕ´Ï´Ù. ´ÙÇ×½ÄÀÇ ¸ðµç ÀÛ¾÷Àº ¾Æ¹«°Íµµ ¼öÁ¤ÇÏÁö ¾Ê°í »õ·Î¿î °´Ã¼¸¦ ¸¸µé°í ¹ÝȯÇÕ´Ï´Ù. ¸ðµâÀº ÀÏ¹Ý ºÎµ¿ ¼Ò¼öÁ¡ ¼ýÀÚ, º¹¼Ò¼ö, ÀÓÀÇÀÇ Á¤¹Ð ÇÕ¸®Àû, ¸ÅÆ®¸¯½º, À¯ÇÑ ÇʵåÀÇ ¿ä¼Ò ¹× ¸¹Àº ´Ù¸¥ °Íµé°ú °°Àº ´Ù¾çÇÑ À¯ÇüÀÇ °è¼ö¿Í ÇÔ²² ÀÛµ¿ÇÕ´Ï´Ù. ÇÊ¿äÇÑ °ÍÀº °è¼ö°¡ Perl ¹øÈ£ ¶Ç´Â ÀûÀýÇÑ °úºÎÇÏ°¡ ¹ß»ýÇÑ »ê¼ú ¿¬»êÀÚ°¡ÀÖ´Â °´Ã¼ÀÔ´Ï´Ù. ´ÙÇ׽Ŀ¡ ´ëÇÑ ÀÛ¾÷Àº °è¼ö µµ¸ÞÀÎÀÇ ±âº» ÀÛ¾÷À¸·ÎÀ̸¦ ÁÙÀÓÀ¸·Î½á ¼öÇàµË´Ï´Ù. Phynomial °´Ã¼´Â »õ·Î¿î ´ÙÇ×½ÄÀÌ ±âÁ¸ÀÇ °è¼ö·ÎºÎÅÍ À¯·¡µÇ°Å³ª ½ÇÁ¦ °è¼ö·ÎºÎÅÍ °áÁ¤µÉ ¶§ °è¼ö °ø°£¿¡ ¾Ï¹¬ÀûÀ¸·Î °áÇյ˴ϴÙ. Polynomials°¡ óÀ½ºÎÅÍ »ý¼º µÉ ¶§. ¼·Î Ãß°¡ ÇÒ ¼ö¾ø´Â °è¼ö¸¦ È¥ÇÕÇÏÁö ¾Ê°Å³ª ¼·Î¸¦ °öÇÒ ¼ö¾ø´Â ÀÀ¿ë ÇÁ·Î±×·¥ÀÇ Ã¥ÀÓÀÔ´Ï´Ù. °è¼ö·Î »ç¿ëµÇ´Â ÀÏ¹Ý ÆÞ ¹øÈ£´Â ¹Ý¿Ã¸² ¿À·ù°¡ ¿¹±âÄ¡ ¾Ê°Ô ¾Æ´Ñ ¿µ¿ª ³ª´©±â¿Í °°ÀÌ ¿øÇÏÁö ¾Ê´Â È¿°ú·Î À̾îÁú ¼ö ÀÖ´Ù´Â ´ÜÁ¡ÀÌ ÀÖ½À´Ï´Ù. ¶Ç´Â ½ÇÆÐÇÑ Æòµî °Ë»ç .Snopsis´Â ¼öÇÐÀ» »ç¿ëÇÕ´Ï´Ù :: ´ÙÇ×½Ä 1.000; $ P = ¼öÇÐ :: ´ÙÇ×½Ä -> »õ·Î¿î (0, -2, 0, 1); # x ^ 3 - 2 x Àμâ "p = $ p "; # p = (x ^ 3 + -2 x) $ p-> string_config ({fold_sign => 1});"p = $ p "; # p = (x ^ 3 - 2 x) $ q = $ p-> new (0, 3, 0, -4, 0, 1); # x ^ 5 - 4 x ^ 3 + 3 x $ r = $ p ** 2 - $ p * $ q; # »ê¼ú Ç¥Çö $ bool = $ p == $ q; # boolean Ç¥Çö½Ä ($ s, $ t) = $ r-> divmod ($ q); # q * S + T = R $ U = $ R-> GCD ($ Q); # °¡Àå Å« ÀϹÝÀûÀÎÂ¥¸®, # ¿©±â : u = 3 x $ v = $ u-> ¸ð´ÏÅÍ; # v = x $ y = $ p-> Æò°¡ (0.5); # y = p (0.5) = -0.875 $ d = $ q-> ÇÐÀ§; # d = ÇÐÀ§ (q) = 5 $ w = $ p-> º¸°£ (, -1, 0, 3]; # w (0) = -1, w (1) = 0, # w (2) = 3 ¼öÇÐ :: º¹ÇÕü; $ p = ¼öÇÐ :: ´ÙÇ×½Ä -> »õ·Î¿î (i , 1 + i); # p (x) = (1 + i) * x + i ¿ä±¸ »çÇ× : ¡¤ Perl.
¼öÇÐ :: ´ÙÇ×½Ä °ü·Ã ¼ÒÇÁÆ®¿þ¾î