lang/dynamo/1.8.7/src/dyn.natchez


1
2
3
4
5
6
7
8
9
10
11
12
13
14

NOTE   Heiratsregeln der NATCHEZ Indianer 
L   SUN.K=SWITCH(0,SUN.J,STINKARD.J)
L   NOBLE.K=SWITCH(0,NOBLE.J+SUN.J,STINKARD.J)
L   HONORED.K=SWITCH(0,HONORED.J+NOBLE.J,STINKARD.J)
L   STINKARD.K=CLIP(STINKARD.J-NOBLE.J,0,STINKARD.J-NOBLE.J,0)
N   SUN=20 
N   NOBLE=10 
N   HONORED=10 
N   STINKARD=3000
C   DT=1
C   LENGTH=17
C   PLTPER=1
PLOT SUN=*,NOBLE=N,HONORED=H,STINKARD=S