{UTF-8}
********************************************************
	.alkolkurve-atemluft
********************************************************~
		Simulation: Peter Bützer
	|

Alkohol Konzentration=
	Alkoholprozent*Glasvolumen dl*Anzahl Gläser*Umrechnungs Faktor/Körpergewicht kg/Frau Mann
	~	g/l [0,?]
	~		|

Trinkdauer pro Glas=
	1
	~	Hour [0,1]
	~		|

Aufnahme Dynamik=
	Anzahl Gläser/Trinkdauer pro Glas*PULSE TRAIN(0, Trinkdauer pro Glas, Trinkzeit/Anzahl Gläser\
		 , Trinkzeit)
	~	1/Hour [0,?]
	~		|

Glasvolumen dl=
	2
	~	dl [0,10]
	~		|

Umrechnungs Faktor=
	1/100
	~	g/(Prozent*dl)
	~		|

Zufuhr=
	Alkohol Konzentration*Aufnahme Dynamik*5
	~	g/l/Hour [0,?]
	~		|

eliminieren=
	IF THEN ELSE(Blut<0.02, k e2*Blut , k elim )
	~	g/(l*Hour) [0,?]
	~		|

k e2=
	1
	~	1/Hour [0,?]
	~		|

k CO2=
	1
	~	Dmnl [1,1.2,0.05]
	~	1: Ohne CO2, 1.2: mit CO2
	|

k Zucker=
	1
	~	Dmnl [1,1.2,0.05]
	~	1: Ohne Zucker, 1.2 mit Zucker
	|

resorbieren=
	IF THEN ELSE( Verdauungstrakt>0,k res*k CO2*k Zucker*Verdauungstrakt,0)
	~	g/(l*Hour) [0,?]
	~		|

Trinkzeit=
	4
	~	Hour [1,12,1]
	~		|

Anzahl Gläser=
	3
	~	Dmnl [1,10,1]
	~		|

Verdauungstrakt= INTEG (
	Zufuhr-resorbieren,
		0)
	~	g/l [0,?]
	~		|

Alkoholprozent=
	13
	~	Prozent [0,100,1]
	~		|

"Atemluft mg/l"=
	Blut/Henry K*1000
	~	mg/l
	~	0.25 mg/l entsprechen 0.5 Promille
	|

Körpergewicht kg=
	60
	~	kg [40,120,1]
	~		|

Blut= INTEG (
	IF THEN ELSE(Blut>=0, +resorbieren-eliminieren , 0 ),
		0.02)
	~	g/l [0,?]
	~		|

Frau Mann=
	0.55
	~	l/kg [0.5,0.73,0.01]
	~	Mann: 0.68, Frau: 0.55
	|

Henry K=
	2100
	~	g/mg [2000,2100,100]
	~		|

k elim=
	0.12
	~	g/(l*Hour) [0.1,0.3,0.01]
	~	Nichttrinker (< 200 ml EtOH/Monat):0.12   0.04 (Frauen 0.1   0.03), \
		Gesellschaftstrinker (200-900 ml EtOH/Monat):0.15   0.04 (Frauen 0.13   \
		0.03), Alkoholiker (>1000 ml EtOH/Monat):0.30   0.04 (Frauen 0.26   0.03)
	|

k res=
	3.9
	~	1/Hour [1.1,4.2]
	~	1.2: Grosse Mahlzeit, Normale Mahlzeit, Kleine Mahlzeit,4.2:  Leerer Magen
	|

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

FINAL TIME  = 12
	~	Hour
	~	The final time for the simulation.
	|

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

SAVEPER  = 0.1
	~	Hour [0,?]
	~	The frequency with which output is stored.
	|

