Même si, à première vue, il semble pratiquement impossible de déterminer avec exactitude le taux d'alcoolémie réel d'une personne, en raison du grand nombre de facteurs biologiques et environnementaux qui peuvent l'influencer, il demeure néanmoins possible d'en effectuer une estimation théorique à l'aide de formules mathématiques relativement simples. En effet, des éléments tels que la médication, la fatigue, l'état de santé, le stress, l'alimentation, les allergies, le métabolisme individuel ou encore la vitesse d'absorption de l'alcool peuvent modifier les résultats observés dans la réalité. Malgré ces nombreuses variables, certaines méthodes de calcul permettent d'obtenir une approximation utile du taux d'alcool présent dans l'organisme après la consommation d'une quantité donnée de boissons alcoolisées.
Le principe général repose sur une formule tenant compte de la quantité d'alcool consommée, du poids corporel de l'individu ainsi que d'un coefficient de diffusion variant selon le sexe. Cette formule s'exprime généralement sous la forme :
| Formule (F) = (l0 g × Nombre de verres) / Poids en kilogrammes × Coefficient |
Le coefficient utilisé reflète la répartition moyenne de l'alcool dans l'organisme. Traditionnellement, on considère une valeur de 0,70 pour les hommes et de 0,60 pour les femmes, afin de tenir compte des différences physiologiques observées dans les études médicales et toxicologiques.
Dans l'exemple présenté sur cette page, nous chercherons à estimer la quantité théorique de différentes boissons alcoolisées qu'un homme de 150 livres pourrait consommer avant d'atteindre un taux d'alcoolémie de 0,5 g/L. Pour réaliser ces calculs, le programme Delphi convertit d'abord le poids exprimé en livres vers son équivalent en kilogrammes, puis applique les différentes formules nécessaires pour déterminer le volume approximatif de whisky, de vin ou de bière correspondant à cette limite théorique. Cet exemple illustre non seulement l'utilisation de calculs mathématiques simples dans le domaine de la biochimie et de la toxicologie, mais également la manière dont un langage de programmation comme Delphi peut automatiser rapidement ce type d'estimation. Il convient toutefois de rappeler que les résultats obtenus demeurent purement indicatifs et ne doivent jamais être utilisés comme référence pour déterminer son aptitude réelle à conduire ou à effectuer des activités nécessitant toute son attention.
Enfin, supposons que le coefficient est le suivant en fonction des sexes :
| Homme | Femme |
|---|---|
| 0,70 | 0,60 |
A l'aide du code source Delphi suivant, vous trouverez la réponse que vous souhaitez :
- Program TauxAlcool;
-
- {$APPTYPE CONSOLE}
-
- Uses SysUtils;
-
- Function Livre2Kilogramme(livre:Real):Real;Begin
- Livre2Kilogramme := livre * 0.4536;
- End;
-
- Function FormuleAlcool(pd:Real;sexe:Char):Real;
- Var
- sx:Real;
- Begin
- Case sexe of
- 'H': sx := 0.7;
- 'F': sx := 0.6;
- Else sx := 0.0;
- End;
- FormuleAlcool := 100 * (0.5 * pd * sx);
- End;
-
- Function CalculDecilitresWhisky(pd:Real;sexe:Char):Real;Begin
- CalculDecilitresWhisky := Trunc(FormuleAlcool(pd, sexe) / 320) / 10;
- End;
-
- Function CalculDecilitresVin(pd:Real;sexe:Char):Real;Begin
- CalculDecilitresVin := Trunc(FormuleAlcool(pd, sexe) / 80 + 0.5) / 10;
- End;
-
- Function CalculDecilitresBiere(pd:Real;sexe:Char):Real;Begin
- CalculDecilitresBiere := Trunc(FormuleAlcool(pd, sexe) / 35 + 0.5)/ 10;
- End;
-
- BEGIN
- WriteLn('Taux d''alcoolémie pour 0,5g/l théroriquement buvable avant de prendre votre voiture:');
- Write('Nombre de verre (décilitres) de Whisky pour un homme de 150 livres: ');
- WriteLn(CalculDecilitresWhisky(Livre2Kilogramme(150),'H'):0:1);
- Write('Nombre de verre (décilitres) de Vin pour un homme de 150 livres: ');
- WriteLn(CalculDecilitresVin(Livre2Kilogramme(150),'H'):1:0);
- Write('Nombre de verre (décilitres) de Bière pour un homme de 150 livres: ');
- WriteLn(CalculDecilitresBiere(Livre2Kilogramme(150),'H'):0:1);
- END.
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