Hi there,
I cannot run your code, because it is incomplete. It would be helpful to have the entire code. If I understand what you want to achieve correctly, substituting your Plot3 function by
Plot3[[j]] = ListLinePlot[ {Table[{Numericalkkk[[j + (i - 1)*15 + start3]],Numericalkx[[j + (i - 1)*15 + start3]]}, {i, 1, (NumberK - 1)/3 + 1}]}, PlotStyle -> {Green}]]
should exchange the axes, shouldn't it?
Cheers,
Marco
