Wolfram言語

記号的微積分と数値的微積分

関数をMeijerGで表す

SinMeijerGで表す.

In[1]:=
Click for copyable input
MeijerGReduce[Sin[x], x]
Out[1]=

もとの式を復元する.

In[2]:=
Click for copyable input
MeijerGReduce[Sin[x], x]; Activate[%]
Out[2]=

MeijerGによる表現のギャラリーを作成する.

完全なWolfram言語入力を表示する
In[3]:=
Click for copyable input
flist = {E^(-x), Sin[x], Cos[x], Sinh[x], Cosh[x], BesselJ[n, x], BesselK[n, x], AiryAi[x], AiryBi[x], Hypergeometric2F1[a, b, c, x], UnitStep[x - 1], UnitBox[x]}; TraditionalForm @ ReplaceAll[ Grid[Map[Style[#, ScriptLevel -> 0] &, Join[{{HoldForm[f[x]], Text["MeijerG Representation"]}}, Transpose[{flist, Map[MeijerGReduce[#, x] &, flist]}]], {2}], Background -> {None, {{None, GrayLevel[.9]}}, {{1, 1} -> Hue[.6, .4, 1], {1, 2} -> Hue[.6, .4, 1]}}, BaseStyle -> {FontFamily -> Times, FontSize -> 13}, Dividers -> All, FrameStyle -> Hue[.6, .4, .8], Spacings -> {2, 1}], Inactive[MeijerG][args__] :> HoldForm[MeijerG[args]]]
Out[3]//TraditionalForm=

関連する例

de en es fr ko pt-br ru zh