1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| ////////// CREATION DE L'ENTETE //////////////
//##determiner l'indice de la longueur
NIndiceLg est un entier
POUR L=1 _A_ {gsNomFenMere+".ong_general.FI_GRAPHE.TABLE_GRAPHE_LG",indChamp}..Occurrence
SI {gsNomFenMere+".ong_general.FI_GRAPHE.TABLE_GRAPHE_LG.COL_SEL_LG",indChamp}[L] ALORS
NIndiceLg=L
SORTIR
FIN
FIN
LIB_ENTETE={gsNomFenMere+".ong_general.FI_GRAPHE.TABLE_GRAPHE_LG.COL_LG",indChamp}[NIndiceLg]
///////////// CREATION DES GRAPHES //////////////
X est un entier=0
POUR i = 1 _A_ {gsNomFenMere+".ong_general.fi_graphe.TABLE_ORD_GRAPHE",indChamp}..Occurrence
//### créer puis tracer le graphe en nuage de point
SI X<>0 ALORS ChampClone(GRF_CAR1,"GRF_CAR"+i,{"GRF_CAR"+X,indChamp}..X,{"GRF_CAR"+X,indChamp}..Y+10)
p_AffecteSérieRapport(NIndiceLg,i,4+i,2)
grDessine("GRF_CAR"+i)
X++
//### afficher les stats
FIN |
Partager