*        Simulation de marches aléatoires
*
COMPUTE NOBS = 101; COMPUTE VAR = 1.0
ALLOCATE NOBS
DECLARE VECTOR[SERIES] YS(9)
ZERO Y; SEED 4
EQUATION 1 Y
# CONSTANT Y{1}
ASSOCIATE(VARIANCE=VAR) 1
# 0.0 1.0
*
IMPULSE(INPUT) 1 12
# 1
# 1
*
DO I=1,9
  SIMULATE 1 NOBS-1 2
  # 1 YS(I) 2
  DISPLAY(STORE=TITRE) 'Simulation marche aléatoire #' I
  LIST IEQN= 1 TO I
  GRAPH(HEADER=TITRE,MAX=25,MIN=-25) I
  CARDS YS(IEQN)
  CNTRL(PAUSE) Simulation
END DO I
*
* CNTRL(PAUSE) permet de controler la boucle DO et visualiser
* une simulation à la fois
* On peut tracer un maximum de 9 séries sur un seul GRAPH