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

zuführen=
	kz
	~	Mikrogramm/Day [0,?]
	~		|

eliminieren=
	IF THEN ELSE(Folsäure im Blut<=0.1, 0, k elim*(ABS((Folsäure im Blut-Zielwert)+(Folsäure im Blut\
		-Zielwert))/2)+Basis Elimination )
	~	Mikrogramm/Day [0,?]
	~	Elimination im Harn, Schweiss etc.; Es wird umso weniger eliminiert, je \
		kleinner der Blutwert im Vergleich zum Normwert ist, aber es wird umso \
		mehr eliminiert, je grösser der Blutwert im Vergleich zum Normwert ist \
		[Zaeslin S.77}. Der absolute Betrag verhindert negative Werte.
	|

resorbieren=
	k res*Verdauungstrakt
	~	Mikrogramm/Day [0,?]
	~		|

Folsäure im Blut= INTEG (
	resorbieren+Speicher rueck-eliminieren-metabolisieren-Speicher hin,
		1)
	~	Mikrogramm [0,80]
	~	Menge Folsäure im Blut: Normal 5-20 ng/ml -> 14 -56 Mikrogramm
	|

km=
	1
	~	1/Day [0,3]
	~	Reaktionsgeschwindigkeitskonstante für den Grundumsatz, der ist so \
		gewählt, dass bei einer Zufuhr von 100-400 Mikrogramm pro Tag etwa der \
		Normwert von 10 ng/ml erreicht und gehalten werden kann (Grundumsatz)
	|

Basis Elimination=
	200
	~	Mikrogramm/Day [100,400]
	~	Durchschnitt 200 Mikrogramm/Tag
	|

Blutplasmakonzentration von Folsäure=
	Folsäure im Blut/Blutplasmavolumen*1000
	~	ng/ml [0,?]
	~		|

Blutplasmavolumen=
	3000
	~	ml*Mikrogramm/ng [2800,3400]
	~	Blutvolumen ca. 5000-6000 ml, Blutplasma ca. 56% -> 2800-3400 ml
	|

metabolisieren=
	km*Folsäure im Blut
	~	Mikrogramm/Day [0,?]
	~		|

Zielwert=
	15
	~	Mikrogramm [15,60]
	~	5-20 ng/ml; Normwert ca. 10 ng/ml -> 15-60 Mikrogramm auf 3000 ml Blut;  \
		durch Homöostase wird dieser Wert eingestellt. Der Zielwert ist die \
		untere Grenze des Normwerts (genügende Menge)
	|

Speicher rueck=
	kr*Folsäure in der Leber*Zielwert/Folsäure im Blut
	~	Mikrogramm/Day [0,?]
	~	Freisetzungsgeschwindigkeit aus dem Speicher ins Blut; je kleiner die \
		Menge Folsäure im Vergleich zum Normwert im Blut ist, desto rascher wird \
		von der Leber abgegeben
	|

Verdauungstrakt= INTEG (
	zuführen-ausscheiden-resorbieren,
		0)
	~	Mikrogramm [0,?]
	~	Menge im Verdauungstrakt
	|

ausscheiden=
	ka*Verdauungstrakt
	~	Mikrogramm/Day [0,?]
	~		|

Leber Kapazität=
	3000
	~	Mikrogramm [1000,6000]
	~	Durchschnittliche Kapazität 2.5-5 mg entspr. 2500-5000 Mikrogramm; \
		Mittelwert 3000 Mikrogramm
	|

Speicher hin=
	kh*Folsäure im Blut*Leber Kapazität/Folsäure in der Leber
	~	Mikrogramm/Day [0,?]
	~	Aufnahmegeschwindigkeit vom Blut in die Leber; je mehr die Leber gefüllt \
		ist, desto langsamer nimmt sie auf
	|

ka=
	2
	~	1/Day [0,?]
	~	Verweilzeit im Dünndarm 7-9 Stunden = 0.34-0.26 Tage -> k ist ungefähr \
		0.6/0.3 =2
	|

kr=
	ln(2)/HWZl
	~	1/Day [0,?]
	~		|

k elim=
	ln(2)/HWZb
	~	1/Day [0,?]
	~		|

HWZb=
	0.75
	~	Day [0.5,1]
	~	Halbwertszeiten der Folsäure im Blut
	|

