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

resorbieren=
	IF THEN ELSE( Verdauungstrakt>0,k res*Verdauungstrakt,0)
	~	g/kg/Hour
	~		|

eliminieren=
	IF THEN ELSE(Blut<0.02, k elim*Blut , k elim*Korr)
	~	g/kg/Hour [0,?]
	~	Unterhalb 0.2 Promille - entspricht 0.02 g/kg - folgt die Elimination \
		einer 1. Ordnung
	|

Korr=
	1*1
	~	g/kg
	~	Korrekturfaktor für die Einheiten, damit die Reaktionsgeschwindigkeit \
		für alle Konzentrationsbereiche g/kg/Hour hat (auch oberhalb 0.002 \
		Promille mit 0.Ordnung)
	|

Alkohol Gramm=
	16
	~	g [8,32,8]
	~		|

Alkohol Konzentration=
	Alkohol Gramm/(Körpergewicht kg)*Mann Frau
	~	g/kg [0,?]
	~		|

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

Verdauungstrakt= INTEG (
	-resorbieren,
		Alkohol Konzentration)
	~	g/kg
	~	Konzentration Alkohol Im Verdauungstrakt
	|

Mann Frau=
	2.1
	~	Dmnl [2,2.48,0.01]
	~		|

Blut= INTEG (
	IF THEN ELSE(Blut>=0, +resorbieren-eliminieren , 0 ),
		0)
	~	g/kg
	~	Konzentration Alkohol im Blut
	|

k elim=
	0.15
	~	1/Hour [0.12,0.3]
	~	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=
	4.6
	~	1/Hour [1.1,4.6]
	~	Grosse Mahlzeit (1.1), Normale Mahlzeit, Kleine Mahlzeit, Leerer Magen \
		(4.6)
	|

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

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

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

SAVEPER  = 0.2
	~	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,198,140,76,31,3,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,2,Blut,459,144,67,30,3,131,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|(366,143)|
1,4,5,1,100,0,0,22,0,0,0,-1--1--1,,1|(299,143)|
11,5,268,333,143,8,11,34,3,0,0,1,0,0,0
10,6,resorbieren,333,167,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|(558,153)|
11,8,140,599,153,8,11,34,3,0,0,1,0,0,0
10,9,eliminieren,599,177,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|(274,101)|
10,11,k res,240,73,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,477,72,28,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,13,2,8,1,0,0,0,0,64,0,-1--1--1,,1|(552,112)|
10,14,Alkohol Gramm,142,304,35,23,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,15,Alkohol Konzentration,124,217,64,28,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,16,14,15,1,0,0,0,0,64,0,-1--1--1,,1|(134,278)|
10,17,Körpergewicht kg,361,245,67,23,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
10,18,Mann Frau,372,284,49,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,19,17,15,1,0,0,0,0,64,0,-1--1--1,,1|(211,270)|
1,20,18,15,1,0,0,0,0,64,0,-1--1--1,,1|(248,310)|
12,21,48,694,152,10,8,0,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,22,8,21,4,0,0,22,0,0,0,-1--1--1,,1|(645,153)|
1,23,15,1,0,0,0,0,0,64,1,-1--1--1,,1|(154,184)|
10,24,Korr,474,207,21,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
1,25,24,9,1,0,0,0,0,64,0,-1--1--1,,1|(552,209)|
12,26,0,812,500,342,236,3,188,0,32,1,0,0,0,0-0-0,0-0-0,Helvetica|0||0-0-0
Blutkonzentration
1,27,12,8,1,0,0,0,0,64,0,-1--1--1,,1|(564,97)|
1,28,11,5,1,0,0,0,0,64,0,-1--1--1,,1|(303,99)|
///---\\\
:GRAPH Blutkonzentration
:TITLE Blutkonzentration
:X-AXIS Time
:SCALE
:VAR Blut
: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:Mann Frau
24:0
25:10.0001
26:10.0001