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

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

diff --git a/lang/dynamo/1.8.7/src/dyn.cob b/lang/dynamo/1.8.7/src/dyn.cob
new file mode 100644
index 0000000..eabb1b8
--- /dev/null
+++ b/lang/dynamo/1.8.7/src/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