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 |
