PDL :: OPT :: SIMPLEX.

½ÉÇà ·º½º ÃÖÀûÈ­ ·çƾ
Áö±Ý ´Ù¿î·Îµå

PDL :: OPT :: SIMPLEX. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î