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

Ende=
	90
	~	Day [0,360]
	~	Ende der Einnahme von Eisentabletten (Tag)
	|

aufnehmen=
	PULSE TRAIN(Start, Dauer , Wiederholungszeit , Ende )*ka Tablette+ka Nahrung*Dosis
	~	mg/Day [0,?]
	~		|

ka Tablette=
	100
	~	mg/Day [0,500]
	~	Dosis jeder Tablette
	|

Wiederholungszeit=
	7
	~	Day [0,30,0.5]
	~	jede Woche = 7 Tage
	|

Dauer=
	0.5
	~	Day [0,3]
	~	Dauer der Freisetzung aus der Tablette ca. 0.5 Tage
	|

Start=
	30
	~	Day [0,?]
	~	Start der Einnahme von Eisentabletten (Tag)
	|

freisetzen=
	kf*mg Speicher
	~	mg/Day [0,?]
	~		|

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,?]
	~		|

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.001,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=
	ks*mg Blut
	~	mg/Day [0,?]
	~	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,?]
	~		|

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

Dosis=
	18
	~	mg [0,100]
	~	Dosis von Fe der Nahrung
	|

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

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

ka Nahrung=
	0.1
	~	1/Day [0,1]
	~	Aufnahmegeschwindigkeit pro Tag, hängt von der zugeführten Menge ab, \
		entspricht hier der Bioverfügbarkeit
	|

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.04
	~	1/Day [0.001,0.06]
	~	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.04 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  = 0.1
	~	Day [0,?]
	~	The frequency with which output is stored.
	|

TIME STEP  = 0.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,326,194,58,25,3,131,0,36,0,0,0,0,0-0-0,255-192-128,Helvetica|12||0-0-0
10,2,mg Blut,520,193,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,522,81,37,23,3,131,0,36,0,0,0,0,0-0-0,255-128-192,Helvetica|12||0-0-0
12,4,48,150,187,8,6,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|(242,187)|
1,6,7,4,100,0,0,22,0,0,0,-1--1--1,,1|(183,187)|
11,7,48,213,187,5,6,34,3,0,0,1,0,0,0
10,8,aufnehmen,213,204,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|(459,193)|
1,10,11,1,100,0,0,22,0,0,0,-1--1--1,,1|(405,193)|
11,11,172,430,193,5,6,34,3,0,0,1,0,0,0
10,12,resorbieren,430,210,42,10,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
12,13,48,690,191,8,6,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|(652,191)|
1,15,16,2,100,0,0,22,0,0,0,-1--1--1,,1|(585,191)|
11,16,48,618,191,5,6,34,3,0,0,1,0,0,0
10,17,eliminieren,618,208,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|(499,120)|
1,19,20,2,100,0,0,22,2,0,0,-1--1--1,|12||0-0-0,1|(499,158)|
11,20,604,499,141,6,5,33,3,0,0,2,0,0,0
10,21,speichern,458,141,35,10,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
12,22,48,322,298,8,6,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|(322,274)|
1,24,25,1,100,0,0,22,0,0,0,-1--1--1,,1|(322,234)|
11,25,48,322,254,6,5,33,3,0,0,4,0,0,0
10,26,ausscheiden,373,254,45,10,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,27,ka Nahrung,243,110,42,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,28,kr,370,128,9,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,29,ke,639,129,10,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,30,ks,429,117,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|(238,157)|
1,32,1,11,1,0,0,0,0,64,0,-1--1--1,,1|(388,159)|
1,33,2,16,1,0,0,0,0,64,0,-1--1--1,,1|(574,167)|
1,34,28,11,1,0,0,0,0,64,0,-1--1--1,,1|(404,142)|
1,35,2,20,1,0,0,0,0,64,0,-1--1--1,,1|(467,156)|
1,36,29,16,1,0,0,0,0,64,0,-1--1--1,,1|(646,166)|
10,37,Bioverfügbarkeit,430,286,35,19,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|(358,277)|
1,39,37,11,1,0,0,0,0,64,0,-1--1--1,,1|(442,247)|
1,40,28,25,1,0,0,0,0,64,0,-1--1--1,,1|(389,224)|
10,41,HWZe,662,85,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|(674,110)|
10,43,Dosis,184,268,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|(226,230)|
1,45,1,25,1,0,0,0,0,64,0,-1--1--1,,1|(350,230)|
1,46,30,20,1,0,0,0,0,64,0,-1--1--1,,1|(458,120)|
10,47,mg Plasma,524,302,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|(522,226)|
1,49,50,47,68,0,0,22,2,0,0,-1--1--1,|12||0-0-0,1|(522,265)|
11,50,412,522,243,6,5,33,3,0,0,4,0,0,0
10,51,umwandeln,570,243,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|(484,230)|
1,53,47,50,1,0,0,0,0,64,0,-1--1--1,,1|(574,285)|
10,54,HWZu,627,297,23,10,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,55,ku,630,255,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|(591,228)|
1,57,54,55,1,0,0,0,0,64,0,-1--1--1,,1|(666,262)|
10,58,"Serum-Ferritin",458,369,30,20,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,59,Aufnahme Faktor,340,344,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|(392,370)|
1,61,47,59,1,0,0,0,0,64,0,-1--1--1,,1|(462,342)|
1,62,59,25,1,0,0,0,0,64,0,-1--1--1,,1|(289,298)|
1,63,59,11,1,0,0,0,0,64,0,-1--1--1,,1|(463,248)|
10,64,kf,594,85,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|(540,156)|
1,66,67,3,100,0,0,22,0,0,0,-1--1--1,,1|(540,118)|
11,67,332,540,137,6,5,33,3,0,0,4,0,0,0
10,68,freisetzen,582,137,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|(566,113)|
1,70,64,67,1,0,0,0,0,64,0,-1--1--1,,1|(593,106)|
10,71,Start,125,102,19,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,72,Ende,96,141,20,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,73,Dauer,88,187,23,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,74,Wiederholungszeit,77,253,55,25,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,75,ka Tablette,146,57,42,10,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,76,75,7,1,0,0,0,0,64,0,-1--1--1,,1|(184,102)|
1,77,71,7,1,0,0,0,0,64,0,-1--1--1,,1|(176,136)|
1,78,72,7,1,0,0,0,0,64,0,-1--1--1,,1|(156,159)|
1,79,73,7,1,0,0,0,0,64,0,-1--1--1,,1|(156,171)|
1,80,74,7,1,0,0,0,0,64,0,-1--1--1,,1|(157,217)|
///---\\\
: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.013
26:360.013