rug :: partially generalized to 3D (but no interesting results)

hyperpoint.cpp

@@ -190,6 +190,16 @@ ld hypot_d(int d, const hyperpoint& h) {
   return sqrt(sqhypot_d(d, h));
   }
   
+ld sqdhypot_d(int d, const hyperpoint& a, const hyperpoint& b) {
+  ld sum = 0;
+  for(int i=0; i<d; i++) sum += (a[i]-b[i])*(a[i]-b[i]);
+  return sum;
+  }
+  
+ld dhypot_d(int d, const hyperpoint& a, const hyperpoint& b) {
+  return sqrt(sqdhypot_d(d, a, b));
+  }
+  
 ld zlevel(const hyperpoint &h) {
   if(euclid) return h[GDIM];
   else if(sphere) return sqrt(intval(h, Hypc));