Return to Answer

cylinders with colour

edited Jun 27, 2020 at 12:42

26.3k
2
23
98

You could try using some Cuboid's:

f[i_, j_] := i*j; data = Table[f[i, j], {i, 1, 25}, {j, 1, 25}]; bar[{i_, j_}, h_] := Cuboid[{i - 0.5, j - 0.5, 0}, {i + 0.5, j + 0.5, h}] Graphics3D[{ MapIndexed[bar[#2, #1] &, data, {2}] }, BoxRatios -> 1 ]

... and here I've spiced it up with colour, axes, and cylinders:

huescale = MinMax[data]; bar[{i_, j_}, h_] := {Hue[Rescale[h, huescale]], Cylinder[{{i, j, 0}, {i, j, h}}, 0.5]} Graphics3D[{ MapIndexed[bar[#2, #1] &, data, {2}] }, BoxRatios -> 1, Axes -> True, AxesLabel -> {i, j, f}, Lighting -> "Neutral" ]

You could try using some Cuboid's:

f[i_, j_] := i*j; data = Table[f[i, j], {i, 1, 25}, {j, 1, 25}]; bar[{i_, j_}, h_] := Cuboid[{i - 0.5, j - 0.5, 0}, {i + 0.5, j + 0.5, h}] Graphics3D[{ MapIndexed[bar[#2, #1] &, data, {2}] }, BoxRatios -> 1 ]

You could try using some Cuboid's:

f[i_, j_] := i*j; data = Table[f[i, j], {i, 1, 25}, {j, 1, 25}]; bar[{i_, j_}, h_] := Cuboid[{i - 0.5, j - 0.5, 0}, {i + 0.5, j + 0.5, h}] Graphics3D[{ MapIndexed[bar[#2, #1] &, data, {2}] }, BoxRatios -> 1 ]

... and here I've spiced it up with colour, axes, and cylinders:

huescale = MinMax[data]; bar[{i_, j_}, h_] := {Hue[Rescale[h, huescale]], Cylinder[{{i, j, 0}, {i, j, h}}, 0.5]} Graphics3D[{ MapIndexed[bar[#2, #1] &, data, {2}] }, BoxRatios -> 1, Axes -> True, AxesLabel -> {i, j, f}, Lighting -> "Neutral" ]

Source Link

answered Jun 27, 2020 at 12:32

flinty

26.3k
2
23
98

You could try using some Cuboid's:

f[i_, j_] := i*j; data = Table[f[i, j], {i, 1, 25}, {j, 1, 25}]; bar[{i_, j_}, h_] := Cuboid[{i - 0.5, j - 0.5, 0}, {i + 0.5, j + 0.5, h}] Graphics3D[{ MapIndexed[bar[#2, #1] &, data, {2}] }, BoxRatios -> 1 ]