view release on metacpan or  search on metacpan

lib/Algorithm/MOS.pm  view on Meta::CPAN

    if ($effective_latency < 160) {
        $r_value = 93.2 - ($effective_latency / 40);
    }
    else {
        $r_value = 93.2 - ($effective_latency - 120) / 10;
    }

    # Now, let's deduct 2.5 r_value per percentage of packet_loss
    $r_value = $r_value - ($packet_loss * 2.5);

    # Convert the r_value into an MOS value. (this is a known formula)
    $ret_val = 1 + 
        (0.035) *
        $r_value +
        (0.000007) *
        $r_value *
        ($r_value - 60) *
        (100 - $r_value);
    $ret_val = sprintf( "%.3f", $ret_val);

    return $ret_val;