// gm_probabilitytree.asy // Extension destinée à dessiner un arbre de probabilités // C'est une première version, non documentée, en phase de test, // téléchargeable ici : gm_probabilitytree.asy import gm_probabilitytree; pen[] p1={yellow,gray}; pen[] p2={red, pink}; DistVertEntreNoeuds = .5cm; DistHoriEntreNiveaux = 3.5cm; HauteurNoeudMinimale = .5cm; StyleEvenParDefaut = 1bp+black; StyleBackGrParDefaut = invisible; StyleProbParDefaut = black; StyleBrParDefaut = blue; // Définition de la structure de l'arbre Noeud RAC = addN( ), NR = addN( RAC, "R", p1, "$\frac{1}{4}$" ), NB = addN( RAC, "B", p2, "$\frac{3}{4}$", red, 2bp+red ), Nra = addN( NR, "1", p1, "$\frac{1}{6}$" ), Nrb = addN( NR, "2", p1, "$\frac{1}{2}$" ), Nrc = addN( NR, "3", p1, "$\frac{1}{3}$" ), Nba = addN( NB, "1", p2, "$\frac{1}{2}$", red, 2bp+red ), Nbb = addN( NB, "2", p1, "$\frac{1}{2}$" ); // Tracé de l'arbre TracerArbre(racine=RAC,pos=(0,0)); shipout(bbox(2mm,white));