読者です 読者をやめる 読者になる 読者になる

INFINITY -数学とかプログラミングとか-

統計とプログラムを使って役に立たせたい

TeX用コマンド入力を支援するための辞書をご利用ください。
sanctuary's blogは,適当なことが書いてあります。

cumulant

In[120]:= p[a_] := Log[q[a]]

In[132]:= u = D[p[a], {a, 4}]

Out[132]= -((6 Derivative[1][q][a]^4)/q[a]^4) + (
 12 Derivative[1][q][a]^2 (q^\[Prime]\[Prime])[a])/q[a]^3 - (
 3 (q^\[Prime]\[Prime])[a]^2)/q[a]^2 - (4 Derivative[1][q][a] 
\!\(\*SuperscriptBox[\(q\), \*
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None]\)[a])/q[a]^2 + 
\!\(\*SuperscriptBox[\(q\), \*
TagBox[
RowBox[{"(", "4", ")"}],
Derivative],
MultilineFunction->None]\)[a]/q[a]

In[133]:= Together[u]

Out[133]= (-6 Derivative[1][q][a]^4 + 
 12 q[a] Derivative[1][q][a]^2 (q^\[Prime]\[Prime])[a] - 
 3 q[a]^2 (q^\[Prime]\[Prime])[a]^2 - 4 q[a]^2 Derivative[1][q][a] 
\!\(\*SuperscriptBox[\(q\), \*
TagBox[
RowBox[{"(", "3", ")"}],
Derivative],
MultilineFunction->None]\)[a] + q[a]^3 
\!\(\*SuperscriptBox[\(q\), \*
TagBox[
RowBox[{"(", "4", ")"}],
Derivative],
MultilineFunction->None]\)[a])/q[a]^4