{UTF-8}
********************************************************
	.nahrungskette ddt
********************************************************~
		Trapp Stefan, Matthies Michael, Dynamik von Schadstoffen - \
		Umweltmodellierung mit Cemos, Springer Verlag Berlin 1996, 119-121; \
		Simulation: Peter Bützer
	|

DDT Gras= INTEG (
	+Ausscheidung-Aufnahme-Elimination+Ausscheidung,
		m 0)
	~	ng [0,?]
	~	Kontamination der gesamten Weidefläche, auch die Wiederkontamination \
		durch Kot
	|

Ausscheidung=
	k A*DDT Kuh
	~	ng/Day [0,?]
	~		|

DDT Kuh= INTEG (
	Aufnahme-Ausscheidung-Transfer-Ausscheidung,
		0)
	~	ng [0,?]
	~	Masse DDT in der Kuh (kein Metabolismus) durch Aufnahme aus dem Gras und \
		Ausscheidung über Kot und Milch
	|

k A=
	0.002
	~	1/Day [0,?]
	~	Halbwertszeit der Ausscheidung mit dem Kot/Urin ca. 1 Jahr = ln(2)/365 d-1
	|

Aufnahme=
	k GK*DDT Gras
	~	ng/Day [0,?]
	~		|

c Gras=
	DDT Gras/m Gras
	~	ng/kg [0,?]
	~		|

c Kuh=
	DDT Kuh/m Kuh
	~	ng/kg [0,?]
	~		|

c Milch=
	IF THEN ELSE(Time>0, DDT Milch/(Time*m Milch)*k M , 0 )
	~	ng/kg [0,?]
	~		|

DDT Milch= INTEG (
	Transfer-Milchproduktion,
		0)
	~	ng [0,?]
	~	Masse DDT in der gesamten produzierten Milch (kein Metabolismus)
	|

Elimination=
	k E*DDT Gras
	~	ng/Day [0,?]
	~	Elimination durch Photolyse, Eintrag in den Boden etc.
	|

Fläche=
	10000
	~	m2 [0,?]
	~	Weidefläche
	|

k E=
	0.0002
	~	1/Day [0,?]
	~	HWZ für Abbau ca. 10 Jahre
	|

k GK=
	0.7*Verbrauch/(Fläche*Zuwachs)
	~	1/Day [0,?]
	~	Nur 70% des DDT werden aufgenommen (resorbiert)
	|

k KM=
	0.017
	~	1/Day [0,?]
	~		|

k M=
	1
	~	Day [0,?]
	~	Ein Tag Milch wird für die mittlere Konzentration verwendet
	|

m 0=
	100000
	~	ng [0,?]
	~	Eingebrachte Kontamination mit DDT (Annahme)
	|

m Gras=
	10000
	~	kg [0,?]
	~	Totale Masse Gras, die kontaminiert ist
	|

m Kuh=
	500
	~	kg [100,?]
	~	Mittlere Masse einer Kuh
	|

m Milch=
	25
	~	kg [1.25,?]
	~	25 kg: Masse Milch, die Pro Tag, pro Kuh produziert wird, Fett und Eiweiss \
		der Milch machen ca. 5% aus. folgedessen ist diese Masse ca. 20 mal \
		kleiner, als die Gesamtmasse von Milch.
	|

Milchproduktion=
	IF THEN ELSE(DDT Milch>0, 1 , 0 )
	~	ng/Day [0,?]
	~	Ausscheidung der kontaminierten Milch (am Anfang nichts!)
	|

Transfer=
	k KM*DDT Kuh
	~	ng/Day [0,?]
	~		|

Verbrauch=
	50
	~	kg/Day [0,?]
	~	Durchschnittlich gefressene Menge Gras pro Kuh und Tag
	|

Zuwachs=
	1
	~	kg/m2 [0,?]
	~	Durchschnittlicher Zuwachs pro m2 Weidefläche
	|

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

FINAL TIME  = 60
	~	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,DDT Gras,255,196,40,20,3,3,0,4,0,0,0,0,0-0-0,192-255-192,|12||0-0-0
