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 ColdFusion suivant, vous trouverez la réponse que vous souhaitez :
- <CFSCRIPT>
- 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;
- }
-
- WriteOutput("Taux d'alcoolémie pour 0,5g/l théoriquement buvable avant de prendre votre voiture:<BR>");
- WriteOutput("Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: " & CalculDecilitresWhisky(Livre2Kilogramme(150),"H") & "<BR>");
- WriteOutput("Nombre de verre (décilitres) de Vin pour un homme de 150 livres: " & CalculDecilitresVin(Livre2Kilogramme(150),"H") & "<BR>");
- WriteOutput("Nombre de verre (décilitres) de Bière pour un homme de 150 livres: " & CalculDecilitresBiere(Livre2Kilogramme(150),"H") & "<BR>");
- </CFSCRIPT>
on obtiendra le résultat suivant :
Taux d'alcoolémie pour 0,5g/l théoriquement 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 : Lundi, le 29 décembre 2014