# data characteristics
 # 0.0001 <= $conf < 1.0000
 # 0.0001 <= $prob <= 1.0000

 my $outcome = ( (($prob-0.5)*2) + ($conf*100));

 # Current code
 if ($outcome > 97) { $rv .= "99"; }
 elsif ( ($outcome > 93) && ($outcome <= 97) ) { $rv .= "95"; }
 elsif ( ($outcome > 85) && ($outcome <= 93) ) { $rv .= "90"; }
 elsif ( ($outcome > 75) && ($outcome <= 85) ) { $rv .= "80"; }
 elsif ( ($outcome > 65) && ($outcome <= 75) ) { $rv .= "70"; }
 elsif ( ($outcome > 55) && ($outcome <= 65) ) { $rv .= "60"; }
 elsif ( ($outcome > 45) && ($outcome <= 55) ) { $rv .= "50"; }
 elsif ( ($outcome > 35) && ($outcome <= 45) ) { $rv .= "40"; }
 elsif ( ($outcome > 25) && ($outcome <= 35) ) { $rv .= "30"; }
 elsif ( ($outcome > 15) && ($outcome <= 25) ) { $rv .= "20"; }
 elsif ( ($outcome > 7) && ($outcome <= 15) ) { $rv .= "10"; }
 elsif ( ($outcome > 3) && ($outcome <= 7) ) { $rv .= "05"; }
 elsif ( ($outcome > 0) && ($outcome <= 3) ) { $rv .= "00"; }
 else { return "ERROR"; }