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

freisetzen=
	kf*mg Speicher
	~	mg/Day
	~		|

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
	|

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

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. \
		(=ln(2)/3)
	|

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=
	ks*mg Blut
	~	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(4/2800=0.0014286)
	|

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

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

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

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

Dosis=
	25
	~	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.03
	~	1/Day [0.01,0.05]
	~	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.03 (=ln(2)/23) 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|96,96,100,0
10,1,mg Verdauungstrakt,200,185,58,24,3,131,0,36,0,0,0,0,0-0-0,255-192-128,Helvetica|12||0-0-0
10,2,mg Blut,394,184,36,22,3,131,0,36,0,0,0,0,0-0-0,255-0-0,Helvetica|12||0-0-0
10,3,mg Speicher,397,72,37,23,3,131,0,36,0,0,0,0,0-0-0,255-128-192,Helvetica|12||0-0-0
12,4,48,25,178,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|(117,178)|
1,6,7,4,100,0,0,22,0,0,0,-1--1--1,,1|(58,178)|
11,7,48,87,178,5,6,34,3,0,0,1,0,0,0
10,8,aufnehmen,87,195,40,10,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|(333,184)|
1,10,11,1,100,0,0,22,0,0,0,-1--1--1,,1|(278,184)|
11,11,508,304,184,5,6,34,3,0,0,1,0,0,0
10,12,resorbieren,304,201,42,10,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
12,13,48,564,182,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|(526,182)|
1,15,16,2,100,0,0,22,0,0,0,-1--1--1,,1|(459,182)|
11,16,48,493,182,5,6,34,3,0,0,1,0,0,0
10,17,eliminieren,493,199,38,10,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|(374,111)|
1,19,20,2,100,0,0,22,2,0,0,-1--1--1,|12||0-0-0,1|(374,149)|
11,20,460,374,132,6,5,33,3,0,0,2,0,0,0
10,21,speichern,332,132,35,10,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
12,22,48,196,289,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|(196,265)|
1,24,25,1,100,0,0,22,0,0,0,-1--1--1,,1|(196,224)|
11,25,48,196,245,6,5,33,3,0,0,4,0,0,0
10,26,ausscheiden,247,245,45,10,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,27,ka,53,122,10,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,28,kr,245,119,9,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,29,ke,514,120,10,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,30,ks,296,93,10,10,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|(86,150)|
1,32,1,11,1,0,0,0,0,64,0,-1--1--1,,1|(262,150)|
1,33,2,16,1,0,0,0,0,64,0,-1--1--1,,1|(449,158)|
1,34,28,11,1,0,0,0,0,64,0,-1--1--1,,1|(278,133)|
1,35,2,20,1,0,0,0,0,64,0,-1--1--1,,1|(342,147)|
1,36,29,16,1,0,0,0,0,64,0,-1--1--1,,1|(521,158)|
10,37,Bioverfügbarkeit,307,281,38,22,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|(232,268)|
1,39,37,11,1,0,0,0,0,64,0,-1--1--1,,1|(317,238)|
1,40,28,25,1,0,0,0,0,64,0,-1--1--1,,1|(263,215)|
10,41,HWZe,564,118,24,10,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|(536,115)|
10,43,Dosis,37,233,22,10,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|(81,215)|
1,45,1,25,1,0,0,0,0,64,0,-1--1--1,,1|(224,221)|
1,46,30,20,1,0,0,0,0,64,0,-1--1--1,,1|(331,100)|
10,47,mg Plasma,398,294,33,21,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|(397,217)|
1,49,50,47,68,0,0,22,2,0,0,-1--1--1,|12||0-0-0,1|(397,256)|
11,50,188,397,234,6,5,33,3,0,0,4,0,0,0
10,51,umwandeln,444,234,41,10,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|(358,222)|
1,53,47,50,1,0,0,0,0,64,0,-1--1--1,,1|(448,276)|
10,54,HWZu,499,300,23,10,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,55,ku,504,246,10,10,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|(466,219)|
1,57,54,55,1,0,0,0,0,64,0,-1--1--1,,1|(538,266)|
10,58,"Serum-Ferritin",333,359,30,19,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,59,Aufnahme Faktor,214,335,37,18,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|(266,361)|
1,61,47,59,1,0,0,0,0,64,0,-1--1--1,,1|(336,334)|
1,62,59,25,1,0,0,0,0,64,0,-1--1--1,,1|(163,290)|
1,63,59,11,1,0,0,0,0,64,0,-1--1--1,,1|(338,239)|
10,64,kf,469,76,8,10,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|(414,147)|
1,66,67,3,100,0,0,22,0,0,0,-1--1--1,,1|(414,109)|
11,67,252,414,128,6,5,33,3,0,0,4,0,0,0
10,68,freisetzen,457,128,36,10,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|(441,104)|
1,71,64,67,1,0,0,0,0,64,0,-1--1--1,,1|(467,98)|
12,72,0,919,313,298,192,3,188,0,0,1,0,0,0
Metabolismus
///---\\\
:GRAPH Metabolismus
:X-AXIS Time
:SCALE
:VAR mg Speicher
:LINE-WIDTH 2
:VAR mg Blut
:LINE-WIDTH 3
: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 Plasma
24:0
25:360
26:360