Présentation de gametree_03.jps

/syracuse/bbgraf/albums/tree_03/gametree_03.jpg
-9 21 setxrange -15 18 setyrange 20 setxunit 30 setfontsize setTimes (Centipede Game : Incomplete Information) xmin xmax add 2 div 17 dctext 10 setfontsize setTimes #tex# $(1-p)^2$ %% label0 #tex# $(1-p)p$ %% label1 #tex# $p(1-p)$ %% label2 #tex# $p^2$ %% label3 #tex# $\sigma _{1.A1}$ %% label 4 #tex# $1 - \sigma _{1.A1}$ %% label 5 #tex# $\sigma _{1.G1}$ %% label 6 #tex# $1 - \sigma _{1.G1}$ %% label 7 #tex# $\sigma _{2.A1}$ %% label 8 #tex# $1 - \sigma _{2.A1}$ %% label 9 #tex# $\sigma _{2.G1}$ %% label 10 #tex# $1 - \sigma _{2.G1}$ %% label 11 #tex# $\sigma _{1.A2}$ %% label 12 #tex# $1 - \sigma _{1.A2}$ %% label 13 #tex# $\sigma _{1.G2}$ %% label 14 #tex# $1 - \sigma _{1.G2}$ %% label 15 #tex# $\sigma _{2.A2}$ %% label 16 #tex# $1 - \sigma _{2.A2}$ %% label 17 #tex# $\sigma _{2.G2}$ %% label 18 #tex# $1 - \sigma _{2.G2}$ %% label 19 /treenodesep 15 def /levelsep 5.5 def -8 0 (0) Tcc rootnode [right (1.A1) Tcc (AA) ucput* /label0 dcput* [((5,5)) TR /label4 dcput* (2.A1) Tcc /label5 ucput* [((10,10)) TR /label8 dcput* (1.A2) Tcc /label9 ucput* [((20,20)) TR /label12 dcput* (2.A2) Tcc /label13 ucput* [((40,40)) TR /label16 dcput* ((80,80)) TR /label17 ucput* ] ] ] ] (1.A1) Tcc (AG) ucput* /label1 dcput* [((5,1)) TR /label4 dcput* (2.G1) Tcc /label5 ucput* [((10,8)) TR /label10 dcput* (1.A2) Tcc /label11 ucput* [((20,4)) TR /label12 dcput* (2.G2) Tcc /label13 ucput* [((40,32)) TR /label18 dcput* ((80,16)) TR /label19 ucput* ] ] ] ] (1.G1) Tcc (GA) ucput* /label2 dcput* [((4,5)) TR /label6 dcput* (2.A1) Tcc /label7 ucput* [((2,10)) TR /label8 dcput* (1.G2) Tcc /label9 ucput* [((16,20)) TR /label14 dcput* (2.A2) Tcc /label15 ucput* [((8,40)) TR /label16 dcput* ((64,80)) TR /label17 ucput* ] ] ] ] (1.G1) Tcc (GG) ucput* /label3 dcput* [((4,1)) TR /label6 dcput* (2.G1) Tcc /label7 ucput* [((2,8)) TR /label10 dcput* (1.G2) Tcc /label11 ucput* [((16,4)) TR /label14 dcput* (2.G2) Tcc /label15 ucput* [((8,32)) TR /label18 dcput* ((64,16)) TR /label19 ucput* ] ] ] ] ] tree* (A1) (A0) (-) ncline (A2) (A3) (-) ncline /arcangleA -20 def /arcangleB {arcangleA} def (A01) (A21) (-) ncarc (A0111) (A2111) (-) ncarc /arcangleA 20 def (A11) (A31) (-) ncarc (A011) (A111) (-) ncarc (A211) (A311) (-) ncarc (A1111) (A3111) (-) ncarc