Message Boards Message Boards

0
|
3459 Views
|
2 Replies
|
3 Total Likes
View groups...
Share
Share this post:

make vice versa a diagram (reverse one axis)

Posted 10 years ago

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}]
POSTED BY: m m
2 Replies

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 BY: Marco Thiel
Posted 10 years ago

yes, Thank you very much Marco.

POSTED BY: m m
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract