{UTF-8}
Alcohol Absorption=
	Alcohol into Stomach*distribution rate
	~	
	~		|

Alcohol Consumed gm per min=
	DELAY FIXED(0,hours of drinking*60 , drinks per hour*gm per drink/60 )
	~	gm per min
	~		|

Alcohol Elimination per min=
	BAC g per deciliter*vol of dist in deciliters*Vmaximum/(Michaelis constant km+BAC g per deciliter\
		)
	~	
	~		|

Alcohol in Body gm= INTEG (
	Alcohol Absorption-Alcohol Elimination per min,
		0)
	~	gm
	~		|

Alcohol into Stomach= INTEG (
	Alcohol Consumed gm per min-Alcohol Absorption,
		0)
	~	gm
	~		|

alcohol type=
	MAX(1, carbonated+concentrated )
	~	
	~		|

avg absorption halftime=
	10
	~	Minute [5,20,1]
	~		|

BAC g per deciliter=
	Alcohol in Body gm/vol of dist in deciliters
	~	
	~		|

Body Weight kg=
	Body Weight lbs/2.2
	~	
	~		|

Body Weight lbs=
	150
	~	 [100,300,1]
	~		|

carbonated=
	0
	~	 [0,1,1]
	~		|

concentrated=
	0
	~	 [0,1,1]
	~		|

distribution rate=
	LN(2)/(avg absorption halftime/alcohol type)
	~	
	~		|

drinks per hour=
	4
	~	 [0,10,1]
	~		|

Elim per hour=
	Alcohol Elimination per min*60
	~	
	~		|

gm per drink=
	12
	~	 [0,20,1]
	~		|

hours of drinking=
	2
	~	hours [0,12,1]
	~		|

Maryland Legal Limit=
	0.08
	~	
	~		|

Michaelis constant km=
	0.01
	~	
	~		|

relative vol of dist=
	0.75
	~	
	~		|

Toxic Level=
	0.4
	~	
	~		|

Vmaximum=
	0.0002
	~	 [0.0002,0.0006,0.0001]
	~		|

vol of dist in deciliters=
	Body Weight kg*relative vol of dist*10
	~	
	~		|

********************************************************
	.Control
********************************************************~
		Simulation Control Parameters
	|

FINAL TIME  = 720
	~	Minute
	~	The final time for the simulation.
	|

INITIAL TIME  = 0
	~	Minute
	~	The initial time for the simulation.
	|

SAVEPER  = 
        TIME STEP 
	~	Minute [0,?]
	~	The frequency with which output is stored.
	|

TIME STEP  = 0.125
	~	Minute [0,?]
	~	The time step for the simulation.
	|

\\\---/// Sketch information - do not modify anything except names
V300  Do not put anything below this section - it will be ignored
*View 1
$192-192-192,0,Comic Sans MS|12||0-0-0|0-0-0|0-0-255|-1--1--1|-1--1--1|120,120,5,0
10,1,Alcohol into Stomach,408,348,51,40,3,131,0,0,0,0,0,0
10,2,Alcohol in Body gm,791,351,61,41,3,131,0,0,0,0,0,0
12,3,48,171,336,10,8,0,3,0,0,-1,0,0,0
1,5,7,1,4,0,0,22,0,0,0,-1--1--1,,1|(316,336)|
1,6,7,3,100,0,0,22,0,0,0,-1--1--1,,1|(222,336)|
11,7,0,269,336,6,8,34,3,0,0,1,0,0,0
10,8,Alcohol Consumed gm per min,269,372,87,28,40,3,0,0,-1,0,0,0
1,10,12,2,4,0,0,22,0,0,0,-1--1--1,,1|(665,349)|
1,11,12,1,100,0,0,22,0,0,0,-1--1--1,,1|(523,349)|
11,12,0,594,349,6,8,34,3,0,0,1,0,0,0
10,13,Alcohol Absorption,594,385,55,28,40,3,0,0,-1,0,0,0
12,14,48,1160,352,10,8,0,3,0,0,-1,0,0,0
1,16,18,14,4,0,0,22,0,0,0,-1--1--1,,1|(1078,352)|
1,17,18,2,100,0,0,22,0,0,0,-1--1--1,,1|(923,352)|
11,18,0,1001,352,6,8,34,3,0,0,1,0,0,0
10,19,Alcohol Elimination per min,1001,388,91,28,40,3,0,0,-1,0,0,0
10,20,hours of drinking,210,216,43,28,8,3,0,0,0,0,0,0
10,21,Maryland Legal Limit,225,112,74,40,3,131,0,1,0,3,0,0,0-128-0,0-0-0,|0||0-0-0
10,22,drinks per hour,189,512,52,28,8,3,0,0,0,0,0,0
10,23,gm per drink,401,516,63,14,8,3,0,0,0,0,0,0
10,24,distribution rate,641,518,58,28,8,3,0,0,0,0,0,0
10,25,avg absorption halftime,450,655,72,28,8,3,0,0,0,0,0,0
10,26,alcohol type,762,641,57,15,8,3,0,0,0,0,0,0
10,27,carbonated,643,742,54,15,8,3,0,0,0,0,0,0
10,28,concentrated,892,739,70,29,8,131,0,0,0,0,0,0
10,29,Body Weight lbs,718,126,64,28,8,3,0,0,0,0,0,0
10,30,Body Weight kg,923,127,64,28,8,3,0,0,0,0,0,0
10,31,relative vol of dist,1139,195,69,28,8,3,0,0,0,0,0,0
10,32,vol of dist in deciliters,1008,265,62,28,8,3,0,0,0,0,0,0
10,33,BAC g per deciliter,785,229,67,41,3,131,0,1,0,3,0,0,0-0-255,0-0-0,|0||0-0-0
10,34,Michaelis constant km,848,509,58,28,8,3,0,0,0,0,0,0
10,35,Vmaximum,986,622,50,15,8,3,0,0,0,0,0,0
10,36,Elim per hour,1098,512,66,14,8,3,0,0,0,0,0,0
1,37,20,8,1,0,0,0,0,64,0,-1--1--1,,1|(204,281)|
1,38,22,8,1,0,0,0,0,64,1,-1--1--1,,1|(198,432)|
1,39,23,8,1,0,0,0,0,64,1,-1--1--1,,1|(322,464)|
1,40,1,13,1,0,0,0,0,64,0,-1--1--1,,1|(492,414)|
1,41,24,13,1,0,0,0,0,64,0,-1--1--1,,1|(638,451)|
1,42,25,24,1,0,0,0,0,64,0,-1--1--1,,1|(530,561)|
1,43,26,24,1,0,0,0,0,64,0,-1--1--1,,1|(731,580)|
1,44,27,26,1,0,0,0,0,64,0,-1--1--1,,1|(681,682)|
1,45,28,26,1,0,0,0,0,64,0,-1--1--1,,1|(837,681)|
1,46,35,19,1,0,0,0,0,64,0,-1--1--1,,1|(976,511)|
1,47,34,19,1,0,0,0,0,64,0,-1--1--1,,1|(911,436)|
1,48,19,36,1,0,0,0,0,64,0,-1--1--1,,1|(1064,439)|
1,49,32,19,1,0,0,0,0,64,0,-1--1--1,,1|(1028,323)|
1,50,2,33,1,0,0,0,0,64,0,-1--1--1,,1|(731,280)|
1,51,32,33,1,0,0,0,0,64,0,-1--1--1,,1|(889,203)|
1,52,33,19,1,0,0,0,0,64,0,-1--1--1,,1|(877,275)|
1,53,31,32,1,0,0,0,0,64,0,-1--1--1,,1|(1121,275)|
1,54,30,32,1,0,0,0,0,64,0,-1--1--1,,1|(983,181)|
1,55,29,30,1,0,0,0,0,64,0,-1--1--1,,1|(860,147)|
12,56,0,1517,221,262,217,3,156,0,0,1,0,0,0
BAC
10,57,Toxic Level,455,117,83,43,3,131,0,1,0,3,0,0,255-0-0,0-0-0,|0||0-0-0
///---\\\
:GRAPH BAC
:TITLE BAC
:SCALE
:VAR BAC g per deciliter
:Y-MIN 0
:Y-MAX 0.5
:LINE-WIDTH 3
:VAR Toxic Level
:Y-MIN 0
:Y-MAX 0.5
:LINE-WIDTH 3
:VAR Maryland Legal Limit
:Y-MIN 0
:Y-MAX 0.5
:LINE-WIDTH 3
:L<%^E!@
1:Current.vdf
9:Current
22:$,Dollar,Dollars,$s
22:Hour,Hours
22:Month,Months
22:Person,People,Persons
22:Unit,Units
22:Week,Weeks
22:Year,Years
22:Day,Days
23:0
15:0,0,0,1,0,0
19:5,0
27:2,
34:0,
4:Time
5:Toxic Level
35:Date
36:YYYY-MM-DD
37:2000
38:1
39:1
40:6
41:0
24:0
25:720
26:720