Wolfram 언어™

함수를 MeijerG로 표현

Sin을 MeijerG로 나타냅니다.

In[1]:=

MeijerGReduce[Sin[x], x]

Out[1]=

아래의 식을 복원합니다.

In[2]:=

MeijerGReduce[Sin[x], x]; Activate[%]

Out[2]=

MeijerG에 의한 표현 갤러리를 만들 수 있습니다.

In[3]:=

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=

In[4]:=

flist = {E^(-x), Sin[x], Cos[x]}; TraditionalForm @ ReplaceAll[ Pane[Grid[ Map[Style[#, ScriptLevel -> 0] &, Join[{}, Transpose[{flist, Map[MeijerGReduce[#, x] &, flist]}]], {2}], Background -> {None, {{Lighter@Lighter@ColorData[97][3], None}}}, BaseStyle -> {FontFamily -> Times, FontSize -> 19.25}, Dividers -> All, Spacings -> {2, 2.775}], {300, 300}, BaseStyle -> {Background -> None}], Inactive[MeijerG][args__] :> HoldForm[MeijerG[args]]]