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 3d-printing
Search options answers only
not deleted
user 72111
3D printing is a process of making a three-dimensional solid object of virtually any shape from a digital model. Mathematica makes it possible to take complex algorithmically generated geometry and immediately output it for 3D printing--allowing the creation of physical 3D objects and models. Mathematica also provides broad support for importing arbitrary 3D scanning data for immediate analysis and visualization.
4
votes
Trying to construct graphics for tubular lines on a torus for 3D printing
Working around. Discretize the objects before Show.
paramTorus[{u_, v_}, scale_ : 1] :=
1/(Sqrt[2] - Cos[2 Pi v])*
scale*{Cos[2 Pi u], Sin[2 Pi u], Sin[2 Pi v]};
pts = Flatten[Table[{i, j}, {i …
- 84.1k
4
votes
Generating a thick spherical gyroid object for 3D printing
Reply the comment: export stl format
r = 2 Pi; solid =
ContourPlot3D[
Sin[x] Cos[y] + Sin[y] Cos[z] + Sin[z] Cos[x] == 0, {x, -r,
r}, {y, -r, r}, {z, -r, r},
RegionFunction -> Function[{x, …
- 84.1k
2
votes
Prepare Lorentz attractor for 3D Printing
Export["test.stl", g /. Line -> Tube]
Export["test.stl",g /. Line[a_] -> Tube[a, .5]]
- 84.1k
4
votes
Problem obtaining STL file from Graphics
Clear[model];
f[x_, y_] = 3/(x^2 + y^2 + 1);
model = With[{h = .5},
RegionUnion[(Cuboid @@ # &) /@
Flatten[Table[{{x, y, 0}, {x + h, y + h,
f[x + h/2, y + h/2]}}, {x, -2, 2 - h, h}, …
- 84.1k
7
votes
Accepted
Generate 3D graphics with fractal geometry slices like Julia set
test the GradientFittedMesh approach.
Clear["Global`*"];
pt[z_] :=
JuliaSetPoints[(x + z) + I (y + 0.5 z) /. {x -> 0, y -> .5}]
zfactor = 10;
pts = Flatten[
Table[PadRight[#, 3, zfactor*z] & /@ …
- 84.1k
1
vote
Exporting several prisms (or Polyhedrons) to stl (with filled inner space)
Update
Perhaps we can direct use BoundaryMeshRegion
Clear["`*"];
bmr1 = BoundaryMeshRegion[{{0, 0}, {1, 0}, {1, 1}, {0, 1}, {2, 1}, {2,
2}, {1, 2}}, Line[{{1, 2, 4, 1}, {3, 5, 6, 3}}]];
bmr2 = B …
- 84.1k
3
votes
3d printing flat pattern
Do you mean this?
pts2 = {{1, 0}, {3, 0}, {2, 1}, {2, 2}, {3, 3}, {4, 3}, {5, 2}, {5,
1}, {4, 0}, {5, 0}, {5, -1}, {1, -1}};
pts3 = PadRight[pts2, {Automatic, 3}];
reg = Polygon[pts3];
Graphics3D …
- 84.1k
5
votes
Accepted
Making a 3D-solid from RevolutionAxis
Revolve three parametric curves. {x, f[x]} , {0, y} and {4, y}
SetOptions[RevolutionPlot3D, Mesh -> False];
f[x_] := Sqrt[E^-x (1 + E^x)^2];
a = RevolutionPlot3D[{x, f[x]}, {x, 0, 4},
RevolutionAx …
- 84.1k
4
votes
How to do boolean operations between a large amount of regions
We subdivide the arc according to its arc length.
Here we use NDSolve to do such subdivide as in my previous answers.
https://mathematica.stackexchange.com/a/242188/72111
f[t_] = {Sqrt[40^2 - t^2] Cos …
- 84.1k
2
votes
Accepted
How do to create 3D plot for the argument from two another arguments for maximum of the func...
Replace Abs[Cos[t]] with Sqrt[Cos[t]*Cos[t] ], we can calculate D[f1, t].
Then we use ContourPlot3D to plot the equation D[f1, t] == 0 and D[f1, {t, 2}] < 0
Clear[f1];
f1 = Sqrt[Cos[t]*Cos[t]] (S …
- 84.1k
2
votes
How to save in STL format for 3D printing?
Another way maybe use RegionPlot3D. Here we calculate the normal of surface and then perturbate the surface along the normal to create a thick surface.
r = 2 Pi;
f = Sin[x] Cos[y] + Sin[y] Cos[z] + S …
- 84.1k
13
votes
Accepted
Programming twisted pyramids based on polygon spirals
Edit
Another effect.
Clear["Global`*"];
ptss = Table[
TranslationTransform[{0, 0, -θ}]@*
ScalingTransform[θ*{1, 1, 1}]@*
RotationTransform[-θ, {0, 0, 1}] /@ (PadRight[#, 3] & /@
Ci …
- 84.1k