plots = RegionPlot3D[#, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}] & /@
{j1, j0 && MUB, j0 && Choi};
coords = Cases[#, GraphicsComplex[x_,__] :> Median/@Transpose[x], All][[1]]& /@ plots;
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];
Show[plots, texts3d,
AxesLabel -> {(Subscript[Q, 1],#] Subscript[Q,& 2]/@ {1, Subscript[Q2, 3]3})]
plots = RegionPlot3D[#, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}] & /@
{j1, j0 && MUB, j0 && Choi};
coords = Cases[#, GraphicsComplex[x_,__] :> Median/@Transpose[x], All][[1]]& /@ plots;
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];
Show[plots, texts3d,
AxesLabel -> {Subscript[Q, 1], Subscript[Q, 2], Subscript[Q, 3]}]
plots = RegionPlot3D[#, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}] & /@
{j1, j0 && MUB, j0 && Choi};
coords = Cases[#, GraphicsComplex[x_,__] :> Median/@Transpose[x], All][[1]]& /@ plots;
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];
Show[plots, texts3d, AxesLabel -> (Subscript[Q, #] & /@ {1, 2, 3})]
rp1plots = RegionPlot3D[j1RegionPlot3D[#, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
rp2 = RegionPlot3D[j0 && MUB, {Q1, 0, 1/2}, {Q2,] 0,& 1/3}, {Q3, 0,@ 1/4}];
rp3 = RegionPlot3D[j0 && Choi, {Q1, 0, 1/2}j1, {Q2,j0 0,&& 1/3}MUB, {Q3,j0 0,&& 1/4Choi}];;
coords = Cases[#, GraphicsComplex[x_,__] :>
Median/@Transpose[x], All][[1]]& /@ {rp1, rp2, rp3};plots;
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];
Show[rp1, rp2, rp3Show[plots, texts3d,
AxesLabel -> {Subscript[Q, 1], Subscript[Q, 2], Subscript[Q, 3]}]
rp1 = RegionPlot3D[j1, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
rp2 = RegionPlot3D[j0 && MUB, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
rp3 = RegionPlot3D[j0 && Choi, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
coords = Cases[#, GraphicsComplex[x_,__] :>
Median/@Transpose[x], All][[1]]& /@ {rp1, rp2, rp3};
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];
Show[rp1, rp2, rp3, texts3d,
AxesLabel -> {Subscript[Q, 1], Subscript[Q, 2], Subscript[Q, 3]}]
plots = RegionPlot3D[#, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}] & /@
{j1, j0 && MUB, j0 && Choi};
coords = Cases[#, GraphicsComplex[x_,__] :> Median/@Transpose[x], All][[1]]& /@ plots;
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];
Show[plots, texts3d,
AxesLabel -> {Subscript[Q, 1], Subscript[Q, 2], Subscript[Q, 3]}]
rp1 = RegionPlot3D[j1, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
rp2 = RegionPlot3D[j0 && MUB, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
rp3 = RegionPlot3D[j0 && Choi, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
coords = Cases[#, GraphicsComplex[x_, __] :> MaximalBy[x, Last, 1],
All][[1Median/@Transpose[x], 1]] &All][[1]]& /@ {rp1, rp2, rp3};
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];
Show[rp1, rp2, rp3, texts3d,
AxesLabel -> {Subscript[Q, 1], Subscript[Q, 2], Subscript[Q, 3]}]
rp1 = RegionPlot3D[j1, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
rp2 = RegionPlot3D[j0 && MUB, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
rp3 = RegionPlot3D[j0 && Choi, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
coords = Cases[#, GraphicsComplex[x_, __] :> MaximalBy[x, Last, 1],
All][[1, 1]] & /@ {rp1, rp2, rp3};
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];
Show[rp1, rp2, rp3, texts3d,
AxesLabel -> {Subscript[Q, 1], Subscript[Q, 2], Subscript[Q, 3]}]
rp1 = RegionPlot3D[j1, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
rp2 = RegionPlot3D[j0 && MUB, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
rp3 = RegionPlot3D[j0 && Choi, {Q1, 0, 1/2}, {Q2, 0, 1/3}, {Q3, 0, 1/4}];
coords = Cases[#, GraphicsComplex[x_,__] :>
Median/@Transpose[x], All][[1]]& /@ {rp1, rp2, rp3};
labels = {"PPT", "MUB", "CHOI"};
texts3d = Graphics3D[MapThread[Text, {labels, coords}], Axes -> True];
Show[rp1, rp2, rp3, texts3d,
AxesLabel -> {Subscript[Q, 1], Subscript[Q, 2], Subscript[Q, 3]}]