Dans CPC n° 26 vous avez été séduit par le programme GRAPHIQUES de Thierry Bas, et vous l'avez saisi immédiatement sur vos claviers. Il va falloir vous y remettre pour ajouter cette amélioration de Yves Oury de Reims qui vous permet d'afficher sur vos graphiques les valeurs négatives. La ligne 1030 modifiée a pour but d'améliorer l'affichage pour les valeurs proches de 0, la ligne 1070 est là pour faire plus joli I Pour obtenir des barres d'histogrammes alternativement positives ou négatives, ajoutez ou modifiez : 745 ZZ = MAX(ABS(ZX),ABS(ZY)) 750 ZZ$ = STRS(ZZ):LZZ= LEN(ZZ$):LY = LZZ-4 885 PLOT 40,190:DRAW 638,190 1030 NDON(I) = INT(DON(1)* 160/ZZ) + 190 1040 PLOT ES,190:DRAW ES,NDON(1):DRAW ES + 24,NDON(1):DRAW ES + 24,190 1045 IF DON(I) 1050 PLOT ES + 24,190:DRAW ES + 32,198:DRAW ES + 32,NDON(1) + 8:DRAW ES + 8, NDON(1) + 8:DRAW ES,NDON(1) 1060 PLOT ES + 32,NDON(1) +8:DRAWES +24, NDON(1):GOTO 1070 1061 PLOT ES + 24,190:DRAW ES + 32,182:DRAW ES+ 32,NDON(1)-8:DRAW ES + 8, NDON(l)-8:DRAW ES,NDON(1) 1063 PLOT ES + 32,NDON(1)-8:DRAW ES + 24, NDON(1) 1070 FOR COUL = 0 TO 24 STEP 4 1080 PLOT ES + COUL,190:DRAW ES + COUL, NDON(1) 1200 MOVE -10,30:PRINT INT(ZZ/LYD); 1210 MOVE -10,360:PRINT INT(ZZ/LYD); 1220 MOVE -10,200:PRINT INT(0); 1230 MOVE -10,280: PRINT INT((ZZ/2)/LYD); 1240 MOVE -10,120:PRINT INT((ZZ/2)/LYD); Du beau travail, Yves Oury de Reims ! Nous avons sous les yeux un histogramme des températures dans la région de Reims au cours de l'année 1986, c'est très parlant et esthétique.CPC n°30 |