🚀 go-pugleaf

$B$3$s$K$A$O!"CfB<!wAm9g8&5fBg3X1!Bg3X!JE}7W?tM}8&5f=j!K$G$9!#(J

$B<+J,$N5-;v$K$D$$$F$b$&$9$3$7!"JdB-$7$^$9!#(J

> Mathematica $B$K$D$$$F<ALd$,$"$j$^$9!#(J
>
> $B<!$N$h$&$JA`:n$r$7$F(Jv$B$N2r$,F@$i$l$^$7$?!#(J
>
>
>In[1]:=  L[n_,q_,w_]:=n v/2 - n Log[Gamma[v/2]] + (v/2 -1) q - v/2 w;
>
>In[2]:= FindMinimum[- L[60,-0.02981080697,59.97062915],{v,2}]
>
>Out[2]= {-7.31835, {v -> 2.92325}}
>
>
>$B$A$J$_$K(J Out[2] $B$N0UL#$O!"(Jv=2.92325 $B$N$H$-:G>.CM(J -7.31835 $B$G$9!#(J
>
>$B$3$N2r$r$"$kJQ?t$KBeF~$7$?$$$N$G$9!#(J

$BNc$($P!"(J

	var=FindMinimum[- L[60,-0.02981080697,59.97062915],{v,2}]

$B$HF~NO$9$l$P!"JQ?t(Jvar$B$K$O!"(J

	{-7.31835, {v -> 2.92325}}

$B$H$$$&%j%9%H$,BeF~$5$l$^$9!#$5$i$K(J var[[2]] $B$NI>2A$O!"(J

	{v -> 2.92325}

$B$H$J$j$^$9!#(J $B$3$3$G;d$,M_$7$$$N$O!"$3$N7A<0$G$O$J$/(J
	var=2.92325
$B$H$$$&CM$b$7$/$O(J
	var={2.92325}
$B$N%j%9%H7A<0$G$9!#(J

$B$9$G$KD>@\%a%$%k$r$$$?$@$-$^$7$?$,!";d$NM_$7$$Ez$OF@$i$l$^$;$s$G$7$?!#(J

$B$I$J$?$+$465<x4j$$$^$9!#(J(_o_)


# $B@%2O!wEEAm8&$5$s$"$j$,$H$&$4$6$$$^$9!#(J

1992$BG/(J11$B7n(J30$BF|!J7n!K(J
-------------
nagatomo@ism.ac.jp
$BCfB<1JM'!wAm8&Bg!JE}?t8&!K(J