In[]:=
Points={{5.414348392917727`,4.531478714334182},{5.924633505667235,4.253796347146444},{6.48013829974836,4.423834040301968`}};
In[]:=
A=CircularArcThrough[Points]
Out[]=
Circle[{6.,5.},0.75,{0.696862,0.599004}]
In[]:=
Graphics[{A,Red,Point[Points]}]
Out[]=
ArcLength[A](*ofanarcpassingthroughasetofpoints.Alittlecircleline.*)
Out[]=
0.0733937
In[]:=
Graphics[{Circle[{6.,5.},0.75],Red,Point[Points]}](*Deletedvalues:{0.6968623738581966`,0.5990041608186071`}!!*)(*andthenWorksfine.*)
Out[]=