Plotting after a computation results in errors indicating the expression is not a machine size variable. How can a limit or other means be use to achieve the desired plot.
Subscript[(J^2), mmnn] that you have calculated is a list of points so
ListPlot[Subscript[(J^2),mmnn], Joined->True]
will plot that without any problems.
