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

Aufnahme Faktor=
	IF THEN ELSE("Serum-Ferritin"/(mg Plasma+0.15)>4, 4, "Serum-Ferritin"/(mg Plasma+0.15\
		) )
	~	Dmnl [0,4]
	~	Unterhalb 0.03 mg/L Fe im Blut wird das Eisen besser aufgenommen
	|

freisetzen=
	IF THEN ELSE(mg Blut<1000, kf*mg Speicher , 0 )
	~	mg/Day
	~		|

ausscheiden=
	kr*(1-Bioverfügbarkeit*Aufnahme Faktor)*mg Verdauungstrakt
	~	mg/Day [0,?]
	~		|

ku=
	ln(2)/HWZu
	~	1/Day [0,?]
	~		|

mg Blut= INTEG (
	+resorbieren-eliminieren-speichern-umwandeln+freisetzen,
		0)
	~	mg [0,?]
	~		|

mg Plasma= INTEG (
	-umwandeln,
		0)
	~	mg
	~		|

kf=
	0.23
	~	1/Day [0.1,0.4]
	~	Die Freisetzung von Fe aus der Leber hat eine HWZ von ca. 72 Std.
	|

mg Verdauungstrakt= INTEG (
	aufnehmen-ausscheiden-resorbieren,
		0)
	~	mg
	~		|

HWZu=
	0.0694
	~	Day [0,0.1]
	~	HWZ von Plasma Fe wurde zu 100 Minuten bestimmt (Lang, S.63) --> 100/(24 x \
		60) = 0.0694 Tage
	|

"Serum-Ferritin"=
	0.235*5
	~	mg [0,235]
	~	Serum-Ferritin normal 30 - 235 Mikrogramm pro Liter, Annahme: 5 Liter \
		Blut: Faktor 5
	|

speichern=
	IF THEN ELSE(mg Blut>2000, ks*mg Blut , 0 )
	~	mg/Day
	~	Das Depoteisen macht ca. 20% aus.
	|

umwandeln=
	ku*mg Plasma-0.00143*ku*mg Blut
	~	mg/Day [0,?]
	~	Im Plasma hat es ca. 4 mg Fe, im Blut ca 2800 mg
	|

mg Speicher= INTEG (
	+speichern-freisetzen,
		0)
	~	mg
	~		|

resorbieren=
	kr*(Bioverfügbarkeit*Aufnahme Faktor)*mg Verdauungstrakt
	~	mg/Day [0,?]
	~		|

aufnehmen=
	ka*Dosis
	~	mg/Day [0,?]
	~		|

Bioverfügbarkeit=
	0.1
	~	Dmnl [0,0.4]
	~	Mittlere Eisenaufnahme im Darm: 10%; maximal 40%
	|

Dosis=
	18
	~	mg [0,100]
	~		|

eliminieren=
	ke*mg Blut
	~	mg/Day [0,?]
	~		|

HWZe=
	568
	~	Day [0,600]
	~	Konrad Lang, S.65 (mit Fe-59 bestimmt)
	|

ka=
	4
	~	1/Day [0,10]
	~	Aufnahmegeschwindigkeit pro Tag
	|

ke=
	ln(2)/HWZe
	~	1/Day [0,?]
	~		|

kr=
	6
	~	1/Day [4,8]
	~	Aufnahme HWZ  ca. 2 - 4 Stunden = 2/24 bis 4/24 Tage -->  kr=ln(2)/HWZ
	|

ks=
	0.003
	~	1/Day [0.001,0.01]
	~	Der Speicher braucht bei 100 mg Fe-Zufuhr/Tag ca. 90 Tage, bis er vom Blut \
		aufgefüllt ist, nachdem das Blut Normalwerte erreicht hat. Das wird mit \
		ks=0.003 etwa erreicht. Der Speicher hat dann mit derselben Zufuhr ca. 1/5 \
		der Eisenmenge vom Blut.
	|

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

FINAL TIME  = 360
	~	Day
	~	The final time for the simulation.
	|

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

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