10,2,DDT Kuh,447,196,36,22,3,131,0,4,0,0,0,0,0-0-0,255-192-128,|12||0-0-0
10,3,DDT Milch,672,202,41,23,3,131,0,0,0,0,0,0
1,4,6,2,4,0,0,22,0,0,0,-1--1--1,,1|(384,181)|
1,5,6,1,100,0,0,22,0,0,0,-1--1--1,,1|(320,181)|
11,6,444,352,181,6,8,34,3,0,0,1,0,0,0
10,7,Aufnahme,352,201,42,12,40,3,0,0,-1,0,0,0
1,8,10,3,4,0,0,22,0,0,0,-1--1--1,,1|(599,198)|
1,9,10,2,100,0,0,22,0,0,0,-1--1--1,,1|(519,198)|
11,10,172,561,198,6,8,34,3,0,0,1,0,0,0
10,11,Transfer,561,218,58,12,40,3,0,0,-1,0,0,0
12,12,48,860,198,10,8,0,3,0,0,-1,0,0,0
1,13,15,12,4,0,0,22,0,0,0,-1--1--1,,1|(825,199)|
1,14,15,3,100,0,0,22,0,0,0,-1--1--1,,1|(750,199)|
11,15,48,794,199,6,8,34,3,0,0,1,0,0,0
10,16,Milchproduktion,794,222,76,15,40,131,0,0,-1,0,0,0
12,17,48,255,317,10,8,0,3,0,0,-1,0,0,0
1,18,20,17,4,0,0,22,0,0,0,-1--1--1,,1|(249,287)|
1,19,20,1,100,0,0,22,0,0,0,-1--1--1,,1|(249,235)|
11,20,48,249,260,8,6,33,3,0,0,4,0,0,0
10,21,Elimination,305,260,48,12,40,3,0,0,-1,0,0,0
10,22,k GK,261,116,23,12,8,3,0,0,0,0,0,0
10,23,k KM,512,126,25,12,8,3,0,0,0,0,0,0
10,24,k E,172,246,15,12,8,3,0,0,0,0,0,0
1,25,1,20,1,0,0,0,0,64,0,-1--1--1,,1|(294,238)|
1,26,24,20,1,0,0,0,0,64,0,-1--1--1,,1|(211,272)|
1,27,1,6,1,0,0,0,0,64,0,-1--1--1,,1|(310,144)|
1,28,2,10,1,0,0,0,0,64,0,-1--1--1,,1|(528,164)|
1,29,22,6,1,0,0,0,0,64,0,-1--1--1,,1|(319,120)|
1,30,23,10,1,0,0,0,0,64,0,-1--1--1,,1|(561,147)|
10,31,m 0,167,180,17,12,8,3,0,0,0,0,0,0
10,32,Fläche,308,49,29,12,8,3,0,0,0,0,0,0
10,33,Verbrauch,166,76,46,18,8,131,0,0,0,0,0,0
1,34,32,22,1,0,0,0,0,64,0,-1--1--1,,1|(304,89)|
1,35,33,22,1,0,0,0,0,64,0,-1--1--1,,1|(249,64)|
10,36,c Gras,308,352,28,12,8,3,0,0,0,0,0,0
10,37,c Kuh,510,352,25,12,8,3,0,0,0,0,0,0
10,38,c Milch,750,354,33,12,8,3,0,0,0,0,0,0
1,39,1,36,1,0,0,0,0,64,0,-1--1--1,,1|(332,299)|
1,40,2,37,1,0,0,0,0,64,0,-1--1--1,,1|(508,280)|
10,41,m Gras,192,351,36,12,8,131,0,0,0,0,0,0
1,42,41,36,1,0,0,0,0,64,0,-1--1--1,,1|(250,332)|
10,43,m Kuh,406,356,28,12,8,3,0,0,0,0,0,0
1,44,43,37,1,0,0,0,0,64,0,-1--1--1,,1|(459,332)|
10,45,m Milch,631,352,35,12,8,3,0,0,0,0,0,0
1,46,45,38,1,0,0,0,0,64,0,-1--1--1,,1|(685,311)|
10,47,Zuwachs,396,51,37,12,8,3,0,0,0,0,0,0
1,48,47,22,1,0,0,0,0,64,0,-1--1--1,,1|(369,103)|
1,49,3,15,1,0,0,0,0,64,0,-1--1--1,,1|(732,152)|
1,50,3,38,1,0,0,0,0,64,0,-1--1--1,,1|(776,293)|
10,51,Time,616,284,34,12,8,2,0,3,-1,0,0,0,128-128-128,0-0-0,|12||128-128-128
1,52,51,38,1,0,0,0,0,64,0,-1--1--1,,1|(723,293)|
12,53,0,514,581,361,185,3,188,0,0,1,0,0,0
Konzentrationen
10,54,k M,840,286,18,12,8,3,0,0,0,0,0,0
1,55,54,38,1,0,0,0,0,64,0,-1--1--1,,1|(817,331)|
1,56,31,1,0,0,0,0,0,64,1,-1--1--1,,1|(192,184)|
12,57,48,276,-12,10,8,0,3,0,0,-1,0,0,0
1,58,60,1,4,0,0,22,0,0,0,-1--1--1,,1|(320,214)|
1,59,60,2,100,0,0,22,0,0,0,-1--1--1,,1|(384,214)|
11,60,48,351,214,6,8,34,3,0,0,1,0,0,0
10,61,Ausscheidung,351,234,57,12,40,3,0,0,-1,0,0,0
1,62,2,60,1,0,0,0,0,64,0,-1--1--1,,1|(408,251)|
10,63,k A,391,275,16,12,8,3,0,0,0,0,0,0
1,64,63,60,1,0,0,0,0,64,0,-1--1--1,,1|(360,254)|
///---\\\
:GRAPH Konzentrationen
:TITLE Konzentrationen
:X-AXIS Time
:SCALE
:VAR c Gras
:LINE-WIDTH 2
:VAR c Kuh
:LINE-WIDTH 2
:VAR c Milch
:LINE-WIDTH 2
:L<%^E!@
1:Current.vdf
9:Current
23:0
15:0,0,0,0,0,0
19:100,0
27:2,
34:0,
4:Time
5:Elimination
24:0
25:60
26:60