summaryrefslogtreecommitdiff
path: root/lang/dynamo/1.8.7/src/dyn.cob
blob: eabb1b8d9b1d37c89f8e563922eb951dc8e28c92 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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