Help for this page

Select Code to Download

Select or download this

use POSIX qw(fmod);

...
    }
}
printf "avg: %.1f, s2: %.1f\n", $best_avg, $best_s2;

Select or download this

for (0..5) {
    ($best_avg, $best_s2) = circular_average $best_avg, 24, @data;
    printf "avg: %.1f, s2: %.1f\n", $best_avg, $best_s2;
}