// Funzioni per il calcolo del prodotto scalare e della distanza euclidea
// tra due vettori

#include <math.h>
using namespace std;

// Funzione Prodotto Scalare

double Scalare(double x[], double y[], int dim) {
  double S = 0.;
  for (int i = 0; i < dim; i++) S += x[i]*y[i];
  return S;
}

// Funzione Distanza

double Distanza(double x[], double y[], int dim) {
  double D, z[100];   // Dim < 100
  for (int i = 0; i < dim; i++) z[i] = x[i] - y[i];
  D = sqrt( Scalare(z,z,dim) );   // Dist(x,y) = Norma(x-y)
  return D;
}