ke=
	ln(2)/HWZ
	~	1/Hour [0.001,1]
	~		|

kr=
	0.4
	~	1/Hour [0,0.5]
	~		|

HWZ=
	24
	~	Hour
	~		|

Resorption=
	kr*Magen
	~	mg/l/Hour
	~		|

Magen= INTEG (
	-Resorption,
		100)
	~	mg/l
	~		|

Blut= INTEG (
	(+Resorption-Elimination),
		0)
	~	mg/l
	~		|

Elimination=
	ke*Blut
	~	mg/l/Hour
	~		|

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

FINAL TIME  = 72
	~	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  = 1
	~	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,200
10,1,Magen,87,73,73,30,3,131,0,0,0,0,0,0
10,2,Blut,343,70,65,32,3,131,0,0,0,0,0,0
1,3,5,2,4,0,0,22,0,0,0,-1--1--1,,1|(251,72)|
1,4,5,1,100,0,0,22,0,0,0,-1--1--1,,1|(186,72)|
11,5,364,218,72,6,8,34,3,0,0,1,0,0,0
10,6,Resorption,218,92,46,12,40,3,0,0,-1,0,0,0
1,7,8,2,100,0,0,22,0,0,0,-1--1--1,,1|(441,74)|
11,8,300,480,74,6,8,34,3,0,0,1,0,0,0
10,9,Elimination,480,94,55,12,40,3,0,0,-1,0,0,0
10,10,ke,409,142,11,12,8,3,0,0,0,0,0,0
1,11,10,8,1,0,0,0,0,64,0,-1--1--1,,1|(455,126)|
1,12,1,5,1,0,0,0,0,64,0,-1--1--1,,1|(140,28)|
1,13,2,8,1,0,0,0,0,64,0,-1--1--1,,1|(436,31)|
10,14,HWZ,306,146,24,12,8,3,0,0,0,0,0,0
1,15,14,10,1,0,0,0,0,64,0,-1--1--1,,1|(353,156)|
10,16,kr,139,142,10,12,8,3,0,0,0,0,0,0
1,17,16,5,1,0,0,0,0,64,0,-1--1--1,,1|(202,120)|
12,18,48,568,73,10,8,0,3,0,0,-1,0,0,0
1,19,8,18,4,0,0,22,0,0,0,-1--1--1,,1|(522,74)|
///---\\\
:GRAPH GRAPH
:TITLE GRAPH
:X-AXIS Time
:SCALE
:VAR Blut
:L<%^E!@
9:Current
15:0,0,0,0,0,0
19:200,0
27:2,
5:Blut
24:0
25:0
26:0