1 : $$$$ @HISTOGR NOTICE BP208322 19/08/23 21:15:01 10289 2 : DATE 19/08/23 3 : 4 : Procédure @HISTOGR Voir aussi : TRAC DESS EVOL 5 : ------------------ 6 : 7 : (EVOL2 TABL2) = @HISTOGR LREE1 (TABL1) (LOGI1) 8 : 9 : 10 : 11 : Objet : 12 : _______ 13 : 14 : Création/Tracé de données sous forme d'histogramme 15 : 16 : 17 : Commentaire : 18 : _____________ 19 : 20 : LREE1 = Objet LISTREEL contenant les données à tracer. A chaque 21 : valeur de cette liste sera associée une barre de 22 : l'histogramme. 23 : 24 : LOGI1 = Variable LOGIQUE indiquant si on veut récupérer le graphe 25 : sous forme d'objets EVOL2 et TABL2 (à transmettre à DESS) 26 : 27 : TABL1 = Objet TABLE controlant l'apparence du graphique : 28 : 29 : - Indice 'COUL' [MOT ou LISTMOTS] 30 : = Couleur(s) des barres (défaut='DEFA') 31 : 32 : - Indice 'NOMS' [TABLE] 33 : = Legendes affectees a chaque barre (défaut=numero). 34 : 35 : - Indice 'LARG' [LISTREEL] 36 : = Largeurs des barres (défaut=[0.8 ... 0.8]) 37 : 38 : - Indice 'ESPA' [FLOTTANT] 39 : = Espace entre 2 barres (défaut=0.2) 40 : 41 : - Indice 'HPOS' [FLOTTANT] 42 : = Décalage horizontal du graphique (défaut=0.) 43 : 44 : - Indice 'INVE' [LOGIQUE] 45 : = Tracer les barres de droite à gauche ? (défaut=FAUX) 46 : 47 : - Indice 'DESS' [MOT] 48 : = Options passées à DESS (défaut=pas de tracé) 49 : La présence de ce mot-clé induit que @HISTOGR procède au 50 : tracé de l'histogramme (indépendemment de LOGI1) 51 : 52 : 53 : Exemple : 54 : _________ 55 : 56 : * Visualisation d'une distribution aléatoire gaussienne 57 : 58 : NN = 10000 ; 59 : 60 : LTIRAG1 = BRUI 'BLAN' 'GAUS' 0. 2. NN ; 61 : LTIRAG1 = LTIRAG1 - (MASQ LTIRAG1 'INFERIEUR' 0.) ; 62 : LTIRAG1 = ENTI LTIRAG1 ; 63 : 64 : IMIN1 = MINI LTIRAG1 ; 65 : NC = (MAXI LTIRAG1) - IMIN1 + 1 ; 66 : LCOMPT1 = PROG NC*0. ; 67 : 68 : REPE BLOC1 NN ; 69 : IPOS1 = (EXTR LTIRAG1 &BLOC1) + 1 - IMIN1 ; 70 : ICOMPT1 = EXTR LCOMPT1 IPOS1 ; 71 : REMP LCOMPT1 IPOS1 (ICOMPT1 + 1.) ; 72 : FIN BLOC1 ; 73 : 74 : TOPT1 = TABL ; 75 : TOPT1 . 'HPOS' = FLOT IMIN1 ; 76 : TOPT1 . 'DESS' = 'GRIL AXES' ; 77 : 78 : @HISTOGR LCOMPT1 TOPT1 FAUX ; 79 : 80 : * autre exemple : cf. dessin.dgibi 81 :
© Cast3M 2003 - Tous droits réservés.
Mentions légales