Plotting moving dot in 2D graph
Animate[ListLinePlot[T2,
Epilog -> {PointSize[Large], Red, Point @ T2[[t]]}], {t, 1, Length @ T2, 1}]
Alternatively,
Animate[ListLinePlot[T2,
Mesh -> {{t}},
MeshFunctions -> {# &},
MeshStyle -> Directive[PointSize[Large], Red]],
{t, T2[[All, 1]]}]
same picture
There are many ways to do this. But here is a quick attempt to get you started
T2 = {{1, 0.0112401}, {2, 0.022343}, {3, 0.0263601}, {4,
0.0362769}, {5, 0.0487026}, {6, 0.0443083}, {7, 0.0568229}, {8,
0.0678723}};
Animate[Grid[
{
{Row[{"point ", i, " = ", T2[[i]]}]},
{Graphics[{PointSize[.04], Point[ T2[[i]]]}, Frame -> True,
PlotRange -> {{0, 8}, {-3, 3}}]}}, Spacings -> {1, 1}
] , {i, 1, Length@T2, 1}]