4 replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/ edited Apr 13 '17 at 12:55 If I have time later tonight I'll give you a graphic matching demo as I did for other users herehere and herehere. As usualAs usual I recommend building a specific graphic from Graphics (or Graphics3D) primitives so I suggest you spend some time reading about those, e.g. Cuboid. As a quick fix you can use BarChart3D as follows: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; chart = BarChart3D[data, ChartLayout -> "Grid"]  There are many Options you can use to customize this. Please spend some time reading about those as well. Once you get comfortable with graphics primitives and the internal format of these objects you can perform manipulations on the output to further customize them. Okay, here is a fairly close approximation: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; data[[2 ;; 3, 2 ;; 3]] += 0.1; data3D = Join @@ MapIndexed[Append[#2, #] &, data, {2}]; labels = {"VV", "VH", "HV", "HH"}; bar[n_][{x_, y_, z_}] := Cuboid[{x - n, y - n, 0}, {x + n, y + n, z}] Graphics3D[ bar[0.25] /@ data3D, Axes -> True, LabelStyle -> {FontFamily -> "Helvetica", 19}, Ticks -> {MapIndexed[{5 - #2[[1]], #} &, labels], MapIndexed[{#2[[1]], #} &, labels], Automatic}, FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, BoxRatios -> {1, 1, 1}, BoxStyle -> AbsoluteThickness[2.5], PlotRangePadding -> 0.25, ViewPoint -> 1.5 {1.77, -2.29, 1.74}, ImageSize -> 330 ]  The original: If I have time later tonight I'll give you a graphic matching demo as I did for other users here and here. As usual I recommend building a specific graphic from Graphics (or Graphics3D) primitives so I suggest you spend some time reading about those, e.g. Cuboid. As a quick fix you can use BarChart3D as follows: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; chart = BarChart3D[data, ChartLayout -> "Grid"]  There are many Options you can use to customize this. Please spend some time reading about those as well. Once you get comfortable with graphics primitives and the internal format of these objects you can perform manipulations on the output to further customize them. Okay, here is a fairly close approximation: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; data[[2 ;; 3, 2 ;; 3]] += 0.1; data3D = Join @@ MapIndexed[Append[#2, #] &, data, {2}]; labels = {"VV", "VH", "HV", "HH"}; bar[n_][{x_, y_, z_}] := Cuboid[{x - n, y - n, 0}, {x + n, y + n, z}] Graphics3D[ bar[0.25] /@ data3D, Axes -> True, LabelStyle -> {FontFamily -> "Helvetica", 19}, Ticks -> {MapIndexed[{5 - #2[[1]], #} &, labels], MapIndexed[{#2[[1]], #} &, labels], Automatic}, FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, BoxRatios -> {1, 1, 1}, BoxStyle -> AbsoluteThickness[2.5], PlotRangePadding -> 0.25, ViewPoint -> 1.5 {1.77, -2.29, 1.74}, ImageSize -> 330 ]  The original: If I have time later tonight I'll give you a graphic matching demo as I did for other users here and here. As usual I recommend building a specific graphic from Graphics (or Graphics3D) primitives so I suggest you spend some time reading about those, e.g. Cuboid. As a quick fix you can use BarChart3D as follows: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; chart = BarChart3D[data, ChartLayout -> "Grid"]  There are many Options you can use to customize this. Please spend some time reading about those as well. Once you get comfortable with graphics primitives and the internal format of these objects you can perform manipulations on the output to further customize them. Okay, here is a fairly close approximation: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; data[[2 ;; 3, 2 ;; 3]] += 0.1; data3D = Join @@ MapIndexed[Append[#2, #] &, data, {2}]; labels = {"VV", "VH", "HV", "HH"}; bar[n_][{x_, y_, z_}] := Cuboid[{x - n, y - n, 0}, {x + n, y + n, z}] Graphics3D[ bar[0.25] /@ data3D, Axes -> True, LabelStyle -> {FontFamily -> "Helvetica", 19}, Ticks -> {MapIndexed[{5 - #2[[1]], #} &, labels], MapIndexed[{#2[[1]], #} &, labels], Automatic}, FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, BoxRatios -> {1, 1, 1}, BoxStyle -> AbsoluteThickness[2.5], PlotRangePadding -> 0.25, ViewPoint -> 1.5 {1.77, -2.29, 1.74}, ImageSize -> 330 ]  The original: 3 added 86 characters in body edited Mar 18 '13 at 10:30 Mr.Wizard♦ 235k3030 gold badges488488 silver badges10931093 bronze badges If I have time later tonight I'll give you a graphic matching demo as I did for other users here and here. As usual I recommend building a specific graphic from Graphics (or Graphics3D) primitives so I suggest you spend some time reading about those, e.g. Cuboid. As a quick fix you can use BarChart3D as follows: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; chart = BarChart3D[data, ChartLayout -> "Grid"]  There are many Options you can use to customize this. Please spend some time reading about those as well. Once you get comfortable with graphics primitives and the internal format of these objects you can perform manipulations on the output to further customize them. Okay, here is a fairly close approximation: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; data[[2 ;; 3, 2 ;; 3]] += 0.1;   data3D = Join @@ MapIndexed[Append[#2, #] &, data, {2}]; labels = {"VV", "VH", "HV", "HH"}; bar[n_][{x_, y_, z_}] := Cuboid[{x - n, y - n, 0}, {x + n, y + n, z}]   Graphics3D[ bar[0.25] /@ data3D, Axes -> True, LabelStyle -> {FontFamily -> "Helvetica", 2119}, Ticks -> {MapIndexed[{5 - #2[[1]], #} &, labels], MapIndexed[{#2[[1]], #} &, labels], Automatic}, FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, BoxRatios -> {1, 1, 1}, BoxStyle -> AbsoluteThickness[2.5], PlotRangePadding -> 0.1525, ViewPoint -> 1.5 {21.9777, -52.0529, 31.3774}, ImageSize -> 330 ]  The original: If I have time later tonight I'll give you a graphic matching demo as I did for other users here and here. As usual I recommend building a specific graphic from Graphics (or Graphics3D) primitives so I suggest you spend some time reading about those, e.g. Cuboid. As a quick fix you can use BarChart3D as follows: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; chart = BarChart3D[data, ChartLayout -> "Grid"]  There are many Options you can use to customize this. Please spend some time reading about those as well. Once you get comfortable with graphics primitives and the internal format of these objects you can perform manipulations on the output to further customize them. Okay, here is a fairly close approximation: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; data[[2 ;; 3, 2 ;; 3]] += 0.1;   data3D = Join @@ MapIndexed[Append[#2, #] &, data, {2}]; labels = {"VV", "VH", "HV", "HH"}; bar[n_][{x_, y_, z_}] := Cuboid[{x - n, y - n, 0}, {x + n, y + n, z}]   Graphics3D[ bar[0.25] /@ data3D, Axes -> True, LabelStyle -> {FontFamily -> "Helvetica", 21}, Ticks -> {MapIndexed[{5 - #2[[1]], #} &, labels], MapIndexed[{#2[[1]], #} &, labels], Automatic}, FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, BoxRatios -> {1, 1, 1}, BoxStyle -> AbsoluteThickness[2.5], PlotRangePadding -> 0.15, ViewPoint -> {2.97, -5.05, 3.37} ]  If I have time later tonight I'll give you a graphic matching demo as I did for other users here and here. As usual I recommend building a specific graphic from Graphics (or Graphics3D) primitives so I suggest you spend some time reading about those, e.g. Cuboid. As a quick fix you can use BarChart3D as follows: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; chart = BarChart3D[data, ChartLayout -> "Grid"]  There are many Options you can use to customize this. Please spend some time reading about those as well. Once you get comfortable with graphics primitives and the internal format of these objects you can perform manipulations on the output to further customize them. Okay, here is a fairly close approximation: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; data[[2 ;; 3, 2 ;; 3]] += 0.1; data3D = Join @@ MapIndexed[Append[#2, #] &, data, {2}]; labels = {"VV", "VH", "HV", "HH"}; bar[n_][{x_, y_, z_}] := Cuboid[{x - n, y - n, 0}, {x + n, y + n, z}] Graphics3D[ bar[0.25] /@ data3D, Axes -> True, LabelStyle -> {FontFamily -> "Helvetica", 19}, Ticks -> {MapIndexed[{5 - #2[[1]], #} &, labels], MapIndexed[{#2[[1]], #} &, labels], Automatic}, FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, BoxRatios -> {1, 1, 1}, BoxStyle -> AbsoluteThickness[2.5], PlotRangePadding -> 0.25, ViewPoint -> 1.5 {1.77, -2.29, 1.74}, ImageSize -> 330 ]  The original: 2 added 888 characters in body edited Mar 18 '13 at 10:17 Mr.Wizard♦ 235k3030 gold badges488488 silver badges10931093 bronze badges If I have time later tonight I'll give you a graphic matching demo as I did for other users here and here. As usual I recommend building a specific graphic from Graphics (or Graphics3D) primitives so I suggest you spend some time reading about those, e.g. Cuboid. As a quick fix you can use BarChart3D as follows: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; chart = BarChart3D[data, ChartLayout -> "Grid"]  There are many Options you can use to customize this. Please spend some time reading about those as well. Once you get comfortable with graphics primitives and the internal format of these objects you can perform manipulations on the output to further customize them. Okay, here is a fairly close approximation: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; data[[2 ;; 3, 2 ;; 3]] += 0.1; data3D = Join @@ MapIndexed[Append[#2, #] &, data, {2}]; labels = {"VV", "VH", "HV", "HH"}; bar[n_][{x_, y_, z_}] := Cuboid[{x - n, y - n, 0}, {x + n, y + n, z}] Graphics3D[ bar[0.25] /@ data3D, Axes -> True, LabelStyle -> {FontFamily -> "Helvetica", 21}, Ticks -> {MapIndexed[{5 - #2[[1]], #} &, labels], MapIndexed[{#2[[1]], #} &, labels], Automatic}, FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, BoxRatios -> {1, 1, 1}, BoxStyle -> AbsoluteThickness[2.5], PlotRangePadding -> 0.15, ViewPoint -> {2.97, -5.05, 3.37} ]  If I have time later tonight I'll give you a graphic matching demo as I did for other users here and here. As usual I recommend building a specific graphic from Graphics (or Graphics3D) primitives so I suggest you spend some time reading about those, e.g. Cuboid. As a quick fix you can use BarChart3D as follows: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; chart = BarChart3D[data, ChartLayout -> "Grid"]  There are many Options you can use to customize this. Please spend some time reading about those as well. Once you get comfortable with graphics primitives and the internal format of these objects you can perform manipulations on the output to further customize them. If I have time later tonight I'll give you a graphic matching demo as I did for other users here and here. As usual I recommend building a specific graphic from Graphics (or Graphics3D) primitives so I suggest you spend some time reading about those, e.g. Cuboid. As a quick fix you can use BarChart3D as follows: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; chart = BarChart3D[data, ChartLayout -> "Grid"]  There are many Options you can use to customize this. Please spend some time reading about those as well. Once you get comfortable with graphics primitives and the internal format of these objects you can perform manipulations on the output to further customize them. Okay, here is a fairly close approximation: data = SparseArray[Tuples[{1, 4}, 2] -> 0.3, {4, 4}, 0.01]; data[[2 ;; 3, 2 ;; 3]] += 0.1; data3D = Join @@ MapIndexed[Append[#2, #] &, data, {2}]; labels = {"VV", "VH", "HV", "HH"}; bar[n_][{x_, y_, z_}] := Cuboid[{x - n, y - n, 0}, {x + n, y + n, z}] Graphics3D[ bar[0.25] /@ data3D, Axes -> True, LabelStyle -> {FontFamily -> "Helvetica", 21}, Ticks -> {MapIndexed[{5 - #2[[1]], #} &, labels], MapIndexed[{#2[[1]], #} &, labels], Automatic}, FaceGrids -> {{-1, 0, 0}, {0, 1, 0}, {0, 0, -1}}, BoxRatios -> {1, 1, 1}, BoxStyle -> AbsoluteThickness[2.5], PlotRangePadding -> 0.15, ViewPoint -> {2.97, -5.05, 3.37} ]  1 answered Mar 16 '13 at 7:51 Mr.Wizard♦ 235k3030 gold badges488488 silver badges10931093 bronze badges