%% gh %% Arbre d'une expression algébrique %% échelle et étendue de l'image 60 setxunit .5 5.5 setxrange .5 4.5 setyrange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% définitions des couleurs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /coul0 {0 0 0 0.5 setcmykcolor} def %gris /coul1 {noir} def /coul2 {orange} def /coul3 {rouge} def /coul4 {bleu} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Les feuilles de l'arbre %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% coul1 1.5 setlinewidth 5 setdboxit %% reglage bordure de l’encadrement /linearc .1 def %% pour arrondir les angles setPalatino (node1) bnode (Mult) 4 4 [1.5 dup] cctext (node22) bnode (4) 5 3 [1.5 dup] cctext (node21) bnode (Moins) 3 3 [1.5 dup] cctext (node31) bnode (Plus) 2 2 [1.5 dup] cctext (node32) bnode (Sin) 4 2 [1.5 dup] cctext (node43) bnode (6) 4 1 [1.5 dup] cctext (node41) bnode (1) 1 1 [1.5 dup] cctext (node42) bnode (2) 3 1 [1.5 dup] cctext %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% Les branches de l'arbre %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% (node1) (node21) (-) ncline (node1) (node22) (-) ncline (node21) (node31) (-) ncline (node21) (node32) (-) ncline (node32) (node43) (-) ncline (node31) (node41) (-) ncline (node31) (node42) (-) ncline