graphics3d – Caption of individual objects created by RegionPlot3D

I have these commands

j0 = Q1> 0 && Q2> 0 && Q3> 0 && Q1 + 3 Q2 + 2 Q3 <1; j1 = j0 && Q1 ^ 2 + 3 Q2 Q1 + (3 Q2 + Q3) ^ 2 <3 Q2 + 2 Q1 Q3; Choi = 2 Q3 + 1<2 Q1+3 Q2;MUB=Q1>3 Q2 + 4 Q3; show[RegionPlot3D[j1,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Index[Q, 2]","Index[Q, 3]"}], RegionPlot3D[j0&&MUB,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4},AxesLabel->{"Subscript[Q, 1]","Index[Q, 2]","Index[Q, 3]"}], RegionPlot3D[j0&&Choi,{Q1,0,1/2},{Q2,0,1/3},{Q3,0,1/4}], AxesLabel -> {"subscript[Q, 1]","Index[Q, 2]","Index[Q, 3]"}]

what creates a three-dimensional diagram. I want to call the first (largest) created object "PPT", the second object "MUB" and the third object "Choi".

I would also like general recommendations for improving / presenting the plot (coloring, …).

Polygons – How to Remove Unwanted Lines in Graphics3D

When I run the following code:

Graphics3D[{{EdgeForm[{Black, Thick}], Red,
polygon[{{0, 0, 0}, {0, 1, 0}, {1, 1, 0}, {1, 0, 
      0}}]}, {EdgeForm[{Black, Thick}], Red,
polygon[{{1, 0, 0}, {1, 1, 0}, {2, 1, 0}, {2, 0, 
      0}}]}, {EdgeForm[{Black, Thick}], Green,
polygon[{{0, 0, 0}, {2, 0, 0}, {2, 0, 1}, {0, 0, 1}}]}}
ViewPoint -> {-2, -1, 1}]

Enter image description here

I get unwanted "check marks" at the bottom of the green polygon, for lack of a better expression, but only in certain angles. I do not know why they are there at all, as I have not come to terms with opacity and they only appear where the polygons meet. MY QUESTION: How do I remove these marks while still having a thick edge for each polygon?

Besides, I know that I just need it rectangle[] if i wanted to do the above plot without the markers, but my question is for polygon[], Many Thanks

graphics3d – Draw trajectories that undergo a module operation on a surface

I'm trying to draw an orbit as a surface in the extended phase space of the system

$$ dot {q} = p $$
$$ dot {p} = – sin (q) (1 + epsilon sin (θ)) $$
$$ dot { theta} = omega $$

When $ epsilon = 0 $ the dynamics can be shown on the picture $ p, q $ Phase space (without extension of the phase space)

                f[p_, q_, [Theta]_]: = p;
G[p_, q_, [Theta]_]: = -Sin[
          q] (1 + [Epsilon] sin[[Theta]]);
H[p_, q_, [Theta]_]: = [Omega];
H[q_, p_] : = 1/2 p ^ 2 - Cos[q];
[Delta] = 0; [Epsilon] = 0.1; [Omega] = 1; tf = 10;

show[
 {ContourPlot[H[q, p] == 1, {q, -2 [Pi], 2 [Pi]}, {p, -6, 6},
Contours -> 100, ContourStyle -> {Red, Dick}].
StreamPlot[{P-Sin[{P-Sin[{p-Sin[{p-Sin[q]}, {q, -2 [Pi], 2 [Pi]}, {p, -6, 6},
StreamPoints -> Fine, PlotRangePadding -> 0, ImageSize -> 500]}]

Enter image description here

where I'm interested in the dynamics on the red curve.
d
I would like the curves on the orbit (red curve) in the extended phase space so that $ & thetas; = mod (θ, 2π) $

When I try to draw a trajectory, I have a connecting line between each section that was moved with the trajectory $ mod $ function

                [Delta] = 0; [Epsilon] = 0.5; [Omega] = 4; tf = 10;
sol = NDSolve[{q'
p & # 39;
H[p
When event[Mod[Mod[Mod[Mod[[Theta]
p[0] == .1, q[0] == .1, [Theta][0]    == 0}, {p, q, [Theta]}, {t, 0,
tf}]plot[Rate[Evaluate[Bewerten[Evaluate[[Theta]
assess[{P[{P[{p[{p
Aspect ratio -> 1/2]

Enter image description here
Enter image description here

At the end, I want to get a 3D representation of the surface with the associated trajectories, as shown in the following figure

Enter image description here

graphics3d – The ListPlot3D label is covered by the interface in a combined graphic

I'm trying to draw some points on the upper leaf of the hyperboloid. When I try to label them, the label is partially covered by the surface. You can see this in the following code

show[{
  ParametricPlot3D[{Sinh[x] sin[y]sinh[x] cos[y]cosh[x]}, {x, 0,
1}, {y, -Pi, Pi}, PlotStyle -> {Opacity[1], Yellow}, Mesh -> {5, 10},
PlotPoints -> {2, 100}].
ListPointPlot3D[{{Sinh[0.5] sin[Pi/2]sinh[0.5] cos[Pi/2].
cosh[0.5]} -> style["CS", 15]}]}]

The label is blocked by the surface

How can I show the label in front of the surface? I tried to change the style[“CS”, 15] send someone an SMS["C"{Sinh["C"{Sinh[“C”{Sinh[“C”{Sinh[0.5] sin[Pi/2]sinh[0.5] cos[Pi/2]cosh[0.5]}]and it does not help.

Many Thanks!

To edit: I use these commands in a manipulation command (in which the size of the hyperboloid changes along with other drawn planes and curves). and I do not know the final position, so moving the text or changing your position is not a great solution. I want to look at it from different angles and always be able to see the label. Is there a way to render the labels last (the top)?

graphics3d – Tooltip for 3D polyhedron vertices

How is it possible to use the tooltip to emphasize vertices of a polyhedron? Would like the coordinate display when moving the mouse pointer over the vertex. Thanks for your help.

Rohn = PolyhedronData["Icosidodecahedron", "VertexCoordinates"];
DelaunayMesh[Rohn]
show[ListPlot3D[Rohn, AxesStyle -> Thickness[0.005].
AxesLabel -> {"X", "Y", "Corr (X, Y)"},
AxesEdge -> {{-1, -1}, {-1, -1}, {-1, -1}}].
ListPointPlot3D @
Tooltip @ flattening[MapIndexed[Flatten@{#2, #1} &, Rohn, {2}], 1]]

graphics3d – 2 coordinate rotations and a translation for a 4×4 matrix

I am looking for 2 coordinate rotations and a translation. I want to move the new coordinate system by x, y, z (in the directions of the same name) and then by theta in the x-hat direction (y & z plane) and then phi in the y-hat direction ( z & y) is rotated plane).

Currently, I'm trying to do two rotations around any vector, the first of which is simply the y-axis and the second is the direction of the global x-axis, represented by the once-rotated coordinate frame.

Frontend – Can an input cell be created with Graphics / Graphics3D without Hold?

I'm trying to implement a function that needs a graphic Statement as argument and then duplicate it in a new one input Cell, I am aware of the rendering of graphic is the sentence process explained here. And use the techniques in this post that I came up with

@ Hold Hold;
mk: MakeBoxes[Blank[Hold],]/; ! TrueQ[[[[$ hldGfx]^: =
block[{$[{$[{$[{$hldGfx = True, Graphics, Graphics3D}, mk];
Protect @ Hold;

SetAttributes[printGraphics, HoldFirst];
print graphics[graphics_] : =
CellPrint[Cell[BoxData[RowBox[{
      ToBoxes[Hold[graphics]]}]], "Input"]] 

To runprintGraphics @ Graphics[{Red, Disk[]}] creates a cell with Stop[Graphic[Graphics[Grafik[Graphics[{Red, Disk[]}]],

My question is whether it is possible to create a cell without Stop,

If you are interested in the reason I need, here are the functions I am working on: see section Minimal example in here (Github: PrettyColorize). plot. Plot3D or other plot function can be easily printed while graphic and Graphics3D are a little tricky and I'm not sure how to get over it.

Geometric Transformation – Difficulty Viewing an untransformed and transformed Graphics3D object with Show

I want to illustrate a sequence of shifts and rotations relative to the original coordinate system simultaneously with multiple views using manipulation. I've found that there are some transformations that do not work well with untransformed Show objects.

Are there some settings or maybe a better structure to make the process more robust?

I use Mathematica 12.0 ("12.0.0 for Microsoft Windows (64-bit) (April 6, 2019)") and I have the same results on two different Windows 7 and 10 computers.

Here is the code for my toy model.

(* Create transformation function *)
(* Unit vectors *)
{ex, ey, ez} = UnitVector[3, #] & / @ {1, 2, 3};
(* Setting up the transformation function *)
m = IdentityMatrix[4];
(* Rotation part *)
m[[1 ;; 3, 1 ;; 3]]=
rotation matrix[c, ey].EulerMatrix[{a, b, 0}, {2, 1, 2}];
(* Translation part *)
m[[1 ;; 3, -1]]= {r Cos[-a], y, r Sin[-a]};
transform[a_, b_, c_, r_, y_] = Transformation Function[m];
(* Create base graphics for axes and reference geo *)
Axes = {red, arrow[{{0, 0, 0}, {#, 0, 0}}], Green,
arrow[{{0, 0, 0}, {0, #, 0}}], Blue,
arrow[{{0, 0, 0}, {0, 0, #}}]} &;
sphereaxes = {Dashed} ~ Join ~ Axes[#]~
Join ~ {White, Specularity[White, 50], Opacity[0.1].
Bullet[{0, 0, 0}, #]} &;
cyl = {white, specularity[White, 50], Opacity[0.1].
cylinder[{{0, 0, 0}, {0, 2, 0}}, 1]};
(* Scene objects *)
refgr = Graphics3D[axes[1/4]~ Join ~ cyl, Boxed -> False,
ViewProjection -> "Orthographic"];
movgeo = spherical axes[1/3];

The manipulation code:

(* Create slider model *)
Manipulate[
 With[{
   movgeotr = 
    Graphics3D@
     GeometricTransformation[movgeo, transform[a, b, c, x, y]]},
Graphics Grid[{
    {Show[{refgr, movgeotr}, ViewPoint -> Back, 
      ViewVertical -> {0, 0, -1}].
show[{refgr, movgeotr}, ViewPoint -> {0, 0, Infinity}]},
{Show[{refgr, movgeotr}, ViewPoint -> {-Infinity, 0, 0}, 
      ViewVertical -> {-1, 1, 0}].
show[{refgr, movgeotr}, 
      ViewPoint -> {Infinity, Infinity, Infinity}, 
      ViewVertical -> {0, 1, 0}]}
}, Divisor -> center, border -> all, distances -> scaled[0.25].
ImageSize -> Medium]].
{x, 0, 1}, {y, 0, 1}, {a, 0, 360 degrees}, {b, 0, 180 degrees}, {c, 0,
360 degrees}]

When I execute the manipulate expression, there are certain conditions that cause most views to be displayed poorly, as shown below:

Edit animation

A minimal case to produce the effect is shown below:

Graphics3D @ Geometric Transformation[movgeo, transform[0, 0, 0, 0.4, 0]]show[{Refgr,
Graphics3D @
Geometric transformation[movgeo, transform[0, 0, 0, 0.4, 0]]},
ViewPoint -> {0, 0, Infinity}]

Minimal result

The transformed object is displayed with Graphics3D, but not when combined with the untransformed object in Show. Every advice is appreciated.

graphics3d – Arrow tube with flat arrowhead

I'm trying to create an animation that contains a spinning 3D arrow, but the arrowhead seems to be flat:

Manipulate[
 Show[{ListPointPlot3D[{{Cos[[Theta]]Sin[[Theta]]0}}
PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}, {-700, 1000}},
PlotStyle -> {PointSize[0.05]Black}, axes -> wrong,
Boxed -> False, ImageSize -> 500, AspectRatio -> 1],
Graphics3D[
    Scale[{Orange, Arrowheads[0.0003], Thickness[0.006],
arrow[Tube[{{Cos[Tube[{{Cos[Tube[{{Cos[Tube[{{Cos[[Theta]]Sin[[Theta]], 0}, {Cos[[Theta]],
sin[[Theta]]-500}}, 0,03], -2]}, {1, 1,
1}, {Cos[[Theta]]Sin[[Theta]], 0}]]},
ViewPoint -> {Pi, Pi, 1}]{{[Theta]0, 2 [Pi]}]

I've tried to change all sorts of areas, the aspect ratio, the point of view, the size of the arrowhead, and insert a cone as the style of the arrowhead, but in the end they all look flat or simply disappear. I'm not sure if it's easy to pick the parameters of any of the options I've already tried, or is there something completely different that should be done?