Advanced Search

Question: How i can convert this mathematic code to maple

Question:How i can convert this mathematic code to maple

Dr. Abdel-karrem Alomari 5 Maple 12
mathematica import
September 28 2019
1

How i convert the following mathematica code to Maple

f1[t^m_] := Gamma [m + 1] t^(m - a[t]) /Gamma[m + 1 + a[t]];
f1[t] := Gamma [2] t^(1 - a[t]) /Gamma[2 + a[t]];

f1[p_Plus] := Map[f1, p]
f1[c_*f_] := c*f1[f] /; FreeQ[c, t]
f1[c_] := 0 /; FreeQ[c, t]

f1[x^2*t^2 + t + x]

gives

t^(1 - a[t])/Gamma[2 + a[t]] + (2 t^(2 - a[t]) x^2)/Gamma[3 + a[t]]
Please Wait...