How can I know the length of each part of the arrow and what their full length?

Question

points = {{6, 32}, {9, 53}, {18, 42}, {32, 51}};
Graphics[{Arrow[points]}]

BlacKow · Answer 1 · 2016-10-05T20:33:39.030

8

To be concise in a different way:

N@Total@(Norm /@ Differences@points)

edited Oct 05 '16 at 20:33

answered Oct 05 '16 at 20:25

BlacKow

score 5 · Accepted Answer · answered Oct 05 '16 at 20:16

5

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

answered Oct 05 '16 at 20:16

LCarvalho

2

Same idea but more concise: EuclideanDistance @@@ Partition[points, 2, 1] – march Oct 05 '16 at 20:18
1

...and then use Total[] afterwards. – J. M.'s missing motivation Oct 05 '16 at 20:18

score 3 · Answer 3 · answered Oct 10 '16 at 21:50

3

N[ArcLength/@Line/@Partition[points,2,1]]

{21.2132, 14.2127, 16.6433}

N@ArcLength[Line[points]]

52.0692

answered Oct 10 '16 at 21:50

kglr

3 Answers3