Return to Answer

added 376 characters in body

edited Mar 4, 2021 at 16:37

SeedRandom@2 M = RandomReal[1, {5, 9}]; {r, c} = Dimensions@M; xTicks = Transpose@{Range@c, 10 + Range@c}; yTicks = Transpose@{Range@r, 0 + Range@r}; ArrayPlot[M, FrameTicks -> {{yTicks, yTicks}, {xTicks, xTicks}}, DataReversed -> True]

m2 = M[[All, 2 ;; 8]]; {r, c} = Dimensions@m2; xTicks = Transpose@{Range@c, 11 + Range@c}; yTicks = Transpose@{Range@r, 0 + Range@r}; ArrayPlot[m2, FrameTicks -> {{yTicks, yTicks}, {xTicks, xTicks}}, DataReversed -> True]

m2 = M[[2 ;; 4, 2 ;; 8]]; {r, c} = Dimensions@m2; ticks[xStart_, yStart_] := {Transpose@{Range@r, yStart + Range@r - 1}, Transpose@{Range@c, xStart + Range@c - 1}} ArrayPlot[m2, FrameTicks -> Transpose@{ticks[12, 6], ticks[12, 6]}, DataReversed -> True]

SeedRandom@2 M = RandomReal[1, {5, 9}]; {r, c} = Dimensions@M; xTicks = Transpose@{Range@c, 10 + Range@c}; yTicks = Transpose@{Range@r, 0 + Range@r}; ArrayPlot[M, FrameTicks -> {{yTicks, yTicks}, {xTicks, xTicks}}, DataReversed -> True]

m2 = M[[All, 2 ;; 8]]; {r, c} = Dimensions@m2; xTicks = Transpose@{Range@c, 11 + Range@c}; yTicks = Transpose@{Range@r, 0 + Range@r}; ArrayPlot[m2, FrameTicks -> {{yTicks, yTicks}, {xTicks, xTicks}}, DataReversed -> True]

SeedRandom@2 M = RandomReal[1, {5, 9}]; {r, c} = Dimensions@M; xTicks = Transpose@{Range@c, 10 + Range@c}; yTicks = Transpose@{Range@r, 0 + Range@r}; ArrayPlot[M, FrameTicks -> {{yTicks, yTicks}, {xTicks, xTicks}}, DataReversed -> True]

m2 = M[[All, 2 ;; 8]]; {r, c} = Dimensions@m2; xTicks = Transpose@{Range@c, 11 + Range@c}; yTicks = Transpose@{Range@r, 0 + Range@r}; ArrayPlot[m2, FrameTicks -> {{yTicks, yTicks}, {xTicks, xTicks}}, DataReversed -> True]

m2 = M[[2 ;; 4, 2 ;; 8]]; {r, c} = Dimensions@m2; ticks[xStart_, yStart_] := {Transpose@{Range@r, yStart + Range@r - 1}, Transpose@{Range@c, xStart + Range@c - 1}} ArrayPlot[m2, FrameTicks -> Transpose@{ticks[12, 6], ticks[12, 6]}, DataReversed -> True]

Source Link

answered Mar 4, 2021 at 16:13

OkkesDulgerci

SeedRandom@2 M = RandomReal[1, {5, 9}]; {r, c} = Dimensions@M; xTicks = Transpose@{Range@c, 10 + Range@c}; yTicks = Transpose@{Range@r, 0 + Range@r}; ArrayPlot[M, FrameTicks -> {{yTicks, yTicks}, {xTicks, xTicks}}, DataReversed -> True]

m2 = M[[All, 2 ;; 8]]; {r, c} = Dimensions@m2; xTicks = Transpose@{Range@c, 11 + Range@c}; yTicks = Transpose@{Range@r, 0 + Range@r}; ArrayPlot[m2, FrameTicks -> {{yTicks, yTicks}, {xTicks, xTicks}}, DataReversed -> True]