What I am looking for is something like the output of this code:
DiscretizeRegion[Line[{{0, 0}, {1, 0}, {1, 1}, {0, 1}}],
MaxCellMeasure -> {"Length" -> 0.1}]
but I just want to have a list of the points on this line.
Thanks
$\begingroup$
$\endgroup$
3
-
$\begingroup$ Does this answer your question? Generating evenly spaced points on a curve $\endgroup$– Alexey PopkovJul 30, 2022 at 2:33
-
1$\begingroup$ Does this answer your question? Breaking a Kinked line into $(n-1)$ segments of equal Euclidean distance? $\endgroup$– Michael E2Jul 30, 2022 at 2:57
-
1$\begingroup$ Both of the threads linked above treat very general situations; I think it is worthwhile to consider a line segment as a very special case. $\endgroup$– J. M.'s eventual burnout ♦Jul 30, 2022 at 14:29
Add a comment
|
2 Answers
$\begingroup$
$\endgroup$
0
This is easily done with Subdivide[] and some deft use of dot products:
lineSubdivide[{p1_, p2_}, n_Integer?Positive] :=
With[{t = Subdivide[n]}, Transpose[{1 - t, t}] . {p1, p2}]
{Graphics[Point[lineSubdivide[{{0, 0}, {1, 1}}, 10]], Axes -> True],
Graphics3D[Point[lineSubdivide[{{0, 0, 0}, {1, 1, 1}}, 10]]]}
$\begingroup$
$\endgroup$
Subdividesupport multiple coordinate.
Subdivide[{0, 0, 0}, {1, 1, 1}, 10]
MeshPrimitivescan get the coordinates. ( Here we do not useMeshCoordinatessince it not always in order.)
reg = DiscretizeRegion[Line[{p1, p2}],
MaxCellMeasure -> {"Length" -> 1/5}];
MeshPrimitives[reg, 1][[;; , 1]]
