# make vice versa a diagram (reverse one axis)

Posted 9 years ago
3073 Views
|
2 Replies
|
3 Total Likes
|
 Hi every one. I wrote a command line to plot a graph now I need to vice versa the data to plot it. I want to plot the data from the last one to the first instead of the first to end. Would you please help me? Plot3 = Table[0, {NumberEigenf}]; For[j = 1, j <= NumberEigenf, j++, Plot3[[j]] = ListLinePlot[ {Table[{Numericalkx[[j + (i - 1)*15 + start3]], Numericalkkk[[j + (i - 1)*15 + start3]]}, {i, 1, (NumberK - 1)/3 + 1}]}, PlotStyle -> {Green}]] Figura3 = Show[Plot3[[1]], Plot3[[2]], Plot3[[3]], Plot3[[4]], Plot3[[5]], Plot3[[6]], Plot3[[7]], Plot3[[8]], Plot3[[9]], Plot3[[10]], Plot3[[11]], Plot3[[12]], Plot3[[13]], Plot3[[14]], Plot3[[15]], PlotRange -> {0, 7}, AxesOrigin -> {0, 0}] 
2 Replies
Sort By:
Posted 9 years ago
 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
Posted 9 years ago
 yes, Thank you very much Marco.
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments