L'évaluation du taux d'alcoolémie est un sujet qui suscite depuis longtemps l'intérêt des médecins, des biologistes, des autorités de sécurité routière et du grand public. En pratique, il est extrêmement difficile de déterminer avec une précision absolue la concentration d'alcool dans le sang d'une personne sans effectuer une mesure directe à l'aide d'un appareil spécialisé ou d'une analyse sanguine. De nombreux facteurs influencent en effet l'absorption, la distribution et l'élimination de l'alcool dans l'organisme. L'âge, le sexe, le poids corporel, l'état de santé, la prise de médicaments, la fatigue, l'alimentation, le stress et même certaines particularités métaboliques peuvent modifier considérablement la réaction d'un individu à une même quantité d'alcool. Malgré ces nombreuses variables, il demeure possible d'effectuer une estimation théorique du taux d'alcoolémie à l'aide de formules mathématiques utilisées à des fins éducatives ou informatives. Ces formules reposent généralement sur le poids de la personne, la quantité d'alcool consommée et un coefficient de diffusion qui varie selon le sexe en raison des différences physiologiques observées entre les hommes et les femmes.
Le programme QuickBASIC présenté ci-dessous applique ce principe afin d'estimer la quantité théorique de boissons alcoolisées correspondant à un taux d'alcoolémie donné. Dans cet exemple, les calculs reposent sur un coefficient de 0,70 pour les hommes et de 0,60 pour les femmes, valeurs fréquemment utilisées dans certaines méthodes simplifiées d'estimation. Le programme commence par convertir le poids exprimé en livres vers son équivalent en kilogrammes, puis applique la formule afin de déterminer la quantité approximative d'alcool pouvant être consommée avant d'atteindre un seuil théorique fixé à 0,5 g/L. Les résultats sont ensuite exprimés sous forme de décilitres de différentes boissons alcoolisées, notamment le whisky, le vin et la bière. Cet exemple illustre comment des notions de biochimie, de physiologie et de mathématiques peuvent être combinées dans un programme informatique relativement simple. Il convient toutefois de rappeler que les résultats obtenus ne constituent qu'une approximation théorique et ne doivent jamais être utilisés pour décider de sa capacité à conduire un véhicule ou à effectuer une activité nécessitant une vigilance complète. Seules les méthodes de mesure reconnues et les réglementations en vigueur permettent d'évaluer avec fiabilité le niveau réel d'alcoolémie d'une personne.
Prenons pour acquis la formule mathématique suivante :
| Formule (F) = (l0 g × Nombre de verres) / Poids en kilogrammes × Coefficient |
Enfin, supposons que le coefficient est le suivant en fonction des sexes :
| Homme | Femme |
|---|---|
| 0,70 | 0,60 |
A l'aide du code source QuickBASIC suivant, vous trouverez la réponse que vous souhaitez :
- DECLARE FUNCTION Livre2Kilogramme! (livre!)
- DECLARE FUNCTION FormuleAlcool! (pd!, sexe$)
- DECLARE FUNCTION CalculDecilitresWhisky! (pd!, sexe$)
- DECLARE FUNCTION CalculDecilitresVin! (pd!, sexe$)
- DECLARE FUNCTION CalculDecilitresBiere! (pd!, sexe$)
-
- PRINT "Taux d'alcoolémie pour 0,5g/l théoriquement buvable avant de prendre votre voiture:"
- PRINT "Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: "; CalculDecilitresWhisky(Livre2Kilogramme(150!), "H")
- PRINT "Nombre de verre (décilitres) de Vin pour un homme de 150 livres: "; CalculDecilitresVin(Livre2Kilogramme(150!), "H")
- PRINT "Nombre de verre (décilitres) de Bière pour un homme de 150 livres: "; CalculDecilitresBiere(Livre2Kilogramme(150!), "H")
-
- FUNCTION CalculDecilitresBiere (pd, sexe$)
- CalculDecilitresBiere = CINT(FormuleAlcool(pd, sexe$) / 35!) / 10!
- END FUNCTION
-
- FUNCTION CalculDecilitresVin (pd, sexe$)
- CalculDecilitresVin = CINT(FormuleAlcool(pd, sexe$) / 80!) / 10!
- END FUNCTION
-
- FUNCTION CalculDecilitresWhisky (pd, sexe$)
- CalculDecilitresWhisky = CINT(FormuleAlcool(pd, sexe$) / 320!) / 10!
- END FUNCTION
-
- FUNCTION FormuleAlcool (pd, sexe$)
- DIM sx AS DOUBLE
- SELECT CASE sexe$
- CASE "H": sx = .7
- CASE "F": sx = .6
- CASE ELSE: sx = 0!
- END SELECT
- FormuleAlcool = 100 * (.5 * pd * sx)
- END FUNCTION
-
- FUNCTION Livre2Kilogramme (livre)
- Livre2Kilogramme = livre * .4536
- END FUNCTION
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