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.cob | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 dynamo/dyn.cob

(limited to 'dynamo/dyn.cob')

diff --git a/dynamo/dyn.cob b/dynamo/dyn.cob
new file mode 100644
index 0000000..eabb1b8
--- /dev/null
+++ b/dynamo/dyn.cob
@@ -0,0 +1,19 @@
+NOTE  COBWEB MODEL 27.11.81
+L     PREIS.K=PREIS.J+(DT)*K*(NACHFR.J-ANGEBOT.J)
+L     ANGEBOT.K=A+B*PREIS.J
+A     NACHFR.K=C-D*PREIS.K
+NOTE  B>0, D>0, K>0
+N     PREIS=0
+N     ANGEBOT=11
+C     K=1
+C     A=1.
+C     B=.9
+C     C=12.4
+C     D=1.2
+C     DT=.1
+C     LENGTH=10
+C     PRTPER=.1
+C     PLTPER=.1
+PLOT  PREIS=P/NACHFR=N(1,10)/ANGEBOT=A
+PRINT PREIS,ANGEBOT,NACHFR
+
-- 
cgit v1.2.3