Hello everybody,
I need your help in doing the same Denominator.
My Input:
b[i_, s_] :=
Integrate[
Product[Piecewise[{{1, p == i}}, (p + \[Tau])/(p - i)], {p, 0, s}], {\[Tau], 0, 1}]
MyCoeffs = Table[b[i, s], {s, 0, 4}, {i, 0, s}]
My Output:
{{1}, {3/2, -(1/2)}, {23/12, -(4/3), 5/12}, {55/24, -(59/24), 37/24, -(3/8)}, {1901/720, -(1387/360), 109/30, -(637/360), 251/720}}
Now the Problem is that Mathematica don't let it on the same Denominator. I want to have the same Denominator in each list.
In the end i want to have this
{{1},{3/2,-(1/2)},{23/12, -(16/12), 5/12}, {55/24, -(59/24), 37/24, -(9/24)}, {1901/720, -(2774/720), 2616/720, -(1274/720), 251/720}}
Thanks for your help
Kind Regards
Zharou Fisher