Wolfram 언어

기호적 미적분과 수치적 미적분

역 멜린 변환 찾기

InverseMellinTransform을 사용하여 역 멜린 변환을 계산합니다.

In[1]:=
Click for copyable input
InverseMellinTransform[Gamma[s], s, x]
Out[1]=

InverseMellinTransform에 의해 예상되는 정칙 조각을 얻습니다.

In[2]:=
Click for copyable input
InverseMellinTransform[Gamma[s], s, x, GenerateConditions -> True]
Out[2]=

BesselJ로의 역 멜린 변환을 계산합니다.

In[3]:=
Click for copyable input
InverseMellinTransform[(2^(-1 + s) a^-s Gamma[1/2 + s/2])/ Gamma[3/2 - s/2], s, x]
Out[3]=

a의 다른 값에 대한 결과를 플롯합니다.

In[4]:=
Click for copyable input
InverseMellinTransform[(2^(-1 + s) a^-s Gamma[1/2 + s/2])/ Gamma[3/2 - s/2], s, x]; Plot[Table[% , {a, 1, 5}] // Evaluate, {x, 0, 7}]
Out[4]=

기본적인 역 멜린 변환 테이블을 생성합니다.

전체 Wolfram 언어 입력 표시하기
In[5]:=
Click for copyable input
flist = {1/s, 1/(s + 1), a^(s - 1), Gamma[s], Gamma[1 - s], \[Pi] Csc[\[Pi] s], Gamma[s] Sin[(\[Pi] s)/2], Cos[(\[Pi] s)/2] Gamma[s], \[Pi] Cot[\[Pi] s], 1/2 Gamma[s/2]}; TraditionalForm[ Simplify[Grid[ Map[Style[#, ScriptLevel -> 0] &, Join[{{HoldForm@f[s], HoldForm@InverseMellinTransform[f[s], s, x]}}, Transpose[{flist, (InverseMellinTransform[#1, s, x] &) /@ flist}]], {2}], Dividers -> All, Spacings -> {4, 2}, Background -> {None, {{None, GrayLevel[.9]}}, {{1, 1} -> Hue[.6, .4, 1], {1, 2} -> Hue[.6, .4, 1]}}, BaseStyle -> {FontFamily -> Times, FontSize -> 13}]]]
Out[5]//TraditionalForm=

관련 예제