$a = pdl [6.5 , 7.0 , 6.7 , 7.0 , 7.0 , 6.7 , 7.0 , 7.0 , 6.7 , 7.0 , 7.0 ];

$i = pdl [6.5 , 6.5 , 5.5 , 6.5 , 5.5 , 5.5 , 5.5 , 5.5 , 5.5 , 5.5 , 5.5 ];

$nf = 0.6*$a + 0.4*$i;

wcols "%7.2f %7.2f %7.1f", $a, $i, $nf;