Même si, à première vue, il semble impossible de calculer le taux d'alcoolémie réel à cause de tous les facteurs (médication, humeur, fatigue, allergie,...), on peut malgré tout effectuer le calcul théorie de celui-ci selon la formule suivante :
Formule (F) = (l0 g x Nombre de verres) / Poids en kilogrammes x CoefficientEnfin, supposons que le coefficient est le suivant en fonction des sexes :
| Homme | Femme |
|---|---|
| 0,70 | 0,60 |
A l'aide du code source Phalanger (PHP .NET) suivant, vous trouverez la réponse que vous souhaitez:
<?
function Livre2Kilogramme($livre) {
return $livre * 0.4536;
}
function FormuleAlcool($pd,$sexe) {
switch($sexe) {
case "H":case "HOMME":$sx=0.7;break;
case "F":case "FEMME":$sx=0.6;break;
default:$sx=0.0;break;
}
return 100 * (0.5 * $pd * $sx);
}
function CalculDecilitresWhisky($pd,$sexe) {
return round(FormuleAlcool($pd, $sexe)/320) / 10;
}
function CalculDecilitresVin($pd,$sexe) {
return round(FormuleAlcool($pd, $sexe)/80) / 10;
}
function CalculDecilitresBiere($pd,$sexe) {
return round(FormuleAlcool($pd, $sexe)/35)/ 10;
}
echo "Taux d'alcoolémie pour 0,5g/l théoriquement buvable avant de prendre votre voiture:\n";
echo "Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: ".CalculDecilitresWhisky(Livre2Kilogramme(150),"H")."\n";
echo "Nombre de verre (décilitres) de Vin pour un homme de 150 livres: ".CalculDecilitresVin(Livre2Kilogramme(150),"H")."\n";
echo "Nombre de verre (décilitres) de Bière pour un homme de 150 livres: ".CalculDecilitresBiere(Livre2Kilogramme(150),"H")."\n";
?>
on obtiendra le résultat suivant:
Taux d'alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture:Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: 0.7
Nombre de verre (décilitres) de Vin pour un homme de 150 livres: 3
Nombre de verre (décilitres) de Bière pour un homme de 150 livres: 6.8
Voir également
Dernière mise à jour : Vendredi, le 31 août 2012