Search Results
| Search type | Search syntax |
|---|---|
| Tags | [tag] |
| Exact | "words here" |
| Author |
user:1234 user:me (yours) |
| Score |
score:3 (3+) score:0 (none) |
| Answers |
answers:3 (3+) answers:0 (none) isaccepted:yes hasaccepted:no inquestion:1234 |
| Views | views:250 |
| Code | code:"if (foo != bar)" |
| Sections |
title:apples body:"apples oranges" |
| URL | url:"*.example.com" |
| Saves | in:saves |
| Status |
closed:yes duplicate:no migrated:no wiki:no |
| Types |
is:question is:answer |
| Exclude |
-[tag] -apples |
| For more details on advanced search visit our help page | |
Results tagged with graphics3d
Search options not deleted
user 68574
For questions specific to the Graphics3D command and related 3D graphics functionality.
1
vote
2
answers
979
views
How to draw a cube?
Draw a cube, ABCDA1B1C1D1, with the length of the edge as 1. How to draw this cube and establish a space rectangular coordinate system at the same time. Point A on the bottom is the origin of the coor …
- 1
0
votes
How to find the cosine of dihedral angle on the premise of satisfying the line plane angle?
My own answer, I look forward to better solutions from everyone!
In[258]:= BM = t {p - b} // First
Out[258]= {-2 t, 0, 2 t}
In[259]:= M = BM + b
Out[259]= {2 - 2 t, 0, 2 t}
In[260]:= b
Out[260]= …
- 1
2
votes
1
answer
151
views
What objects can be placed in a cube container with a length of 1 meter?
AbsoluteThickness[2], {Red, Line[{{c, d}, {c, c1}, {b, c}}]}};
realLines = {AbsoluteThickness[2],
Line[{{a, b}, {a, d}, {d, d1}, {b, b1}, {a1, a}, {b, b1}, {b1,
a1}, {b1, c1}, {c1, d1}, {a1, d1}}]};
Show[Graphics3D … [{dashLines, realLines, labels}, Boxed -> False,
ViewPoint -> {2, 3.5, 1.28}],
Graphics3D[{Arrow[{{c1, c1 + {0, 0, 1}}, {d, d + {1, 0, 0}}, {b,
b + {0, 1, 0}}}],
Text[Style["z", 20, Italic …
- 1
2
votes
2
answers
626
views
How to draw four spheres of equal radius that are tangent to each other pairwise, and additi...
sphere = Sphere[{0, 0, 0}, 1];
Graphics3D[{sphere}]
Graphics3D[{sphere}, Boxed -> False, Lighting -> "Neutral",
Background -> Black]
How to draw four spheres of equal radius that are tangent to each …
- 1
1
vote
4
answers
278
views
What is a quick way to draw a regular pyramid?
Clear["`*"]
a = {0, 0, 0};
b = {2, 0, 0};
c = {2, 2, 0};
d = {0, 2, 0};
p = {1, 1, Sqrt[2]};
pyramid =
Graphics3D[Polyhedron[{{a, b, p}, {b, c, p}, {c, d, p}, {d, a, p}}],
Axes -> True, Boxed -> False …
- 1
1
vote
1
answer
188
views
How to draw a pyramid according to the requirements?
I am trying to solve the problem step by step, and I welcome your guidance
Draw a pyramid with the intersection point of the bottom diamond diagonal as the origin of the spatial coordinate system：
Graphics3D …
- 1
1
vote
1
answer
125
views
How to optimize and add code to complete this Conical Frustum?
[{dashLines, realLines, boundaryLines, labels}],
Graphics3D[{Thick, Dashed,
Line[{a, p}, VertexColors -> {Blue, Orange}]}],
Graphics3D[{Thick, Dashed, Red, Line[{q, p}]}],
Graphics3D[{Thick, … Dashed, Red, Line[{a, q}]}],
Graphics3D[{Thick, Dashed, Green, Line[{a, c}]}],
Graphics3D[{Thick, Dashed, Green, Line[{p, c}]}], cir1, cir2,
Boxed -> False, Axes -> False, ViewPoint -> {-0.29, -3.26 …
- 1
3
votes
1
answer
161
views
What method is there to translate and transform the coordinate system of a three-dimensional...
}}]}, {Red,
Line[{{c, b}, {d, c}}]}, {Purple, Line[{{e, f}}]}, {Black,
Line[{{e, a}, {d, e}}]}};
realLines = {AbsoluteThickness[2],
Line[{{a, d}, {a, b}, {b, d}, {a, f}, {b, f}}]};
Show[Graphics3D … RegionPlot3D[Polygon[{a, b, d}], MeshFunctions -> {#1 + #2 + #3 &},
PlotStyle -> Opacity[0.2]],
RegionPlot3D[Polygon[{a, b, f}], MeshFunctions -> {#1 + #2 + #3 &},
PlotStyle -> Opacity[0.3]],
Graphics3D …
- 1
3
votes
2
answers
124
views
How to optimize the method of drawing a Square Pyramidal Frustum?
{a, d}, {b, d}, {a, c}}]}};
realLines = {AbsoluteThickness[2],
Line[{{a, b}, {b, b1}, {a1, a}, {b, b1}, {b1, a1}, {c, c1}, {b1,
c1}, {c1, d1}, {b, c}, {a1, c1}, {b1, d1}, {a1, d1}}]};
Show[Graphics3D … [{dashLines, realLines, labels}, Boxed -> False,
ViewPoint -> {2, 3.5, 1.28}],
Graphics3D[{Arrow[{{o1 - o, o1 - o + {0, 0, 1}}, {a - o,
a - o + {1, 0, 0}}, {b - o, b - o + {0, 1, 0}}}], …
- 1
1
vote
2
answers
117
views
How to draw the projection of a figure on another plane and find the corresponding circumfer...
{a, c}}]}, {Red,
Line[{{c, d}, {c1, c}, {c, b}}]}};
realLines = {AbsoluteThickness[2],
Line[{{a, d}, {a, b}, {a1, a}, {b, b1}, {a1, d1}, {a1, b1}, {c1,
d1}, {b1, c1}, {d, d1}}]};
Show[Graphics3D … [{dashLines, realLines, labels}, Boxed -> False,
ViewPoint -> {2, 3.5, 1.28}],
RegionPlot3D[Polygon[{e, f, b1}], MeshFunctions -> {#1 + #2 + #3 &},
Mesh -> 20, PlotStyle -> Cyan],
Graphics3D[{ …
- 1
2
votes
3
answers
671
views
How can drawing this cone always show code running?
,Black}];
dashLines={Dashed,AbsoluteThickness[2],Line[{{o,p},{a,b},{a,c},{b,c}}]};
realLines={AbsoluteThickness[2],Line[{{a,p},{b,p}}]};
boundaryLines={AbsoluteThickness[2],Line[{{a,p},{b,p}}]};
Show[Graphics3D …
- 1
0
votes
1
answer
85
views
How to automatically draw the intersection line of two planes in spatial geometry?
,
Line[{{a, b}, {a, a1}}]}, {Black, Line[{{b, a1}}]}};
realLines = {AbsoluteThickness[2],
Line[{{a1, b1}, {a1, c1}, {b1, c1}, {b, c}, {b, b1}, {c,
c1}}], {Red, Line[{{c, b1}}]}};
Show[Graphics3D … [{dashLines, realLines, labels}, Boxed -> False,
ViewPoint -> {2, 3, 2}],
Graphics3D[{Arrow[{{d, d + {0, 0, 2}}, {b, b + {1, 0, 0}}, {c,
c + {0, 1, 0}}}],
Text[Style["z", Red, 20, Italic …
- 1
-5
votes
1
answer
133
views
How to draw such a spatial geometry and calculate its volume and surface area?
The shape of the spatial geometry is shown in the above figure. Specifically, it is as follows:
This is a cup with parallel circular surfaces at the top and bottom, and a portion of a spherical surfa …
- 1
0
votes
1
answer
166
views
How to fold a known planar figure into a spatial geometry?
A planar expansion diagram of a tetrahedron ABCD is shown in the above figure, where the quadrilateral AEFD has a diamond with a side length of 2Sqrt 2, B and C are the midpoints of AE and FD, respec …
- 1
0
votes
0
answers
57
views
How to draw a dynamic graph where the sum of the internal distances is a constant value?
FontFamily -> "Times"], s, {2, -1}]};
dashLines = {Dashed, AbsoluteThickness[2], {Black, Line[{{a, c}}]}};
realLines = {AbsoluteThickness[2],
Line[{{s, a}, {s, c}, {b, s}, {b, a}, {b, c}}]};
Show[Graphics3D … [{dashLines, realLines, labels}, Boxed -> False,
ViewPoint -> {2, 3, 2}],
Graphics3D[{Arrow[{{s, s + {0, 0, 1}}, {a, a + {2, 0, 0}}, {c,
c + {0, 1, 0}}}],
Text[Style["z", Red, 20, Italic …
- 1