// MODEL NUMBER: 0435 // // TITLE: Transdermal ethanol transport, Ethanol diffusion through the skin // By: Joseph C. Anderson // // Describes the diffusion of ethanol from the skin capillaries, through the epidermis // and stratum corneum and into the supradermal space of the detector. Ethanol enters // the capillary bed at a rate Qdot (ml/s) and blood alcohol concentration (BAC(t)). // JSim v1.1 import nsrunit; unit dL=0.1 L; unit conversion on; math Skin_Diff { realDomain t hour; t.min=0; t.max=10.0; t.delta=0.005; // ------------- PARAMETERS ---------------------------- real BAC = 0.1 g/dL, // Maximum blood alcohol concentration Tpeak = 2 hr, // Time to peak ethanol BAC BOR = 0.018 g/(dL*hr); // Elimination rate of ethanol real Bbld = 232 mmHg^(-1), // Ethanol solubility in blood Bepi = 232 mmHg^(-1), // Ethanol solubility in epidermis Bstc = 211 mmHg^(-1); // Ethanol solubility in stratum corneum real Depi = 5E-6 cm^2/s, // Diffusivity through epidermis Dstc = 5E-10 cm^2/s; // Diffusivity through epidermis real Lepi = 0.02 cm, // Thickness of epidermis layer Lstc = 0.0015 cm, // Thickness of stratum corneum layer Lcap = 7E-4 cm, // Thickness of capillary vessel Lgas = 0.5 cm; // Thickness of gas layer real Acap = 7.5E-2 cm^2, // Capillary surface area Area = 1 cm^2; // Surface area real Qdot = 4E-4 cm^3/s, // Capillary blood flow Vdot = 5E-5 cm^3/s; // Convective gas flow real Pin = 0 mmHg; // EtOH partial pressure entering gas comp. // ------------- FIXED PARAMETERS ----------------------- private real Bgas = 0.132 mmHg^(-1), // Ethanol solubility in gas phase Rgc=62.363 L*mmHg/(mol*K), // Universal gas constant Tbody = 37+273.15 K, // Body temperature MW = 46.07 g/mol; // Molecular weight of ethanol // ------------- VARIABLES ------------------------------ real kes cm/(s*mmHg); // Epi:SC Mass transfer coeffcient real Pmax mmHg; // Partial pressure equivalent of maximum BAC real Tfinal hr; // Time when Part=0 real Part(t) mmHg, // EtOH partial pressure in artery Pcap(t) mmHg, // EtOH partial pressure in capillary Pepi(t) mmHg, // EtOH partial pressure in epithelium Pstc(t) mmHg, // EtOH partial pressure in stratum corneum Pgas(t) mmHg; // EtOH partial pressure in gas compartment real Cart(t) g/dL, // Blood alcohol concentration profile Cgas(t) g/dL; // Equivalent BAC in gas phase // ---------- STATE EQUATIONS & BAC PROFILE --------------- Pmax=(Rgc*Tbody/MW)*(Bgas/Bbld)*BAC; kes=1/(Lepi/(2*Depi*Bepi)+Lstc/(2*Dstc*Bstc)); Tfinal = Tpeak+BAC/BOR; Part = if (t<=Tpeak) Pmax*t/(Tpeak) else (if (t>Tpeak and t