From 04e68443040c7abad84d66477e98f93bed701760 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 Feb 2019 13:09:03 +0100
Subject: Initial import

---
 lang/dynamo/1.8.7/src/dyn.simon | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 lang/dynamo/1.8.7/src/dyn.simon

(limited to 'lang/dynamo/1.8.7/src/dyn.simon')

diff --git a/lang/dynamo/1.8.7/src/dyn.simon b/lang/dynamo/1.8.7/src/dyn.simon
new file mode 100644
index 0000000..b911159
--- /dev/null
+++ b/lang/dynamo/1.8.7/src/dyn.simon
@@ -0,0 +1,28 @@
+NOTE Simons MODELL der sozialen Gruppe     Stand: 08.03.1983
+NOTE
+A   INTERAKT.K=A1*FREUNDLICH.K+A2*AKTIV.K
+L   FREUNDLICH.K=FREUNDLICH.J+DT*(B1*(INTERAKT.J-beta*FREUNDLICH.J))
+L   AKTIV.K=AKTIV.J+DT*(C1*(FREUNDLICH.J-gamma*AKTIV.J)+C2*(EINF-AKTIV.J))
+N   INTERAKT=beta*A2*C2*EINF/NENNER
+N   AKTIV=C2*(beta-A1)*EINF/NENNER
+N   FREUNDLICH=A2*C2*EINF/NENNER+STOERTERM
+N   NENNER=-C1*A2+(beta-A1)*(C2+C1*gamma)
+C   STOERTERM=0.4
+C   EINF=2
+NOTE 
+NOTE   Konstanten sind alle positiv vorausgesetzt
+NOTE   Stabil fuer beta>a1
+C   A1=1.0
+C   A2=1.5
+C   B1=1
+C   beta=1.0
+C   C1=1.4
+C   C2=1.5
+C   gamma=1.5 
+C   DT=0.1
+C   LENGTH=60
+C   PLTPER=0.5
+PLOT INTERAKT=i,FREUNDLICH=f,AKTIV=a(-10,10)
+PRINT INTERAKT,FREUNDLICH,AKTIV
+C   PRTPER=0.5
+
-- 
cgit v1.2.3