summaryrefslogtreecommitdiff
path: root/lang/dynamo/1.8.7/src/dyn.grashasenfuchs
diff options
context:
space:
mode:
Diffstat (limited to 'lang/dynamo/1.8.7/src/dyn.grashasenfuchs')
-rw-r--r--lang/dynamo/1.8.7/src/dyn.grashasenfuchs42
1 files changed, 42 insertions, 0 deletions
diff --git a/lang/dynamo/1.8.7/src/dyn.grashasenfuchs b/lang/dynamo/1.8.7/src/dyn.grashasenfuchs
new file mode 100644
index 0000000..046a1e1
--- /dev/null
+++ b/lang/dynamo/1.8.7/src/dyn.grashasenfuchs
@@ -0,0 +1,42 @@
+NOTE
+NOTE Raeuber-Beute-Beziehung nach VOLTERRA am Beispiel Fuchs-Hase
+NOTE Aenderung: mit FUTTER und CLIP-Funktion
+L GRAS.K=CLIP(GRAS.J+DT*(WACHSR.JK-FRESSR.JK),0,GRAS.J,0)
+L HASEN.K=CLIP(HASEN.J+DT*(HGRATE.JK-HSRATE.JK),0,HASEN.J,0)
+L FUECHS.K=CLIP(FUECHS.J+DT*(FGRATE.JK-FSRATE.JK),0,FUECHS.J,0)
+R WACHSR.KL=(GPROZ/100)*GRAS.K GPROZ Wachstumsprozente
+R FRESSR.KL=GFRESS*HASEN.K*GRAS.K GFRESS in: pro Hasen
+R HGRATE.KL=HGK*HASEN.K*GRAS.K
+R HSRATE.KL=TREFF*HASEN.K*FUECHS.K+HSTIRB*HASEN.K
+R FGRATE.KL=FGK*HASEN.K*FUECHS.K
+R FSRATE.KL=FSK*FUECHS.K
+NOTE
+NOTE Gleichgewichtsbedingungen:
+NOTE HASEN=GPROZ/(100*Gfress)
+NOTE
+NOTE Hasengeburtenkoeffizient*GRAS=Trefferwahrscheinlichkeit*Fuechse
+NOTE +Hstirb
+NOTE Fuechsesterbekoeffizient=Fuechsegeburtenkoeffizient*Hasen
+NOTE
+N GRAS=IG
+N HASEN=IH
+N FUECHS=IF
+C GPROZ=3 Graswachstum 3%
+C GFRESS=3E-4 (Grasfressanteil) pro Hasen
+C HGK=1E-3 Hasengeburtskoeff
+C TREFF=4E-2 Trefferwahrscheinlichkeit
+C HSTIRB=0.001 Hasensterbekoeffizient (ohne Fuechse)
+C FGK=0.05 Fuechsegeburtenkoeffizient
+C FSK=5 Fuechsesterbekoeffizient
+C IG=1E+3
+C IH=110
+C IF=25
+NOTE
+NOTE SIMULATIONSPARAMETER
+NOTE
+C DT=0.083
+C PLTPER=.083 monatlich, 0.083=1/12 !
+C LENGTH=5
+PLOT GRAS=G(995,1005)/HASEN=H(85,115)/FUECHS=F(15,35)
+
+