getf("march_envir.sci");
taille = 200;      // taille de l'environnement
//
// Environnement d'esperance nulle
//
envir = rand(taille,taille)<0.5;
p0 = [1/4,1/4,1/8,3/8];
p1 = [1/4,1/4,3/8,1/8];
xset("window",0);
xbasc();
nbre_pas0 = trajectoires(envir,p0,p1,5);
//
// Environnement d'esperance nulle
//
envir = rand(taille,taille)<0.5;
p0 = [1/8,3/8,1/8,3/8];
p1 = [3/8,1/8,3/8,1/8];
xset("window",1);
xbasc();
nbre_pas1 = trajectoires(envir,p0,p1,5);
//
// Environnement biaise
//
envir = rand(taille,taille)<0.25;
p0 = [1/4,1/4,1/8,3/8];
p1 = [1/4,1/4,3/8,1/8];
xset("window",2);
xbasc();
nbre_pas2 = trajectoires(envir,p0,p1,5);
