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

eliminieren=
	IF THEN ELSE(B12 im Blut<=0.1, 0, k elim*(ABS((B12 im Blut-Zielwert)+(B12 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,?]
	~		|

B12 im Blut= INTEG (
	resorbieren+Speicher rueck-eliminieren-metabolisieren-Speicher hin,
		0.01)
	~	Mikrogramm [0,?]
	~	Menge B12 im Blut
	|

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

Basis Elimination=
	0.25
	~	Mikrogramm/Day [0.08,0.5]
	~	Durchschnitt 0.25 Mikrogramm/Tag [Zaeslin S.76]
	|

Blutplasmakonzentration von B12=
	B12 im Blut/Blutplasmavolumen*1e+006
	~	pg/ml [0,?]
	~	Werte, die medizinisch verwendet werden; normal zwischen 200 - 1200 pg/ml, \
		Normalwert 500 pg/ml
	|

Blutplasmavolumen=
	3000
	~	ml*Mikrogramm/pg [2800,3400]
	~	Blutmenge (Erwachsene): 5000-6000 ml 
		Blutplasma: ca. 56% der Blutmenge: 2800 -3400 ml
	|

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

Zielwert=
	1
	~	Mikrogramm [1,6]
	~	200-1200 pg/ml; Normwert ca. 500 pg/ml -> 1 - 6 Mikrogramm auf 5000 ml \
		Blut; 500 pg/ml entspr. 2.5 Mikrogramm total; durch Homöostase wird \
		dieser Wert eingestellt. Der Zielwert ist die untere Grenze des Normwerts \
		(genügende Menge)
	|

Speicher rueck=
	kr*B12 in der Leber*Zielwert/B12 im Blut
	~	Mikrogramm/Day [0,?]
	~	Freisetzungsgeschwindigkeit aus dem Speicher ins Blut; je kleiner die \
		Menge B12 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=
	2000
	~	Mikrogramm [1000,4000]
	~	Durchschnittliche Kapazität 1-4 mg entspr. 1000-4000 Mikrogramm; \
		Mittelwert 2000 Mikrogramm
	|

Speicher hin=
	kh*B12 im Blut*Leber Kapazität/B12 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=
	6
	~	Day [4,7]
	~	Halbwertszeiten des B12 im Blut
	|

HWZl=
	450
	~	Day [400,750]
	~	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 B12 im Blut, da noch metabolisiert und abgebaut \
		wird
	|

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

B12 in der Leber= INTEG (
	IF THEN ELSE(Speicher hin>10, 10, Speicher hin)-Speicher rueck,
		Leber Vorrat)
	~	Mikrogramm [0,?]
	~	Grösster Speicher von B12; Die Menge der Transcobalamine beschränken die \
		maximale Aufnahme aus dem Blut auf ca. 10 Mikrogramm/Tag
	|

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

kz=
	2
	~	Mikrogramm/Day [0.01,100]
	~	Tägliche Zufuhr
	|

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

k res=
	4.8
	~	1/Day [4,6]
	~	Reaktionsgeschwindikeits-Konstante der Resorption (max. Plasmaspiegel in \
		8-12 Std. d.h. kres=0.2 1/Std. ->  k= 4.8 1/Tag; Ist kres=0, dann fehlen \
		die IF (kres mit Simulation abgeschätzt) [Vit-B12 Product Information]
	|

********************************************************
	.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.05
	~	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,B12 im Blut,580,558,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|(439,534)|
11,3,172,379,534,10,14,34,3,0,0,1,0,0,0
10,4,resorbieren,379,561,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|(727,599)|
11,6,284,793,599,10,14,34,3,0,0,1,0,0,0
10,7,eliminieren,793,626,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,244,443,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,813,698,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|(341,462)|
1,11,9,7,1,0,0,0,0,64,0,-1--1--1,,1|(826,661)|
1,12,1,6,1,0,0,0,0,64,0,-1--1--1,,1|(725,648)|
10,13,B12 in der Leber,571,334,95,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|(494,396)|
1,15,16,1,100,0,0,22,0,0,0,-1--1--1,,1|(494,463)|
11,16,492,494,428,10,8,33,3,0,0,4,0,0,0
10,17,Speicher hin,548,428,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|(643,468)|
1,19,20,13,100,0,0,22,0,0,0,-1--1--1,,1|(643,401)|
11,20,364,643,438,10,8,33,3,0,0,4,0,0,0
10,21,Speicher rueck,694,438,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|(512,445)|
1,23,13,20,1,0,0,0,0,64,0,-1--1--1,,1|(680,396)|
10,24,kh,399,457,12,13,8,3,0,32,0,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,25,kr,733,321,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|(426,412)|
1,27,25,20,1,0,0,0,0,64,0,-1--1--1,,1|(713,379)|
12,28,48,919,600,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|(856,599)|
10,30,Verdauungstrakt,206,537,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|(329,534)|
12,32,48,-27,528,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|(89,528)|
1,34,35,32,100,0,0,22,0,0,0,-1--1--1,,1|(13,528)|
11,35,48,49,528,6,8,34,3,0,0,1,0,0,0
10,36,zuführen,49,549,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|(304,495)|
10,38,kz,8,439,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|(44,472)|
10,40,HWZb,727,735,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|(765,728)|
10,42,HWZl,875,301,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|(791,344)|
10,44,HWZs,316,384,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|(360,406)|
10,46,Leber Vorrat,397,275,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|(484,277)|
12,48,48,201,701,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|(197,665)|
1,50,51,30,100,0,0,22,0,0,0,-1--1--1,,1|(197,604)|
11,51,48,197,631,8,6,33,3,0,0,4,0,0,0
10,52,ausscheiden,261,631,56,13,40,3,0,32,-1,0,0,0,0-0-0,0-0-0,Helvetica|12||0-0-0
10,53,ka,103,605,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|(178,583)|
1,55,53,51,1,0,0,0,0,64,0,-1--1--1,,1|(149,655)|
10,56,Leber Kapazität,248,319,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|(399,330)|
1,58,13,16,1,0,0,0,0,64,0,-1--1--1,,1|(550,390)|
10,59,Blutplasmakonzentration von B12,516,745,168,79,8,131,0,36,0,0,0,0,0-0-0,192-255-192,Helvetica|12||0-0-0
10,60,Blutplasmavolumen,229,760,53,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|(530,631)|
1,62,60,59,1,0,0,0,0,64,0,-1--1--1,,1|(310,789)|
1,63,1,20,1,0,0,0,0,64,0,-1--1--1,,1|(606,455)|
10,64,Zielwert,882,438,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|(803,389)|
10,66,Basis Elimination,886,752,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|(893,720)|
12,68,48,920,532,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|(853,537)|
1,70,71,1,100,0,0,22,0,0,0,-1--1--1,,1|(728,537)|
11,71,48,791,537,6,8,34,3,0,0,1,0,0,0
10,72,metabolisieren,791,558,69,13,40,131,0,0,-1,0,0,0
10,73,km,722,485,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|(770,494)|
1,75,1,71,1,0,0,0,0,64,0,-1--1--1,,1|(702,506)|
1,77,64,6,1,0,0,0,0,64,0,-1--1--1,,1|(875,548)|
12,78,0,1278,404,293,228,3,188,0,0,1,0,0,0
Blutplasmakonzentration
///---\\\
:GRAPH Blutplasmakonzentration
:TITLE Blutplasmakonzentration
:X-AXIS Time
:SCALE
:VAR Blutplasmakonzentration von B12
: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:Blutplasmavolumen
24:0
25:300
26:300