Academic Integrity: tutoring, explanations, and feedback — we don’t complete graded work or submit on a student’s behalf.

The average human body eliminates 12 grams of alcohol per hour. The average coll

ID: 2080530 • Letter: T

Question

The average human body eliminates 12 grams of alcohol per hour. The average college age male weighing K kg has .68K liters of fluid. The legal limit fro driving is 1 g/L of alcohol. One 12 oz beer contains 13.6 grams of alcohol.

Suppose the male weights 75 kg.

Assume this male arrives at a party and instantaneously downs a six-pack of beer (i.e., high initial alcohol level, no input flow). Graph alcohol concentration in the body as a function of time using the model xn+1=xn-12 for the grams of alcohol in his system. Plot the legal driving level on the same graph. Be careful with units. How long will it be before Hypothetical can drive home legally?

****I already was able to do the above part on matlab, please do the next part****

Construct a more realistic manner of consuming six beers (i.e., zero initial alcohol level, positive flow). You may want to use if-then statements to turn off the drinking after a time, or to change rates of drinking throughout the evening. Again plot alcohol concentration against time and include the legal driving level on the graph.

***Again I plan on using matlab for this problem so if you just include the code with the for loop with if else statements in it, I can solve from there

Explanation / Answer

clc;
close all;
clear all;

weight = 75;%MAN's WEIGHT = 75kg
fluid_wt = 0.68*weight;
legal = 1;
INI_DRINK = 0;
t = 0:1:360; %MAN goes to bar for 6 hours

x = input('ENTER DRINKING FREQUENCY:');
%TIME UNIT AS MINUTES
%ASSUMING the person drinks a bottle of beer every 30 minutes
if x == 1
    rate_drink = 13.6/30;
elseif x == 2
    rate_drink = 27.2/30;
elseif x == 0
    rate_drink = 0/30;
end

if t>180
    rate_drink = 0/30;
end

body_dig = (rem(t,60) == 0 & (t > 0) & (x>0))*(-12) + (rem(t,60) ~= 0)*(0) ;

alc_conc = (rate_drink*t + body_dig)/fluid_wt;
plot(t,alc_conc,'r',t,legal,'b');

Hire Me For All Your Tutoring Needs
Integrity-first tutoring: clear explanations, guidance, and feedback.
Drop an Email at
drjack9650@gmail.com
Chat Now And Get Quote