%% d'après http://www.ilemaths.net/forum-sujet-76625.html autocrop -8 15 setxrange -12 12 setyrange 20 setxunit setTimes #tex# $P$ #tex# $F$ /levelsep 3 def /treenodesep 10 def /treesep 10 def /treehooki {/treesep 4.5 def} def /treehookii {/treesep 3 def} def -7 -3 ((5,2)) TR rootnode [right ((5,1)) TR /label1 dcput [ ((5,0)) TR /label1 dcput ((4,1)) TR /label0 ucput [ ((4,0)) TR /label1 dcput ((3,1)) TR /label0 ucput [ ((3,0)) TR /label1 dcput ((2,1)) TR /label0 ucput [ ((2,0)) TR /label1 dcput ((1,1)) TR /label0 ucput [ ((1,0)) TR /label1 dcput ((0,1)) TR /label0 ucput ] ] ] ] ] ((4,2)) TR /label0 ucput [ ((4,1)) TR /label1 dcput [ ((4,0)) TR /label1 dcput ((3,1)) TR /label0 ucput [ ((3,0)) TR /label1 dcput ((2,1)) TR /label0 ucput [ ((2,0)) TR /label1 dcput ((1,1)) TR /label0 ucput [ ((1,0)) TR /label1 dcput ((0,1)) TR /label0 ucput ] ] ] ] ((3,2)) TR /label0 ucput [ ((3,1)) TR /label1 dcput ((2,2)) TR /label0 ucput [ ((2,1)) TR /label1 dcput ((1,2)) TR /label0 ucput [ ((0,2)) TR /label1 dcput ((1,1)) TR /label0 ucput [ ((1,0)) TR /label1 dcput ((0,1)) TR /label0 ucput ] ] ] ] ] ] tree