arbre_1b.jps

%% 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