4 replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/
source | link

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"]

Mathematica graphics

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
]

Mathematica graphics

The original:

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"]

Mathematica graphics

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
]

Mathematica graphics

The original:

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"]

Mathematica graphics

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
]

Mathematica graphics

The original:

original

3 added 86 characters in body
source | link

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"]

Mathematica graphics

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
]

Mathematica graphicsMathematica graphics

The original:

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"]

Mathematica graphics

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}
]

Mathematica graphics

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"]

Mathematica graphics

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
]

Mathematica graphics

The original:

original

2 added 888 characters in body
source | link

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"]

Mathematica graphics

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}
]

Mathematica graphics

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"]

Mathematica graphics

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"]

Mathematica graphics

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}
]

Mathematica graphics

1
source | link