HWZl=
	30
	~	Day [10,60]
	~	Halbwertszeit der Freisetzung von der Leber ins Blut
	|

HWZs=
	6
	~	Day [5,7]
	~	Halbwertszeit der Aufnahme vom Blut in die Leber muss vergleichbar sein \
		mit der Halbwertszeit von Folsäure im Blut, da noch metabolisiert und \
		abgebaut wird
	|

kh=
	ln(2)/HWZs
	~	1/Day [0,?]
	~		|

Folsäure in der Leber= INTEG (
	IF THEN ELSE(Speicher hin>10, 10, Speicher hin)-Speicher rueck,
		Leber Vorrat)
	~	Mikrogramm [0,8000]
	~	Grösster Speicher von Folsäure; Werte von 2500-5000 Mikrogramm sind \
		normal
	|

Leber Vorrat=
	2000
	~	Mikrogramm [10,4000]
	~	1000 Mirkogramm = 1 mg; Normal in der Leber ca. 2 mg; zu wählender \
		Anfangswert
	|

kz=
	400
	~	Mikrogramm/Day [100,1000]
	~	Tägliche Zufuhr
	|

k res=
	7.2
	~	1/Day [5,10]
	~	Reaktionsgeschwindikeits-Konstante der Resorption (max. Plasmaspiegel in 2 \
		Std. d.h. kres=0.3 1/Std. ->  k= 7.2 1/Tag; Ist kres=0, dann fehlen die IF \
		(kres mit Simulation abgeschätzt)
	|

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

FINAL TIME  = 300
	~	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  = 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,Helvetica|12||0-0-0|0-0-0|0-0-255|-1--1--1|-1--1--1|120,120,5,0
10,1,Folsäure im Blut,637,583,91,68,3,131,0,36,0,0,0,0,0-0-0,255-0-0,Helvetica|12||0-0-0
1,2,3,1,4,0,0,22,0,0,0,-1--1--1,,1|(496,559)|
11,3,236,436,559,10,14,34,3,0,0,1,0,0,0
10,4,resorbieren,436,586,52,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,5,6,1,100,0,0,22,0,0,0,-1--1--1,,1|(784,624)|
11,6,316,850,624,10,14,34,3,0,0,1,0,0,0
10,7,eliminieren,850,651,48,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,8,k res,301,468,24,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,9,k elim,870,723,28,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,10,8,4,1,0,0,0,0,64,0,-1--1--1,,1|(398,487)|
1,11,9,7,1,0,0,0,0,64,0,-1--1--1,,1|(883,686)|
1,12,1,6,1,0,0,0,0,64,0,-1--1--1,,1|(782,673)|
10,13,Folsäure in der Leber,632,331,91,39,3,131,0,36,0,0,0,0,0-0-0,255-255-128,Helvetica|12||0-0-0
1,14,16,13,4,0,0,22,0,0,0,-1--1--1,,1|(559,407)|
1,15,16,1,100,0,0,22,0,0,0,-1--1--1,,1|(559,488)|
11,16,524,559,453,10,8,33,3,0,0,4,0,0,0
10,17,Speicher hin,613,453,44,23,40,131,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,18,20,1,4,0,0,22,0,0,0,-1--1--1,,1|(708,493)|
1,19,20,13,100,0,0,22,0,0,0,-1--1--1,,1|(708,412)|
11,20,396,708,463,10,8,33,3,0,0,4,0,0,0
10,21,Speicher rueck,759,463,41,23,40,131,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,22,1,16,1,0,0,0,0,64,0,-1--1--1,,1|(576,470)|
1,23,13,20,1,0,0,0,0,64,0,-1--1--1,,1|(751,410)|
10,24,kh,456,482,12,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,25,kr,790,346,11,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,26,24,16,1,0,0,0,0,64,0,-1--1--1,,1|(485,431)|
1,27,25,20,1,0,0,0,0,64,0,-1--1--1,,1|(777,396)|
12,28,48,976,625,10,8,0,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,29,6,28,4,0,0,22,0,0,0,-1--1--1,,1|(913,624)|
10,30,Verdauungstrakt,263,562,83,46,3,131,0,36,0,0,0,0,0-0-0,255-192-128,Helvetica|12||0-0-0
1,31,3,30,100,0,0,22,0,0,0,-1--1--1,,1|(386,559)|
12,32,48,30,553,10,8,0,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,33,35,30,4,0,0,22,0,0,0,-1--1--1,,1|(146,553)|
1,34,35,32,100,0,0,22,0,0,0,-1--1--1,,1|(70,553)|
11,35,48,106,553,6,8,34,3,0,0,1,0,0,0
10,36,zuführen,106,574,39,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,37,30,3,1,0,0,0,0,64,0,-1--1--1,,1|(361,520)|
10,38,kz,58,464,12,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,39,38,35,1,0,0,0,0,64,0,-1--1--1,,1|(98,495)|
10,40,HWZb,784,760,30,13,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,41,40,9,1,0,0,0,0,64,0,-1--1--1,,1|(822,753)|
10,42,HWZl,932,326,26,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,43,42,25,1,0,0,0,0,64,0,-1--1--1,,1|(848,369)|
10,44,HWZs,373,409,29,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,45,44,24,1,0,0,0,0,64,0,-1--1--1,,1|(417,431)|
10,46,Leber Vorrat,454,300,58,13,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,47,46,13,1,0,0,0,0,64,1,-1--1--1,,1|(541,288)|
12,48,48,258,726,10,8,0,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,49,51,48,4,0,0,22,0,0,0,-1--1--1,,1|(254,690)|
1,50,51,30,100,0,0,22,0,0,0,-1--1--1,,1|(254,629)|
11,51,48,254,656,8,6,33,3,0,0,4,0,0,0
10,52,ausscheiden,318,656,56,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,53,ka,160,625,13,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,54,30,51,1,0,0,0,0,64,0,-1--1--1,,1|(235,608)|
1,55,53,51,1,0,0,0,0,64,0,-1--1--1,,1|(204,678)|
10,56,Leber Kapazität,305,344,44,23,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,57,56,16,1,0,0,0,0,64,0,-1--1--1,,1|(461,352)|
1,58,13,16,1,0,0,0,0,64,0,-1--1--1,,1|(623,402)|
10,59,Blutplasmakonzentration von Folsäure,568,796,139,76,8,131,0,36,0,0,0,0,0-0-0,192-255-192,Helvetica|12||0-0-0
10,60,Blutplasmavolumen,270,774,50,22,8,131,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,61,1,59,1,0,0,0,0,64,0,-1--1--1,,1|(627,687)|
1,62,60,59,1,0,0,0,0,64,0,-1--1--1,,1|(359,826)|
1,63,1,20,1,0,0,0,0,64,0,-1--1--1,,1|(668,478)|
10,64,Zielwert,939,463,45,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,65,64,20,1,0,0,0,0,64,0,-1--1--1,,1|(863,437)|
10,66,Basis Elimination,943,777,49,23,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
1,67,66,6,1,0,0,0,0,64,0,-1--1--1,,1|(950,745)|
12,68,48,977,557,10,8,0,3,0,0,-1,0,0,0
1,69,71,68,4,0,0,22,0,0,0,-1--1--1,,1|(910,562)|
1,70,71,1,100,0,0,22,0,0,0,-1--1--1,,1|(785,562)|
11,71,48,848,562,6,8,34,3,0,0,1,0,0,0
10,72,metabolisieren,848,583,69,13,40,131,0,0,-1,0,0,0
10,73,km,779,510,15,13,8,3,0,0,0,0,0,0
1,74,73,71,1,0,0,0,0,64,0,-1--1--1,,1|(827,519)|
1,75,1,71,1,0,0,0,0,64,0,-1--1--1,,1|(759,531)|
1,76,64,6,1,0,0,0,0,64,0,-1--1--1,,1|(932,573)|
12,77,0,1316,505,324,244,3,188,0,0,1,0,0,0
Blutplasmakonzentration
///---\\\
:GRAPH Blutplasmakonzentration
:TITLE Blutplasmakonzentration
:X-AXIS Time
:SCALE
:VAR Blutplasmakonzentration von Folsäure
:LINE-WIDTH 2
:L<%^E!@
1:Current.vdf
9:Current
23:0
15:0,0,0,1,0,0
19:5,0
27:2,
34:0,
4:Time
5:k res
24:0
25:300.009
26:300.009