Select Code to Download

use strict;
use warnings;
...
       # abs of vector (x,y,z)  = sqrt(x**2 + y**2 + z**2)
  return $result;
}

Norm  = {0.285714285714286, -0.428571428571429, 0.857142857142857}
Versor= {0.285714285714286, -0.428571428571429, 0.857142857142857}