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