{UTF-8}
********************************************************
	.ethanolaufnahme dermal badewanne
********************************************************~
		Simulation: Peter Bützer
	|

Dichte=
	0.7894*1000
	~	g/l
	~		|

eliminieren=
	IF THEN ELSE(Ethanol im Blut>0.014, ke*Verteilvolumen ,0 )
	~	g/Hour [0,?]
	~	Die verzögerte Rückkopplung verlang diese Entscheidung
	|

Ethanol flüssig= INTEG (
	-resorbieren ,
		Ethanol g)
	~	g [0,?]
	~		|

Ethanol g=
	Gesamtvolumen Liter*"Vol %"/100*Dichte
	~	g [0,?]
	~		|

Ethanol im Blut= INTEG (
	+resorbieren-eliminieren,
		0.0135)
	~	g [0,5]
	~	g Ethanol
	|

Gesamtvolumen Liter=
	200
	~	l [0,300]
	~	0.01 l = 10 ml
	|

ke=
	0.18
	~	g/l/Hour [0.1,0.22]
	~		|

Konzentration flüssig=
	Ethanol flüssig/Gesamtvolumen Liter
	~	g/l [0,?]
	~	Angabe in Promillen
	|

Konzentration im Blut=
	IF THEN ELSE(Ethanol im Blut<=0.0135, 0.0135/Verteilvolumen, Ethanol im Blut/Verteilvolumen\
		 )
	~	g/l [0,?]
	~	Angabe in Promillen
	|

Körpergewicht=
	70
	~	kg [50,100]
	~		|

kr=
	0.0007
	~	g/cm2/Hour [0.0001,0.0008]
	~	Penetrationsrate für 25% Ethanol in Wasser
	|

Oberfläche cm2=
	18000
	~	cm2 [0,22000]
	~	Betroffene Hautoberfläche, Gesamtoberfläche: 1.6-2.2 m2 = 16000-22000 cm2
	|

resorbieren=
	IF THEN ELSE(Ethanol im Blut<=0, 0 , kr*Oberfläche cm2*(Konzentration flüssig+0.02\
		)/(Konzentration im Blut+0.01) )
	~	g/Hour [0,?]
	~	Der Konzentrationsquotient ist die treibende Kraft für die Resorption \
		(Diffusion); Die verzögerte Rückkopplung verlang diese Entscheidung, \
		sonst bilden sich negative Massen
	|

Verteilvolumen=
	Witmark Faktor*Körpergewicht
	~	l [0,?]
	~		|

"Vol %"=
	1.875
	~	Dmnl [0,12,0.5]
	~	Alkoholgehalt in Volumen%
	|

Witmark Faktor=
	0.65
	~	l/kg [0.5,0.8]
	~		|

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

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

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

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

TIME STEP  = 0.001
	~	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,Ethanol flüssig,281,220,52,33,3,131,0,0,0,0,0,0
10,2,Ethanol im Blut,538,223,51,33,3,131,0,0,0,0,0,0
1,3,5,2,4,0,0,22,0,0,0,-1--1--1,,1|(454,219)|
1,4,5,1,100,0,0,22,0,0,0,-1--1--1,,1|(371,219)|
11,5,220,415,219,6,8,34,3,0,0,1,0,0,0
10,6,resorbieren,415,239,48,12,40,3,0,0,-1,0,0,0
12,7,48,760,224,10,8,0,3,0,0,-1,0,0,0
1,8,10,7,4,0,0,22,0,0,0,-1--1--1,,1|(713,222)|
1,9,10,2,100,0,0,22,0,0,0,-1--1--1,,1|(626,222)|
11,10,48,670,222,6,8,34,3,0,0,1,0,0,0
10,11,eliminieren,670,242,47,12,40,3,0,0,-1,0,0,0
10,12,ke,586,131,11,12,8,3,0,0,0,0,0,0
10,13,kr,299,127,10,12,8,3,0,0,0,0,0,0
1,14,13,5,1,0,0,0,0,64,0,-1--1--1,,1|(349,140)|
1,15,12,10,1,0,0,0,0,64,0,-1--1--1,,1|(632,150)|
10,16,Oberfläche cm2,278,48,47,22,8,3,0,0,0,0,0,0
1,17,16,5,1,0,0,0,0,64,0,-1--1--1,,1|(376,82)|
10,18,Körpergewicht,500,323,64,22,8,131,0,0,0,0,0,0
10,19,Witmark Faktor,501,386,36,22,8,3,0,0,0,0,0,0
10,20,Verteilvolumen,710,340,66,21,8,131,0,0,0,0,0,0
1,21,19,20,1,0,0,0,0,64,0,-1--1--1,,1|(599,388)|
1,22,18,20,1,0,0,0,0,64,0,-1--1--1,,1|(593,308)|
1,23,20,10,1,0,0,0,0,64,0,-1--1--1,,1|(710,291)|
10,24,Gesamtvolumen Liter,119,218,67,21,8,131,0,0,0,0,0,0
10,25,Konzentration flüssig,159,103,58,20,8,131,0,0,0,0,0,0
1,26,1,25,1,0,0,0,0,64,0,-1--1--1,,1|(249,133)|
1,27,24,25,1,0,0,0,0,64,0,-1--1--1,,1|(97,153)|
10,28,Konzentration im Blut,554,60,58,22,8,3,0,0,0,0,0,0
1,29,2,28,1,0,0,0,0,64,0,-1--1--1,,1|(517,151)|
1,30,20,28,1,0,0,0,0,64,0,-1--1--1,,1|(723,148)|
1,31,25,5,1,0,0,0,0,64,0,-1--1--1,,1|(318,102)|
1,32,28,5,1,0,0,0,0,64,0,-1--1--1,,1|(466,108)|
10,33,"Vol %",121,345,32,12,8,3,0,0,0,0,0,0
10,34,Dichte,313,347,28,12,8,3,0,0,0,0,0,0
10,35,Ethanol g,207,290,39,12,8,3,0,0,0,0,0,0
1,36,34,35,1,0,0,0,0,64,0,-1--1--1,,1|(292,314)|
1,37,33,35,1,0,0,0,0,64,0,-1--1--1,,1|(174,335)|
1,38,24,35,1,0,0,0,0,64,0,-1--1--1,,1|(113,274)|
1,39,2,5,1,0,0,0,0,64,0,-1--1--1,,1|(476,169)|
1,40,35,1,0,0,0,0,0,64,1,-1--1--1,,1|(227,270)|
1,41,2,10,1,0,0,0,0,64,0,-1--1--1,,1|(627,177)|
///---\\\
:L<%^E!@
1:0.0003.vdf
1:0.0007.vdf
9:0.0003
23:0
15:0,0,0,0,0,0
19:100,0
27:2,
34:0,
4:Time
5:Konzentration im Blut
24:0
25:0.999991
26:0.999991