From 724cc003460ec67eda269911da85c9f9e40aa6cf Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Fri, 30 Sep 2016 16:57:23 +0200
Subject: Add extracted sources from floppy disk images

Some files have no textual representation (yet) and were added as raw
dataspaces.
---
 dynamo/dyn.simon | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 dynamo/dyn.simon

(limited to 'dynamo/dyn.simon')

diff --git a/dynamo/dyn.simon b/dynamo/dyn.simon
new file mode 100644
index 0000000..b911159
--- /dev/null
+++ b/dynamo/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