PDL :: OPT :: SIMPLEX. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Chris Marshall
PDL :: OPT :: SIMPLEX. ű×
PDL :: OPT :: SIMPLEX. ¼³¸í
½ÉÇà ·º½º ÃÖÀûÈ ·çƾ PDL :: OPT :: SIMPLEX´Â ´Ü¼øÇÑ ÃÖÀûÈ ·çƾÀÌÀÖ´Â PERL ¸ðµâÀÔ´Ï´Ù. ½Ä ³ëÇÁ°¡ PDLÀ» »ç¿ëÇÕ´Ï´Ù :: OPT :: SIMPLEX; ($ OPTIMUM, $ SSIZE) = SIMPLEX ($ init, $ initize, $ minsize, $ maxiter, ÇÏÀ§ {evaluite_func_at ($ _ )}, ÇÏÀ§ {display_simplex ($ _ )});ÀÌ ÆÐÅ°Áö´Â ±¸ÇöÇÕ´Ï´Ù. ÀϹÝÀûÀ¸·Î »ç¿ëµÇ´Â ½ÉÇà ·º½º ÃÖÀûÈ ¾Ë°í¸®Áò. ¾Ë°í¸®ÁòÀÇ ±âº» ¾ÆÀ̵ð¾î´Â ƯÁ¤ ±ÔÄ¢¿¡ µû¶ó N Â÷¿ø °Ë»ö °ø°£¿¡¼ n + 1 Æ÷ÀÎÆ®ÀÇ "´Ü¸é"À» À̵¿ÇÏ´Â °ÍÀÔ´Ï´Ù. ¾Ë°í¸®ÁòÀÇ ÁÖ¿ä ÀÌÁ¡Àº ±â´ÉÀÇ ÆÄ»ý »óÇ°À» °è»êÇÒ ÇÊ¿ä°¡ ¾ø½À´Ï´Ù. $ initÀº n ÀåÂø µÈ ¸Å°³ º¯¼öÀÇ Ãʱ⠰ªÀ» º¸À¯ÇÏ´Â 1D º¤ÅÍÀÔ´Ï´Ù. $ initize´Â $ init (´õ ¸¹ÀÌ ...) $ minsize´Â ÀÏÁ¾ÀÇ À¶ÇÕ ±âÁØ (´õ ...)ÀÔ´Ï´Ù. ¿¹. $ minsize = 1e-6 ÇÏÀ§´Â 1 Â÷¿ø ÀÌ»ó ½º·¹µùÀ» ÀÌÇØÇÏ´Â °ÍÀ¸·Î °¡Á¤ÇÕ´Ï´Ù. ¼¸íÀº 'INP (nParams)ÀÔ´Ï´Ù. out () '. ¿¹Á¦´Â sub evaluate_func_at {my ($ xv) = @_; ³» $ x1 = $ xv-> ½½¶óÀ̽º ( "(0)"); ³» $ x2 = $ xv-> ½½¶óÀ̽º ( "(1)"); $ x1 ** 4 + ($ x2-5) ** 4 + $ x1 * $ x2; } ¿©±â $ XV´Â $ x1 ¹× $ x2·Î ¸í½Ã ÀûÀ¸·Î ¾ã°Ô ½ã ¸Å°³ º¯¼öÀÇ ÇöÀç °ªÀ» µé°íÀÖ´Â º¤ÅÍÀÔ´Ï´Ù. $ ssize´Â ¿ì¸®°¡ ¾ó¸¶³ª °¡±î¿îÁö¸¦ ¸Å¿ì ´ë·«ÀûÀÎ ÃßÁ¤Ä¡¸¦ Á¦°øÇÕ´Ï´Ù - ¸¶ÀÏÀÌ À߸ø µÉ ¼ö ÀÖ½À´Ï´Ù. ±×°ÍÀº ÃÖ°íÀÇ Á¤Á¡°ú ÃÖ¾ÇÀÇ Á¤Á¡ »çÀÌÀÇ À¯Å¬¸®µå °Å¸®ÀÔ´Ï´Ù. ±×°ÍÀÌ ¸Å¿ì ÀÛÁö ¾ÊÀ¸¸é ¾Ë°í¸®ÁòÀÌ ¼ö·ÅµÇÁö ¾Ê¾Ò½À´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
PDL :: OPT :: SIMPLEX. °ü·Ã ¼ÒÇÁÆ®¿þ¾î