Notices | Cast3M

$$$$ @HISTOGR NOTICE  BP208322  19/08/23    21:15:01     10289          
                                             DATE     19/08/23

    Procédure @HISTOGR                  Voir aussi : TRAC DESS EVOL
    ------------------                           

            (EVOL2 TABL2) = @HISTOGR LREE1 (TABL1) (LOGI1)



    Objet :
    _______

    Création/Tracé de données sous forme d'histogramme

    
    Commentaire :
    _____________

    LREE1 = Objet LISTREEL contenant les données à tracer. A chaque
            valeur de cette liste sera associée une barre de
            l'histogramme.

    LOGI1 = Variable LOGIQUE indiquant si on veut récupérer le graphe
            sous forme d'objets EVOL2 et TABL2 (à transmettre à DESS)

    TABL1 = Objet TABLE controlant l'apparence du graphique :

          - Indice 'COUL' [MOT ou LISTMOTS]
            = Couleur(s) des barres (défaut='DEFA')

          - Indice 'NOMS' [TABLE] 
            = Legendes affectees a chaque barre (défaut=numero).

          - Indice 'LARG' [LISTREEL] 
            = Largeurs des barres (défaut=[0.8 ... 0.8])

          - Indice 'ESPA' [FLOTTANT] 
            = Espace entre 2 barres (défaut=0.2)

          - Indice 'HPOS' [FLOTTANT]
            = Décalage horizontal du graphique (défaut=0.)

          - Indice 'INVE' [LOGIQUE] 
            = Tracer les barres de droite à gauche ? (défaut=FAUX)

          - Indice 'DESS' [MOT]
            = Options passées à DESS (défaut=pas de tracé)
              La présence de ce mot-clé induit que @HISTOGR procède au
              tracé de l'histogramme (indépendemment de LOGI1)


    Exemple :
    _________

*   Visualisation d'une distribution aléatoire gaussienne

    NN = 10000 ;

    LTIRAG1 = BRUI 'BLAN' 'GAUS' 0. 2. NN ;
    LTIRAG1 = LTIRAG1 - (MASQ LTIRAG1 'INFERIEUR' 0.) ;
    LTIRAG1 = ENTI LTIRAG1 ;

    IMIN1 = MINI LTIRAG1 ;
    NC = (MAXI LTIRAG1) - IMIN1 + 1 ;
    LCOMPT1 = PROG NC*0. ;

    REPE BLOC1 NN ;
        IPOS1 = (EXTR LTIRAG1 &BLOC1) + 1 - IMIN1 ;
        ICOMPT1 = EXTR LCOMPT1 IPOS1 ;
        REMP LCOMPT1 IPOS1 (ICOMPT1 + 1.) ;
    FIN BLOC1 ;

    TOPT1 = TABL ;
    TOPT1 . 'HPOS' = FLOT IMIN1 ;
    TOPT1 . 'DESS' = 'GRIL AXES' ;

    @HISTOGR LCOMPT1 TOPT1 FAUX ;
    
*   autre exemple : cf. dessin.dgibi