How can I know the length of each part of the arrow and what their full length?
points = {{6, 32}, {9, 53}, {18, 42}, {32, 51}};
Graphics[{Arrow[points]}]
$\begingroup$
$\endgroup$
Add a comment
|
3 Answers
$\begingroup$
$\endgroup$
2
You can know the length of each part of the arrow and his full length in this way:
distList =
EuclideanDistance[points[[# + 1]], points[[#]]] & /@ Range[Length[points] - 1] // N
Plus @@ distList
{21.2132,14.2127,16.6433}
52.0692
-
2$\begingroup$ Same idea but more concise:
EuclideanDistance @@@ Partition[points, 2, 1]$\endgroup$– marchOct 5, 2016 at 20:18 -
1$\begingroup$ ...and then use
Total[]afterwards. $\endgroup$ Oct 5, 2016 at 20:18
$\begingroup$
$\endgroup$
To be concise in a different way:
N@Total@(Norm /@ Differences@points)
$\begingroup$
$\endgroup$
N[ArcLength/@Line/@Partition[points,2,1]]
{21.2132, 14.2127, 16.6433}
N@ArcLength[Line[points]]
52.0692
