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

K BHS=
	1.5
	~	 [0,2]
	~		|

k BHS r=
	k BHSh/K BHS
	~	
	~		|

BHS hin=
	k BHSh*Blut
	~	
	~		|

BHS rueck=
	k BHS r*Gehirn
	~	
	~		|

k BHSh=
	1
	~	
	~		|

Blut= INTEG (
	IF THEN ELSE(Blut>=0, +resorbieren-eliminieren+BHS hin-BHS rueck , 0 ),
		0)
	~	
	~	Menge Alkohol im Blut
	|

Gehirn= INTEG (
	BHS hin-BHS rueck,
		0)
	~	
	~	Menge Alkohl im Gehirn
	|

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

Alkoholkonzentration=
	Alkohol Gramm/(Körpergewicht kg)*Mann Frau
	~	
	~		|

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

Verdauungstrakt= INTEG (
	-resorbieren,
		Alkoholkonzentration)
	~	g
	~	Menge Alkohol im Verdauungstrakt
	|

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

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

eliminieren=
	IF THEN ELSE(Blut<0.02, k elim*Blut , k elim )
	~	
	~		|

k elim=
	0.15
	~	 [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.2
	~	 [1.1,4.2]
	~	Grosse Mahlzeit, Normale Mahlzeit, Kleine Mahlzeit, Leerer Magen
	|

********************************************************
	.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.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,75,0
10,1,Verdauungstrakt,233,389,126,88,3,3,0,0,0,0,0,0
10,2,Blut,721,395,120,85,3,3,0,4,0,0,0,0,0-0-0,255-0-0,|12||0-0-0
1,3,5,2,4,0,0,22,0,0,0,-1--1--1,,1|(544,390)|
1,4,5,1,100,0,0,22,0,0,0,-1--1--1,,1|(413,390)|
11,5,204,478,390,10,14,34,3,0,0,1,0,0,0
10,6,resorbieren,478,421,59,18,40,3,0,0,-1,0,0,0
1,7,8,2,100,0,0,22,0,0,0,-1--1--1,,1|(895,399)|
11,8,268,959,399,10,14,34,3,0,0,1,0,0,0
10,9,eliminieren,959,430,56,18,40,3,0,0,-1,0,0,0
1,10,1,5,1,0,0,0,0,64,0,-1--1--1,,1|(405,275)|
10,11,k res,410,570,28,18,8,3,0,0,0,0,0,0
10,12,k elim,840,561,33,18,8,3,0,0,0,0,0,0
1,13,11,6,1,0,0,0,0,64,0,-1--1--1,,1|(485,516)|
1,14,12,9,1,0,0,0,0,64,0,-1--1--1,,1|(930,504)|
1,15,2,8,1,0,0,0,0,64,0,-1--1--1,,1|(890,286)|
10,16,Alkohol Gramm,205,683,119,23,8,3,0,0,0,0,0,0
10,17,Alkoholkonzentration,234,535,115,38,8,3,0,0,0,0,0,0
1,18,16,17,1,0,0,0,0,64,0,-1--1--1,,1|(194,628)|
10,19,Körpergewicht kg,528,641,94,18,8,3,0,0,0,0,0,0
10,20,Mann Frau,610,728,59,18,8,3,0,0,0,0,0,0
1,21,19,17,1,0,0,0,0,64,0,-1--1--1,,1|(349,614)|
1,22,20,17,1,0,0,0,0,64,0,-1--1--1,,1|(410,725)|
10,23,Gehirn,716,91,119,74,3,3,0,0,0,0,0,0
1,24,26,23,4,0,0,22,0,0,0,-1--1--1,,1|(654,180)|
1,25,26,2,100,0,0,22,0,0,0,-1--1--1,,1|(654,261)|
11,26,236,654,204,10,8,33,3,0,0,4,0,0,0
10,27,BHS hin,709,204,45,15,40,3,0,0,-1,0,0,0
1,28,30,2,4,0,0,22,0,0,0,-1--1--1,,1|(776,293)|
1,29,30,23,100,0,0,22,0,0,0,-1--1--1,,1|(776,212)|
11,30,188,776,268,10,8,33,3,0,0,4,0,0,0
10,31,BHS rueck,843,268,56,15,40,3,0,0,-1,0,0,0
1,32,2,26,1,0,0,0,0,64,0,-1--1--1,,1|(634,225)|
1,33,23,30,1,0,0,0,0,64,0,-1--1--1,,1|(836,218)|
10,34,k BHSh,546,225,41,15,8,3,0,0,0,0,0,0
10,35,k BHS r,934,188,43,15,8,3,0,0,0,0,0,0
1,36,34,26,1,0,0,0,0,64,0,-1--1--1,,1|(595,180)|
1,37,35,30,1,0,0,0,0,64,0,-1--1--1,,1|(848,243)|
10,38,K BHS,1085,90,39,15,8,3,0,0,0,0,0,0
1,39,34,35,1,0,0,0,0,64,0,-1--1--1,,1|(824,224)|
1,40,38,35,1,0,0,0,0,64,0,-1--1--1,,1|(966,121)|
12,41,0,1206,759,309,209,3,60,0,0,1,0,0,0
GRAPH
1,42,17,1,0,0,0,0,0,64,1,-1--1--1,,1|(233,493)|
12,43,48,1133,400,10,8,0,3,0,0,-1,0,0,0
1,44,8,43,4,0,0,22,0,0,0,-1--1--1,,1|(1046,399)|
///---\\\
:GRAPH GRAPH
:TITLE GRAPH
:X-AXIS Time
:SCALE
:VAR Blut|Blut
:UNITS Promille
:Y-MIN 0
:SCALE
:VAR Gehirn|Gehirn
:UNITS Promille
:Y-MIN 0
:L<%^E!@
9:Current
23:0
15:0,0,0,0,0,0
19:75,0
27:2,
34:0,
5:Alkohol Gramm
24:0
25:0
26:0