Help for this page

Select Code to Download

Select or download this

use Data::Dumper;
my @realval = (
...
}

print Dumper \@trans_r;

Select or download this

@result = (0.3989359, 0.1982448, 0.2008801, 0.2008801, 0.2010591);