Présentation de gametree_03.jps

-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