powered by
smoothArc
distPoints(A, B)
dp<-distPoints(c(0,0), c(1,1)); dp; dp^2;
Run the code above in your browser using DataLab