Fichier arbre_1b.jps — Modifié le 3 Mai 2006 à 14 h 16
%% 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