===========================================================
Manipulate[
ListPointPlot3D[{Table[{(10^\[Alpha] - (10 - u)^\[Alpha])/
Gamma[\[Alpha] + 1], u, u + 0.5*Sin[u]}, {u, 0, 10, 0.1}],
Table[{(10^\[Alpha] - (10 - u)^\[Alpha])/Gamma[\[Alpha] + 1], 0,
u + 0.5*Sin[u]}, {u, 0, 10, 0.1}],
Table[{0, u, u + 0.5*Sin[u]}, {u, 0, 10, 0.1}]}, Filling -> Bottom,
BoxRatios -> {10, 10, 6}, AxesLabel -> {g, t, "f(t)"}], {\[Alpha],
0.001, 1}]
|