// 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={blue,paleblue}; DistVertEntreNoeuds = 1.5cm; DistHoriEntreNiveaux = 2.5cm; Noeud RAC = addN( ), n1a = addN( RAC, "$R_n$", p1, "$p_n$" ), n1b = addN( RAC, "$\overline{R_n}$", p1, "$q_n$" ), n2a = addN( n1a, "$R_{n+1}$", p1, "$\frac{1}{20}$" ), n2c = addN( n1b, "$R_{n+1}$", p1, "$\frac{1}{5}$" ); // Deux noeuds qui ne necéssitent pas d'être nommmés. addN( n1a, "$\overline{R_{n+1}}$", p1, "$\frac{19}{20}$" ); addN( n1b, "$\overline{R_{n+1}}$", p1, "$\frac{4}{5}$" ); TracerArbre(RAC); transform t=shift(1cm,0); label("$p(R_n\cap R_{n+1})=\dots$",t*n2a,align=E); label("$p(\overline{R_n}\cap R_{n+1})=\dots$",t*n2c,align=E);