TIME STEP  = 1
	~	Day [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,mg Verdauungstrakt,250,231,72,30,3,131,0,36,0,0,0,0,0-0-0,255-192-128,Helvetica|12||0-0-0
10,2,mg Blut,493,230,45,28,3,131,0,36,0,0,0,0,0-0-0,255-0-0,Helvetica|12||0-0-0
10,3,mg Speicher,496,90,46,29,3,131,0,36,0,0,0,0,0-0-0,255-128-192,Helvetica|12||0-0-0
12,4,48,31,223,10,8,0,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,5,7,1,4,0,0,22,0,0,0,-1--1--1,,1|(146,223)|
1,6,7,4,100,0,0,22,0,0,0,-1--1--1,,1|(72,223)|
11,7,48,109,223,6,8,34,3,0,0,1,0,0,0
10,8,aufnehmen,109,244,50,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,9,11,2,4,0,0,22,0,0,0,-1--1--1,,1|(417,230)|
1,10,11,1,100,0,0,22,0,0,0,-1--1--1,,1|(348,230)|
11,11,508,380,230,6,8,34,3,0,0,1,0,0,0
10,12,resorbieren,380,251,52,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
12,13,48,705,228,10,8,0,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,14,16,13,4,0,0,22,0,0,0,-1--1--1,,1|(658,228)|
1,15,16,2,100,0,0,22,0,0,0,-1--1--1,,1|(574,228)|
11,16,48,616,228,6,8,34,3,0,0,1,0,0,0
10,17,eliminieren,616,249,48,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,18,20,3,4,0,0,22,2,0,0,-1--1--1,|12||0-0-0,1|(467,139)|
1,19,20,2,100,0,0,22,2,0,0,-1--1--1,|12||0-0-0,1|(467,186)|
11,20,460,467,165,8,6,33,3,0,0,2,0,0,0
10,21,speichern,415,165,44,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
12,22,48,245,361,10,8,0,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,23,25,22,4,0,0,22,0,0,0,-1--1--1,,1|(245,332)|
1,24,25,1,100,0,0,22,0,0,0,-1--1--1,,1|(245,280)|
11,25,48,245,306,8,6,33,3,0,0,4,0,0,0
10,26,ausscheiden,309,306,56,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,27,ka,66,153,13,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,28,kr,306,149,11,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,29,ke,642,150,13,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,30,ks,379,135,12,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,31,27,7,1,0,0,0,0,64,0,-1--1--1,,1|(108,187)|
1,32,1,11,1,0,0,0,0,64,0,-1--1--1,,1|(328,188)|
1,33,2,16,1,0,0,0,0,64,0,-1--1--1,,1|(561,198)|
1,34,28,11,1,0,0,0,0,64,0,-1--1--1,,1|(348,166)|
1,35,2,20,1,0,0,0,0,64,0,-1--1--1,,1|(427,184)|
1,36,29,16,1,0,0,0,0,64,0,-1--1--1,,1|(651,197)|
10,37,Bioverfügbarkeit,384,351,48,28,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,38,37,25,1,0,0,0,0,64,0,-1--1--1,,1|(290,335)|
1,39,37,11,1,0,0,0,0,64,0,-1--1--1,,1|(396,298)|
1,40,28,25,1,0,0,0,0,64,0,-1--1--1,,1|(329,269)|
10,41,HWZe,705,147,30,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,42,41,29,1,0,0,0,0,64,0,-1--1--1,,1|(670,144)|
10,43,Dosis,46,291,27,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,44,43,7,1,0,0,0,0,64,0,-1--1--1,,1|(101,269)|
1,45,1,25,1,0,0,0,0,64,0,-1--1--1,,1|(280,276)|
1,46,30,20,1,0,0,0,0,64,0,-1--1--1,,1|(416,139)|
10,47,mg Plasma,498,367,41,26,3,131,0,36,0,0,0,0,0-0-0,255-255-128,Helvetica|12||0-0-0
1,48,50,2,4,0,0,22,0,0,0,-1--1--1,,1|(496,272)|
1,49,50,47,68,0,0,22,2,0,0,-1--1--1,|12||0-0-0,1|(496,320)|
11,50,188,496,293,8,6,33,3,0,0,4,0,0,0
10,51,umwandeln,555,293,51,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,52,2,50,1,0,0,0,0,64,0,-1--1--1,,1|(448,277)|
1,53,47,50,1,0,0,0,0,64,0,-1--1--1,,1|(560,345)|
10,54,HWZu,623,342,29,13,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,55,ku,630,308,12,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,56,55,50,1,0,0,0,0,64,0,-1--1--1,,1|(582,274)|
1,57,54,55,1,0,0,0,0,64,0,-1--1--1,,1|(676,320)|
10,58,"Serum-Ferritin",416,449,38,24,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,59,Aufnahme Faktor,268,419,46,23,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,60,58,59,1,0,0,0,0,64,0,-1--1--1,,1|(333,451)|
1,61,47,59,1,0,0,0,0,64,0,-1--1--1,,1|(420,417)|
1,62,59,25,1,0,0,0,0,64,0,-1--1--1,,1|(204,362)|
1,63,59,11,1,0,0,0,0,64,0,-1--1--1,,1|(422,299)|
10,64,kf,586,95,10,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,65,67,2,4,0,0,22,0,0,0,-1--1--1,,1|(518,184)|
1,66,67,3,100,0,0,22,0,0,0,-1--1--1,,1|(518,136)|
11,67,252,518,160,8,6,33,3,0,0,4,0,0,0
10,68,freisetzen,571,160,45,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,69,3,67,1,0,0,0,0,64,0,-1--1--1,,1|(551,130)|
1,70,2,67,1,0,0,0,0,64,0,-1--1--1,,1|(550,179)|
1,71,64,67,1,0,0,0,0,64,0,-1--1--1,,1|(584,122)|
///---\\\
:L<%^E!@
1:Current.vdf
9:Current
23:0
15:0,0,0,1,0,0
19:100,0
27:2,
34:0,
4:Time
5:mg Blut
24:0
25:360
26:360