Drücken Sie Funktionen in einer MeijerG-Funktion aus: Neu in Wolfram Language 11

‹›

Drücken Sie Funktionen in einer MeijerG-Funktion aus

Repräsentieren Sie Sin durch MeijerG.

In[1]:=

MeijerGReduce[Sin[x], x]

Out[1]=

Stellen Sie den ursprünglichen Ausdruck wieder her.

In[2]:=

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

Out[2]=

Erstellen Sie eine Galerie von MeijerG-Repräsentationen.

Den kompletten Wolfram Language-Input zeigen

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=

Den kompletten Wolfram Language-Input zeigen

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]]]