function distanza = distanza_punto_retta(Punto,P0,P1)

x0 = P0(1);
y0 = P0(2);
z0 = P0(3);

x1 = P1(1);
y1 = P1(2);
z1 = P1(3);

m1=(x1-x0);
m2=(y1-y0);
m3=(z1-z0);

distanza = sqrt((x0-Punto(1))^2 + (y0-Punto(2))^2 + (z0-Punto(3))^2 - (  ((x0-Punto(1))*m1 + (y0-Punto(2))*m2 + (z0-Punto(3))*m3)/sqrt(m1^2+m2^2+m3^2))^2 );