TIME STEP  = 0.01
	~	Hour [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,Times New Roman|12||0-0-0|0-0-0|0-0-255|-1--1--1|-1--1--1|120,120,100,0
10,1,Verdauungstrakt,229,238,99,65,3,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,2,Blut,614,235,96,68,3,3,0,36,0,0,0,0,0-0-0,255-0-0,Helvetica|12||0-0-0
1,3,5,2,4,0,0,22,0,0,0,-1--1--1,,1|(472,231)|
1,4,5,1,100,0,0,22,0,0,0,-1--1--1,,1|(369,231)|
11,5,460,418,231,8,11,34,3,0,0,1,0,0,0
10,6,resorbieren,418,255,52,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,7,8,2,100,0,0,22,0,0,0,-1--1--1,,1|(746,239)|
11,8,556,791,239,8,11,34,3,0,0,1,0,0,0
10,9,eliminieren,791,263,48,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,10,1,5,1,0,0,0,0,64,0,-1--1--1,,1|(379,304)|
10,11,k res,337,26,24,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,12,k elim,619,126,28,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,13,11,6,1,0,0,0,0,64,0,-1--1--1,,1|(468,152)|
1,14,12,8,1,0,0,0,0,64,0,-1--1--1,,1|(751,145)|
1,15,2,8,1,0,0,0,0,64,0,-1--1--1,,1|(754,307)|
10,16,Alkoholprozent,350,523,40,24,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,17,Alkohol Konzentration,236,351,63,36,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,18,Körpergewicht kg,403,396,67,23,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,19,Frau Mann,386,462,49,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,20,18,17,1,0,0,0,0,64,0,-1--1--1,,1|(289,406)|
1,21,19,17,1,0,0,0,0,64,0,-1--1--1,,1|(296,444)|
10,22,Henry K,814,373,37,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,23,"Atemluft mg/l",618,428,94,61,3,3,0,36,0,0,0,0,0-0-0,255-255-128,Helvetica|12||0-0-0
1,24,2,23,1,0,0,0,0,64,0,-1--1--1,,1|(612,338)|
1,25,22,23,1,0,0,0,0,64,0,-1--1--1,,1|(792,422)|
12,26,48,-13,233,10,8,0,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,27,28,26,100,0,0,22,0,0,0,-1--1--1,,1|(16,232)|
11,28,48,44,232,8,11,34,3,0,0,1,0,0,0
10,29,Zufuhr,44,256,30,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,30,17,29,1,0,0,0,0,64,0,-1--1--1,,1|(58,325)|
10,31,Anzahl Gläser,50,514,32,23,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,32,28,1,4,0,0,22,0,0,0,-1--1--1,,1|(91,232)|
10,33,Trinkzeit,103,451,39,13,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,34,k CO2,174,62,31,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,35,k Zucker,194,123,40,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,36,34,5,1,0,0,0,0,64,0,-1--1--1,,1|(393,175)|
1,37,35,5,1,0,0,0,0,64,0,-1--1--1,,1|(350,165)|
12,38,0,826,647,282,132,3,60,0,0,1,0,0,0
GRAPH
12,39,48,894,240,10,8,0,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,40,8,39,4,0,0,22,0,0,0,-1--1--1,,1|(841,239)|
10,41,k e2,747,72,21,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,42,41,8,1,0,0,0,0,64,0,-1--1--1,,1|(801,150)|
10,43,Aufnahme Dynamik,-38,344,49,26,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,44,31,43,1,0,0,0,0,64,0,-1--1--1,,1|(-3,464)|
1,45,33,43,1,0,0,0,0,64,0,-1--1--1,,1|(67,357)|
1,46,43,29,1,0,0,0,0,64,0,-1--1--1,,1|(-24,283)|
10,47,Glasvolumen dl,183,571,59,23,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,48,Umrechnungs Faktor,438,575,63,34,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,49,47,17,1,0,0,0,0,64,0,-1--1--1,,1|(209,495)|
1,50,16,17,1,0,0,0,0,64,0,-1--1--1,,1|(264,477)|
1,51,48,17,1,0,0,0,0,64,0,-1--1--1,,1|(259,504)|
1,52,31,17,1,0,0,0,0,64,0,-1--1--1,,1|(170,470)|
10,53,Trinkdauer pro Glas,-73,475,68,23,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,54,53,43,1,0,0,0,0,64,0,-1--1--1,,1|(-83,398)|
///---\\\
:GRAPH GRAPH
:TITLE 0.25 mg/l entspr. 0.5 Blut-Promille
:X-AXIS Time
:SCALE
:VAR "Atemluft mg/l"
:LINE-WIDTH 2
:L<%^E!@
1:Current.vdf
9:Current
23:0
15:0,0,0,0,0,0
19:100,0
27:2,
34:0,
4:Time
5:eliminieren
24:0
25:12.0002
26:12.0002