Åë°è :: Gammadistribution.

Åë°è :: Gammadistribution Perl ¸ðµâÀº °¨¸¶ ºÐÆ÷¸¦ ³ªÅ¸³À´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Åë°è :: Gammadistribution. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Nigel Wetters Gourlay
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~nwetters/File-Touch-0.02/Touch.pm

Åë°è :: Gammadistribution. ű×


Åë°è :: Gammadistribution. ¼³¸í

Åë°è :: Gammadistribution Perl ¸ðµâÀº °¨¸¶ ºÐÆ÷¸¦ ³ªÅ¸³À´Ï´Ù. Åë°è :: Gammadistribution Perl ¸ðµâÀº °¨¸¶ ¹èÆ÷¸¦ ³ªÅ¸³À´Ï´Ù. Synopsis »ç¿ë Åë°è :: Gammadistribution; ³» $ G = Åë°è :: Gammadistribution-> new (); $ g-> set_order (8.5); $ g-> rand (1.0)¸¦ ÀμâÇϽʽÿÀ; ³» @alpha = (0.5,4.5,20.5,6.5,1.5,0.5); my @theta = $ g-> dirichlet_dist (@alpha); methods $ gamma = statistics :: gammadistribution-> new (); $ viace = $ gamma-> rand (scale);ÀÌ ÇÔ¼ö´Â ¹«ÀÛÀ§ º¯È­¸¦ ¹ÝȯÇÕ´Ï´Ù. °¨¸¶ ºÐÆ÷¿¡¼­. ºÐÆ÷ ÇÔ¼ö´Â, p (x) dx = {1 À§ÀÇ °¨¸¶ (a) b ^ a} x ^ {- -1} e ^ {- x / b} dx x> 0.where a´Â ¼ø¼­¿Í b ±Ô¸ð°¡ ÀÖ½À´Ï´Ù. ¸Å°³ º¯¼ö·Î Á¦°øµÇÁö ¾Ê´Â ÇÑ, ScaleÀº Á¦°øµÇÁö ¾Ê´Â °æ¿ì 1.0À¸·Î °¡Á¤µË´Ï´Ù. $ gamma-> get / set_order (ÁÖ¹®); ¹èÆ÷ ¼ø¼­¸¦ °¡Á® ¿À°Å³ª ¼³Á¤ÇÕ´Ï´Ù. ÁÖ¹®Àº 0º¸´Ù Ä¿¾ßÇÕ´Ï´Ù. @ theta = $ gamma-> dirichlet_dist (alpha); k Å©±âÀÇ ½Ç¼ö ¹è¿­ (0º¸´Ù Å« °æ¿ì)À̸ç Direchlet ºÐÆ÷¿¡¼­ ÀÓÀÇÀÇ º¯À̸¦ Æ÷ÇÔÇÏ´Â k Å©±â ¹è¿­À» ¹ÝȯÇÕ´Ï´Ù. ºÐÆ÷ ÇÔ¼ö´Â p (theta_1, ..., theta_k) dtheta_1 ... dtheta_1 ... dtheta_k = (1 / z) prod_ {i = 1} ^ k theta_i ^ {alpha_i - 1} µ¨Å¸ (1 --sum_ {i = 1} ^ K Theta_i) DTHETA_1 ... THETA_I> = 0 ¹× alpha_i> = 0 DTHETA_K. Á¤±ÔÈ­ °è¼ö Z´Â Z = {PROD_ {i = 1} ^ K °¨¸¶ (¥á_I)} / {°¨¸¶ (sum_ = 1) } ^ K Alpha_i)} ÀÓÀÇÀÇ º¯ÀÌ´Â ¸Å°³ º¯¼ö ¼ø¼­ = alpha_i, scale = 1 ¹× Runormalizing ÀÎ °¨¸¶ ºÐ¹è¿¡¼­ k °ªÀ» »ùÇøµÇÏ¿© »ý¼ºµË´Ï´Ù. a.m. ¹ý, W.D. Kelton, ½Ã¹Ä·¹ÀÌ¼Ç ¸ðµ¨¸µ ¹× ºÐ¼® (1991). ¿ä±¸ »çÇ× : ¡¤ Perl.


Åë°è :: Gammadistribution. °ü·Ã ¼ÒÇÁÆ®¿þ¾î