Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...
    }
return $a;
}
  2. or download this
    foreach my $d1 (@data) { print OUT " The vector of Atom ($d1->[0], $d1
+->[1], $d1->[2])is : %f\n", vector($d1); }
  3. or download this
    data is ARRAY(0x2b07cc) ARRAY(0x2b0d6c) ARRAY(0x21bdef4) ARRAY(0x1fefa
+cc) ARRAY(
0x332dd4) ARRAY(0x1ffb2cc)
...
vect is 5 5 6
vector is 5 5 6
versor is 0.539163866017192 0.539163866017192 0.64699663922063