Advertisement
Guest User

Untitled

a guest
Dec 8th, 2016
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.65 KB | None | 0 0
  1. data = Flatten[Table[{x, y, x + y}, {x, 0, 10}, {y, 0, 10}], 1];
  2. plot = Block[{data2, xmin, xmax, ymin, ymax},
  3. data2 =
  4. Reverse[Transpose[
  5. Partition[data[[All, 3]],
  6. Length[DeleteDuplicates[data[[All, 2]]]]]]];
  7. xmin = Min[data[[All, 1]]];
  8. xmax = Max[data[[All, 1]]];
  9. ymin = Min[data[[All, 2]]];
  10. ymax = Max[data[[All, 2]]];
  11. Show[ArrayPlot[data2,
  12. ColorFunction -> "M10DefaultDensityGradient",
  13. PlotRangePadding -> None,
  14. FrameTicks -> All,
  15. DataRange -> {{xmin, xmax}, {ymin, ymax}}],
  16. PlotRange -> {{xmin, xmax}, {ymin, ymax}}]];
  17. Export["plot.pdf", plot]
  18. Export["plot.png", plot, ImageResolution -> 500]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement