Select Code to Download

      
0  4  5
...

5  4  0

A X 79 54 53
B Y 81 54 50
C Y 83 51 52

my @points = ( {A=>A, X=>79.620,   Y=>54.720, Z=>53.034},
...
   print "\n";
 }

 

$d = sqrt(($rx1 - $rx2)**2 + ($ry1 - $ry2)**2 + ($rz1 - $rz2)**2);

  A  B  C
...

C 5  4  0