This will also work:
ListPlot[Flatten[jnk, {{1, 3}, {2}}]]
by using Flatten only and not using Map.
Perfect. Thanks so much, Neil.
Paul,
The problem is that you are giving ListPlot a matrix instead of a list of x-y points. You can easily reformat your data into the correct format for ListPlot with
jnk = NestList[p, x, 2]; ListPlot[Map[Flatten[#, 2] & , jnk]]
Regards,
Neil
