Select Code to Download

#!/usr/bin/perl
use warnings;
...

my $P= Matrix();
printMatrix1($P);

a    1.20000  0.20000  0.60000

b    0.60000  1.20000  0.80000

c    0.08000  0.06000  0.82000